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SUR8ROUTINE WGRK PROJECT NUMBER ONE. | PAGE i 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT , FO8APRTO 9/17/7C 
000030 2 SUBRTNOL CSECT 00000200 
00900C 3 RBASE EQU) 12 BASE REGISTER FOR THE PROGRAM. 00G00300 
OOGOCF ~ 4 RX EQU 15 ANY SCRATCH REGISTER.- 06000400 
000090 5 RO EQU OO - 7 | 00000509 
007001 : 6 R1 EQU) ol CO0G0600 
009002 7 R2 EQU 2 “00000700 
c00CD3 8 R3 EQU 3 ; 00000800 
005004 9 R4 EQU 4 | | 00C00900 
000005 10 R5 EQU) 5 | : 00001000 
000006 11 R6 EQU 6 — 00001150 
000007 12 RT EQU 7 7 | 00c012c6 
OCOOOA 13 R10 EQU 10 | 00001300 
000008 14 R11 EQU 11 00001400 
00000C 15 R12 EQU 12. | | 00061500 
C0009D | 16 R13 EQU) 13 : 00001600 
OOO00F | | 17 R14 EQU 14 wo | 3 00C01700 
COO000F 18 R15 E—QU 15 ome _ 00001890 
20 * REAR EAHA ERR RARER EERE EK 000G2900 

2. * * SUBROUTINE USAGE WORK PROJECT 1. * 00002100 

22 * Bo emmw ene nn = serene nee Hane = 00002200 

23 * eM He Me A He HR KK KK KK . 00002300 


25 FSC ICICI OC COCO IC OO GC ROC II gi fg Rokk a 90002500 


26 * | | 00002600 
27 * THIS PROGRAM IS BEING "CALLED" BY A HIGHER PROGRAM, WHICH I 00602700 
28 * WILL CALL "BIGBRTHR', AND, SINCE THIS IS A *CALLED* PROGRAM, 00002800 
29 * IT HAS CERTAIN RESPONSIBILITIES TO IT'S "CALLER* (*BIGBRTHR")~. 00002900 
30 * FOR EXAMPLE, WE ARE GOING TO HAVE TO RETURN TO HIS PROGRAM. 00003000 
31 * WHEN WE ARE FINISHED EXECUTING, AND MUST THEREFORE SAVE HIS: 00003100 
32 * REGISTERS SO THAT WE MAY GIVE THEM BACK TO HIM UPON RETURN. 00003200 
33 * 00003300 
34 % CONVENTIONS SAY THAT OUR "CALLER® ("BIGBRTHR') MUST SEND US 00003400 
35 THE ADDRESS OF A SAVE AREA IN REGISTER 13 WHEN HE BRANCHES 00003500 
36 % TG OUR PROGRAM, AND THAT WE MUST SAVE HIS REGISTERS IN THE 00003606 
37 * 4TH THROUGH 18TH WORDS OF THAT AREA, STARTING WITH REGISTER 00003790 
38 * 14 IN THE 4TH WORD, AND ENDING WITH REGISTER 12 IN THE 18TH 00003800 
39 * WORD OF THAT AREA. 00003900 
40 * | 00004000 
4G] RRR RR KKK KR KKK KKK QUESTION Be L BRK RRR KKK KERR KKK RRR KKK EK KKK OOCO4G1L00 
42 * | | ; 00004200 
43 * WRITE THE INSTRUCTION(S) NECESSARY TO SAVE "BIGBRTHR'S - 90004300 
44 * REGISTERS, ACCORDING TO CONVENTIONS. 00004406 
45 * : 00004500 
LO RK HO HE KK RK eR EE OK OE A 2K KK he ae he a he 2 oh eo 2 oe A aK KK oe a i eK KKK KEKE KKK OOOD04600 
47 * cr). oo G00047C0 
48 * ene gee 00004800 
49 * | , 00004900 
50 GS oC GG RO ORGS IGG ick da icicciioeccck 90005000 


SUBROUTINE WORK PROJECT NUMBER ONE. PAGE 2 
LOC OBJECT CODE ADDKi ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17770 
52 Keecc ccc access ccvecccccecse reese cees vse sesesesscsceresssssesccesovsesesee 00C05200 
53 * 00005300 
54 * ANSWER 8.1 000C5460 
55 * 00005500 
56 * THE BEST ANSWER IS THIS: CoCcO0sé6cCG 
57 * OGO057GG6 
000090 9OEC DCOC OCOO0O0C 58 STM R14eR12,12(R13) SAVE *BIGBRTHR'S REGISTERS. O000058C2 
59 * . . 000CG590C 
60 * BUT ANY INSTRUCTION OR COMBINATION OF INSTRUCTIONS THAT GIVE O0L06000 
61 * THE FOLLQWING RESULT, WOULD BE CORRECT. 06006190 
62 * GO9062CC 
63 * REG 13 ~--> SAVE AREA PASSED BY *BIGBRTHR®. 00006 30C 
64 * t—-— = - + 0009640C° 
65 * +o { - ] THE SAME RESULTS COULD BE GAINED 00006500 
66 * $a rn am tt BY USING: O0CC66CO 
67 * { I C0006 706 
68 * $a + ST R14,12{(R13) O00CC68CO0 
69 * | i ST R15,16(R1L3) 00006990 
79: * $——— + ST RO,20(R13) oocecTOCA 
Tl * +12 | REG.14 ] ST R1,24(R13) OOGO71LOO. 
72 * a ae » EEC«. TCs E1Gs 0% 90CcC7200 
73 * +16 |: REG.15 | 09067390 
74 * +—— = + BUT IT IS CONSIDERABLY LESS 00007400 
75 * +20 | REG.O f° EFFICIENT. THAN THE STORE 0007500 
76 * $— een + MULTIPLE INSTRUCTION. o00CTb60C 
7 * PODODPPDDD a whee : 00007790 
78 * (CC 0C00COOC( -00C078S0 
79 * : adaeieaientaneadend + 0000790900 
8QO * +68 { REG.12 | O0OCO08000 
BL * Parana pane + 000C81C9 
82 *. 000082CC 
83 Keowee cece ccsercescecscecseveecseeeeesreserteseseeseseseseeseseseeeseseccene 000C830C 
85 nie ak ok afk ote ek ok afc of ak af ake akc ak oe ak ae ok aie akc oi fe a ac ofc atk afc fe i a oi oi OK 2 a oc ee a OK oc eK of Me ae ee EK Oe He OK i oe oe Ne oc kK aK ok ke KK 00008 500 
86. * COQO008600 
87 * NOW, SINCE WE ARE GOING TO USE SYMBOLIC NAMES IN THIS PROGRAM, O00C8709 
88 * WE NEED TO ESTABLISH ADDRESSIBILITY TU THESE NAMES FOR THE O0O0CO880°0 
89 * ASSEMBLER PROGRAM, SO THAT IT MAY CONVERT THEM TO BASE AND O0CCB89ICED. 
90 * DISPLACEMENT VALUES. O00C90CL 
91 * 00009190 
QD RRA AE 2 a AK IK AR OK OS EE OK OK OR OK QUESTION 8.2 3K Ae Ae Xe ak eK Ke aK KK eK KK KKK KK KK KK KE KEKE RK OOCCIZAGO 
93 * 000093906 
94 * WRITE THE INSTRUCTION(S) NECESSARY TO SET UP A BASE REGISTER Ooccecg4oo 
95 * AND. ESTABLISH ADDRESSABILITY FOR THE ASSEMBLER. GOQOC09500 
96 * 00009600 
97 He ok steak of a a 2k 2K 2K ok oc ak ok 2K ok ok ak ok ofc fc ok ofc ak of ok ie fe ake fe a 2 ok oi ak 2 ok ok oo ok Ko aK KK oo KO eK KOK KKK EK KK QOOO0ITO0 
S8 * | 000C9800 
99g x 00009900 
100 SOI CII ICES EI ISSIR COGIC GOI GIG a ait ak gia ik ak ike ak lak ke foi i ai i ak ak ak aka afaik ak ak a 00010000 


SUBROUTINE WORK PROJECT NUMBER ONE. : | | PAGE 3 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FORAPRTO 9/17/70 
102 Piweiveviwcetuie sess deeuketseeseeeec asses Saekae th euneeeus dug Gh aeew ones eeu 00010200 

103 * ‘ 00010300 

104 * ANSWER 8.2 00010400 

105 * | | 000105c0 

106 * THERE ARE ANY NUMBER OF WAYS TO ACCOMPLISH THIS, BUT THE ONE 00010600 

Lor THAT I PREFER TO USE IS: 00010700 

108 * | 00010800 

090004 05C0 109 BALR  RBASE,0 PUT THE ADDRESS OF "HERE* IN BASEREG 00010900 
CCI006 110 USING ¥*y,RBASE TELL THE ASSEMBLER WHAT ADDRESS AND 00011090 
lll * WHAT REGISTER TO USE FOR SYMBOLIC 00011100 

112 * NAME ADDRESSING. ~ 00011290 

113 * 0001130¢ 

C0006 CSCC 114 BALR RBASE,0 | YOU COULD ALSO USE THIS METHOD. — 000114CC 
| 00011500 


000008 | 115 USING SUBRTNO1L+8,RBASE 


116 Kec e er ce rescence rerscsr scr cessssssasscssssesesssssessssesssessssssescens 00011600 


118 230 CCCI ICICI OR to a dolok dotokakk da tckteoi toe 90011800 


119 * 00011900 

120 * NOW, SINCE WE ARE GOING TO BECOME A "CALLING! PROGRAM WHEN 00012000 

121 * WE USE THE "EXPONENT* SUBROUTINE, WE MUST PROVIDE IT WITH 00012160 

122 * A PLACE FOR IT TO SAVE OUR REGISTERS, ANDe AT THE SAME TIME, 00012200 

123 * WE MUST REMEMBER WHERE THE SAVE AREA PASSED BY *BIGBRTHR® 00012300 

124 * IS LOCATED. CONVENTIONS SAY THAT WE SHOULD CHAIN SAVE AREAS 60012400 

125 * AS IN THE FCLLOWING DIAGRAM: 00012500 

126 * | 00012600 

127 * SAVE AREA IN #BIGBRTHR# QUR SAVE AREA ("SAVEAREA®) C0012700 

é 128 * | jeSeoeens + peers 00012800 
129 * +0 | UNUSED {<--+ +-=>] UNUSED { 00012900 

130 * $a ——----=- + if $+-—+~+-——- + 006132000 

131 * +4 100000000] t{=C—- 4 -- KK 00013100 

132 * +-------- + J 9 #-------- + : 00013200 

133 * +8 | >>>>--tee---— + }OCOCOCO0} 00013300 

134 * tana | +—--——---+ 00013400 

135 * +12 | REG.14 | +12 ] EMPTY. f 00013500 

136 * $—-— = + $a ee ee + 00013600 

137 * yoDVPDIDD y)9)00009) 00013700 

138 * COCOCOCEEE COCOCOCOCE 00913860 

139 * $—------- + $—-—----~- —+ 60o139CC 

140 * . | 009140909 

LG] KR KKK KKK KKK KK QUESTION 8. 3 RRA RRR RAK RK KEK KK RK KR RK KR KK KKEKKEK QOOCLSEICEO 

142 * * 00C142cC0 

| 143 * WRITE THE CODE TO ACCOMPLISH THIS»s USING THE NAME *SAVEAREA® GO0014350 
144 * FOR OUR SAVE AREA. 7 Sooo, NOOO 1LaSCC 
| 145 * 00014560 
146 FRE FE AE A ES I OK I OE A AE OC EK OO AE A A A IE A RE AE AC IC A AE RE I EC IK 2 OK I IE I A AE I OK AC IE OE AE OK EAE EK OE OE OK CG0146CC 

147 * og : —00C1470C 

148 * | 60014800 

149 * - 00014900 

150 [ook coo go cio oii cok ao oo Ro kk tok keke 60CO1L5000 


SUBRGUTINE WORK PROJECT NUMBER ONE. PAGE 4 


LOC OBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT FO8APRT70 9/17/70 
152 Kece ccc rece re reese essere es eeee see ses eses esse eeesessceeseseceseseseceoes 00015200 

153 * | C0015300 

154 * ANSWER 8.3 00015460 

155 * | | 0001550C 

156 * YOUR CODE SHOULD LOOK SOMETHING LIKE THE FOLLOWING °: 00015600 

. 157 * : 00015700 

000008 41F0 COSC OOOA4 158 LA RXySAVEAREA ADDRESS fF OUR SAVE AREA. - 00015800 
O00090C 50D0 COAD OO0A8 159 ST R13ySAVEAREAt4 SAVE  8IGBRTHR*S SAVE AREA ADDRESS. 00015900 
CO001C 50FD OCO8 00008 160 ST RX 78(R13) CHAIN QUR SAVE AREA TO *BIGBRTHR®S 00016000 
000014 18DF 161 ,_LR R134RX MAKE QUR SAVE AREA THE ACTIVE ONE. 00016100 
000016 47FO CC58 00060 162 8B MAINLINE SKIP ARQUND CONSTANTS. 00016200 


163 a ae ee a a ee ee ee ee a ee oe a ee ee ee ee ee eee ee ae ee ee ee ae ee ee ee ee ee eee ee ee 00016 300 


165 AACE OR a ak oie a 2 i Ea fc fe ate ie ac a i IC aC a IC Re AC a OK a aie fe ie i a ate ac ie fe fe a ie ote eK AE OK SK KK KK KE KAKA KKK KX = OOOL6500 


166 * , 00016600 
; 167 * THIS PROGRAM USES A SUBROUTINE WHICH WILL RAISE AN INTEGER 00016700 
168 * VALUE TO A POWER REPRESENTED BY ANOTHER INTEGER . 00016800 
169 * 00016900 
170 * FOR EXAMPLE, THE SUBROUTINE MAY BE USED TO RAISE 3 TO THE 00017000 
171 * 4TH POWER. THREE RAISED TO THE FOURTH POWER MEANS THAT 3 IS 00017100 
172 * USED AS A FACTOR 4 TIMES. I.E. 3X 3 X 3 X 3 = 3 TO THE 4TH. 00017200 
173 * Me ; | 00017300 
174 * ++4+¢44++ READ THE PROLOGUE FOR THE EXPONENT SUBROUTINE NOW. 00017400 
175 * IT MAY BE FOUND ON PAGE 10 OF THIS ASSEMBLY LISTING. +#+#++++ C0017500 
176 * | : : 00017600 
177 * IT'LL BE WAITING HERE FOR YOU TO GET BACK.eeceee 00017700 
178 * 00017800 
179 * USING THE INFORMATICN SUPPLIED IN THE PROLOGUE, WE ARE GOING 00017900 
180 * TG SET UP THE PARAMETERS AND LINKAGE NECESSARY TO USE THE 00018000 
181 * ROUTINE. : 00018100 
182 * | 00018200 
183 * FIRST, WE WILL HAVE TO DEFINE THE PARAMETERS WHICH WE INTEND © 00018300 
184 * TO PASS TO THE SUBROUTINE. | 90018400 
185 * | 00018500 
L BG RK KR KOR KKK KR KOK KK KKKKKK QUESTION 8.4 EK OK AK OK oe eK aK oie oo a OK KK OK ok oK KK kK KK KE 60001 8600 
187 * : ; 00018700 
188 * LET US SUPPOSE THAT WE WANT TO RAISE 6 TO THE EIGHTH POWER. 00C18800 
189 * WRITE THE CONSTANTS NECESSARY TO DG THIS USING THE FORMAT | 00G1890C 
190 * DEFINED IN THE SUBRGUTINE'S SPECIFICATIONS. ~ 00019060 
191 * 7 a 00019100 
192 ste she ofc ake sie he ake fk oe ake afk of ofc ake afc ok oie ak 2k ak ake ok ake ie ae oe ot ole ac i akc aft ok afc ake af ok afk of ofc ok oc ok ate a ok of a Xe ok ok ok 2K ok KK ok ok ke kok kK kK KAOK KK «6OOO1L9I2Z00 
193 * 00019300 
194 * C0019490 
195 fe 3 ic ok 2K ok 2k 2k ok ok ok ak ak ok ok ok of ake ok ok of akc ak ok a oc oe ok og of kc ok oc 2c i at ok of ok ok ic ce oe a i 2c KS OK KAS OK ok ok kok KK KOR KKK KKK «6OOOLISCO 


®@ g | 


SUBROUTINE WORK PROJECT NUMBER ONE. PAGE 5 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT0 9/17/70 
197 oe ee a ee ae ee ee ee ee ee ee a ee ee ee ee ee ee ee ee ee ee a ee ee ee ee ee ee ee 000197CO0 

198 * ANSWER 8.4 . 0001980C 

199 * 00019900 

200 * IF YOU WROTE SOMETHING LIKE THE FOLLOWING, YOU ARE CORRECT. 00020000 

000020 201 SOMENAME DS OD 00020100 
000020 00000006 — 202 SIX | DC Ffot 00020200 
000024 00000008 203 EIGHT DC Efe? 00020300 
000028 O000000000000G00 204 ANSWER DC DEC! | 00020400. 
205 * : 00020500 

206 * OR, YOU MAY HAVE WRITTEN THE FOLLOWING INSTEAD OF THE 00020600 

207 * CONSTANTS CALLED *SIX*® AND "EIGHT". 00020700 

— 208 * | 00020800 

000030 0000000600000008 209 DC F'6,8! | 00020900 
210 * | 00021000 

211 * YOU MAY ALSO HAVE WRITTEN ** CNOP 098 ** IN PLACE OF THE 00021100 

212 * '' DS OD **, AS BOTH CAUSE THE DESTRED DOUBLE-WORD 00021200 

213 * ALIGNMENT. 00021300 

214 * : . 00021400 

215 Reee eeomweoeeeveeaeeveeeeaeveneaeevnevweeveveea vee eeoeveeeseoeveeaeneeneeaeveaeeeeeeoneanee ane eoe @eeeeoeeoe#e eenee 00021500 


27 oe eck QUESTION 8.5 2A Ion soak ki tok RK 00021700 


218 * | | 00021800 
= 219 * NOTICE THAT WE USED A ** DS OD ** TO BEGIN THE LIST IN QUR 00021900 
220 * ANSWER, WAS THIS NECESSARY? IF SO, WHY? 00022000 
221 * | 00022100 
222 HE ee a RC RE I A a A A EE I A a A RC ee RE I A RC A fe he OC a a a Ko eK OE 2 OK 00022200 
223 * a | ars os 00022300 
224 * 9 : 00022400 
225 * | | 7 00022500 
226 * 00022600 


; 227 HA OR RRR ROO RR OR RR ROR IRCA OR A RCI a RC RAE IK RO IK aK a ai a ak aK ai ac a a ak kK HEX —OOOZ22700 
€00038 0700 228 CNOP 2,78 | 06022800 


SUBROUTINE wORK PROJECT NUMBER ONE. | PAGE 6 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR70 9/17/7TO 
230 Kee RES we O.G SS COE ie 6b OS Se WS SORES ES SES ESA OOS SSUES OWES ROSS eee 0C023000 
231 * ANSWER 8.5 00023100 
232 * ; | 00023200 
233 * YES, IT IS NECESSARY TO CAUSE THE FIRST WORD IN THE LIST T9 00023300 
234 * BE ON A DOUBLE-WORD BOUNDARY, AND THE THIRD PARAMETER IN 00023400 
235 * THE LIST, WHICH MUST BE GN A DOUBLE-WORD TO BE CONTIGUOUS 00023500 
236 * WITH THE SECOND PARAMETER. ~ 00023600 
237 * 000237C0 
238 * NOTICE WHAT HAPPENS IN THE FOLLOWING EXAMPLE, WHEN 00023800 
239 * THE DOUBLE-WORD ALIGNMENT IS NOT FORCED BY THE PROGRAMMER. 00023900 
240 eee 0 eS ees ew we Ow ee ew 6 Se SW oa 8 0 OS OCR OAS 6 eS ww 6) SSIs Ole SS wT OS 000240C0 
00003A 0000 
00003C 00000006 241 LIST DC Ee" 6" 0002410C. 
000040 09000908 242 DC Fre? 00024200 
000044 000000C0 , 
000048 00000606G00uU00000 243 BC D‘O§ . 000243C0 


245 KEFEEEEEEEEEEEEE FE EEE EEE EE FEEEFEEEEEEE EE EEE EE EE EEE EE EE EEE EEE EEE ETE tHE + E+ 00024500 


246 * NOTICE THAT THERE WAS PADDING GENERATED BETWEEN THE 00024600 
247 * FULL-WORD "6* AND THE DOUBLE-WORD '0" BECAUSE WE DION'T HAVE 60624700 
248 %. THE FORE-SIGHT TO TAKE A LITTLE PRECAUTIONARY MEASURE LIKE 00024800 
249 * A *' D8 0D ®t... . 00024900 


25 KEEEEEEE EEE EEE EE EEE EEE EEE EEE EE EEE EERE EE EEE EEE EE EEE EEE EEE EEE EH tet te te t+ +©6) 00025000 


SOC okoookaccceck QUESTION 8.6 32 a ak ack iok dokack ok tke 00025200 


252 * 
253 * 3 | . 00025300 
254 * OK. SOQ MUCH FOR ALIGNMENT CONSIDERATIONS, WE HAVE TO PASS 00025400 
255 * THE PARAMETERS TO THE SUBROUTINE, USING THE SPECIFICATIONS 00025500 
256 * SUPPLIED. WRITE THE CODE NECESSARY TO PASS THE PARAMETERS 60025600 
257 * IN THE FOLLGWING LIST TO THE SUBROUTINE. 00025700 
258 * ae: 00025800 
2 DQG RRA AE A AK EE BE HE OI CE 2 AR AC EO EK 2 IC IE A A KOK OO I A A IC OO EK OE IKK I OK OK OK KK KKK KKK 6—OQOO2Z 5900 
260 * + paoeen * 00026000 
261 * 00026100 
262 * : 00026200 
ZEB AK EE A OK EE OK Oe OE RE Oa EO A EA 2 2c a aE 2K eC a oie A OIE KE oe KEK OK ACK KR KK KKK KE KK KEK OOO 26300 
000050 264 PARMLIST DS OD : 00026400 
000950 000000G600C600008 265 DC F'6,8! 00026500. 
000058 CO0000CGCG000000 266 DC pros 00026600 


000060 267 MAINLINE EQU - : 7 | 00026700 


SUBROUTINE wORK PROJECT NUMBER ONE. | | PAGE 7 


LOC OBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT FO8APRT70 9/17/70 
269 Kece reer casececscc sere esesecees ress eees sees sessesessessesesseeseseseccss 00026900 
270 * 00027000 
271 * ANSWER 8.6 | . 00027100 
272 * —- 00027200 
273 * YOU SHOULD HAVE WRITTEN EITHER: 00027300 
274 * 7 00027400 
000060 4110 C048 00050 275 LA Rl,PARMLIST | 00027500 
276 * 00027600 
277 * OR ELSE: | | 00027700 
278 * 00027800 : 
900064 5810 C064 0006C 279 L Rl »ANADCON aes 00027900 
000068 47F0O C068 00070 280 - B ANADCON+4 | 7 00028000 
00006C 00000050 281 ANADCON' DC A(PARMLIST) | 00028100 
282 * | / 00028200 
283 * REMEMBER THAT THIS WAS A *CALL—BY-VALUE" OPERATION, SO WE 00028300 
284 * WANTED TO PASS THE "ADDRESS*® OF THE PARAMETERS, RATHER ~ 00028400 
285 * THAN THE PARAMETERS THEMSELVES. 00028500 
286 M6 as 6 8 Wace 6a OOS OFS BE Sa eb 8 eS ew oe 6 ee Oe we SS Se S66 -e we Se OO Oe ee Se 0002 8600 
288 *n-—--——-—--— == — wee a ee wa am + == 00028800 
289 *. ALL RIGHT, WE HAVE SET UP THE PARAMETERS THAT THE ROUTINE 00028900 
290 * REQUIRES FOR INPUT, NOW WE HAVE TO GET TO THE ROUTINE AND: 00029000 
s 291 * BACK WITH THE ANSWER. AGAIN WE WILL USE STANDARD LINKAGE .~ 00029100 
292 * CONVENTIONS. | 2% 00029200 
293 *#—~ = - - or ne a ee ne tn === = 00029300 
= # 
DDS RAMA A Me Me Re HA a A he He Ne Ke KK QUESTION Boo Lo RR AA KKK KK EKEKK OOOZI500 
296 * 00029600 
297 * WRITE THE CODE NECESSARY TO LINK TO THE SUBROUTINE. 00029700 
298 * 00029800 
299 * FOLLOW STANDARD LINKAGE CONVENTIONS. 00029900 
300 * 00030000 
BOL KA KK KK He eK eK HE 2 2 HK AE IK OK eK eK Ke KKK KKK KKKKK OOOZOLOO 
302 * | —_ | =) | 00030200 
303 * : : 00030300 
304 * 00030400 
305 * 00030500 
306 * : . 00030600 
BOT RAK RK HK AE EE KK I He He eH KK AK AE A he eA I HE he ee Ee a i I EK EK OK AK OK KK KKK KKK KKK « OOOZ0700 


ol 


LOC 


060070 
000074 


000076 
QOD0TA 
COOO0TC 
000080 


SUBROUTINE WORK PROJECT NUMBER ONE. 


OBJECT CGDE 


58FO COE8 
O5EF 


58FO0 C078 
O5EF 

47FO CO7C 
Q00000CO 


ADDR1 ADDR2 


OCOFO 


00080 


00084 


STMT 


309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 


320 - 


321 
322 
323 
324 


326 
327 
328 


329 


330 
331 
332 
333 
334 
33:5 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 


353 
354 
355 
356 
357 
358 
359 
360 
361 


ee ee a a 


SOURCE STATEMENT FO8APRT70 
x ANSWER 8.7 
* 
x YOU SHOULD HAVE WRITTEN SOMETHING WHICH CLOSELY RESEMBLES 
x ONE OF THE FOLLOWING: 7 
x 
L R15,=V( EXPONENT) BEEEEEEEEEE EEEEEEEE GEEEEEEEEEEEEEEE 
| BALR R14,R15 & REMEMBER, CONVENTION REQUIRES & 
x & THAT WE SET UP THE SUBROUTINE'S & 
* OR ELSE, & ENTRY ADDRESS IN REGISTER 15, & 
x & AND THE RETURN POINT TO QUR & 
L R15,AVCON & PROGRAM IN REGISTER 14. & 
BALR R14,R15 EEE EEEEEEEE EEEEEEEEEEE ESSERE EE EEEEE 
B AVCON+4 
AVCON pc VC EXPONENT) 


Ke cccc cer cccersvccccrersscesvcsseccsesssessseesseresersesseesevesesevesens 


KEEEEE EEE EE EE EEE EE EE EEE EEE EE EEE EEE EEE EEE ERE EEEE EEE EEE EE EE EEE EE EEE ttt ttt 
OF COURSE YOU COULD NOT SUCCESSFULLY WRITE: 
LA R15,EXPONENT 


BECAUSE **EXPONENT®® IS AN EXTERNAL NAME, NOT RESOLVABLE AT 
ASSEMBLY TIME. | Roca yaa | | 


NOR COULD YOU WRITE: 


LA = R15_,EXPONENT © 
EXTRN EXPONENT 


BECAUSE, IN THIS FORM, *"EXPONENT®® IS NOT RESOLVABLE USING 
ANY KNOWN BASE GR ANY CALCULABLE DISPLACEMENT. ( IF THAT 
DIDN'T MAKE ANY SENSE, IT*S INSTRUCTOR BUGGING TIME..) 


ANYWAY, HAVING SUCCESSFULLY GOTTEN TO THE SUBROUTINE, WE WANT 
TO VERIFY THAT THE ROUTINE FUNCTIQNED PROPERLY BEFORE WE 
GG AHEAD AND USE THE DATA THAT WAS RETURNED TO US. 


‘REMEMBER THAT THE SUBROUTINE RETURNED A CGDE TO INFORM US 
OF THE RELATIVE SUCCESS OF THE QPERATION. IT WOULD BE WISE TO 
TEST IT AT THIS TIME. 

HEEEE EEE EE EEE EAE EEE EE EE EEE EEEF EEE REE EE ELE EEE EEE EE EE EEE EEE EEE EE HH et ttt 


KSC RR aoa IR RIK QUESTION 8 6 8 Rx EK OK IC A Oa a A A a a aK ak ok a a ok a aK 
WRITE THE NECESSARY CODE TQ TEST FOR SUCCESSFUL COMPLETION. 
YOU SHOULD CAUSE A PROGRAM CHECK IF UNSUCCESSFUL EXECUTION 


OCCURRED, OR CONTINUE EXECUTION OF THE DATA IS VALID. 
He CH A CR AO a A OK I A RK A IR SR RI SR I a KO RC A CA a CO 2 OE CCK aC OS a Fe i oe ak Ae eK OK 2 


He oH Ft HH st 6 HH FE 4 


+ 
% 
3 
3 


FOC IR ROR IIE OR ROR Ra fe II ak a aK ak aK oi RK a RR RR aK Re ka a oe aK ic a a a a a a ak ok ae ake a akc ak ak ok ae 
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9/17/70 


00030900 
00031000 
00031100 
00031200 
00031300 
00031400 
00031500 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 


00032600 
00032700 
00032800 
00032900 
00033000 
0003310C 
00033200 
00033300 
00033400 
00033500 
00033600 
00033700 
00033800 
00033900 
00034000 
00034100 
00034200 
000343C0 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 


00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 
00036100 


SUBROUTINE WORK PROJECT NUMBER ONE. | | PAGE 9 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT | FOSAPRT0 9/17/70 

363 lige 6e ka era} oe ee eococeeeoeeveaeveeneeoeseeeeseeeeaeeseseeeeaeeeeeeneereeoseeeeeeeeeeoeeosesne 00036300 

364 * ANSWER 8.8 00036400 

365 * : 00036500 

366 * YOU COULD HAVE WRITTEN EITHER OF THE FOLLOWING: 00036600 

| 367 * 00036700 

000084 12FF _ 368 LTR  R15¢R15 | 00036800 

000086 4780 C084 0008C 369 BZ *+6 | 00036900 

00008A 0000 370 DC H#08 | 00037000 

371 * 00037100 

372 *. OR SOMETHING APPROXIMATING: 00037200 

373 * 60037300 

00008C 59FO COEC OO0OF4 374 - C R15,=F'O! 00037400 

000090 4780 CO8E 00096 375 BE *+6 00037500 

000094 0000 376 DC H?0? 00037600 

377 6 aha are Ole. eS aS we we Ola eee Ee CER Bb e@oeoeeaosvseeeseeaeeeeaeoeee ee eoe eens 00037700 

009096 0000 379 DC H#O8 x * & THIS WILL GET US A DUMP JUST TO SEE IF THE 00037900 

380 * * * * SUBROUTINE REALLY WORKS. 00038000 

381 * * & & CHECK THE ANSWER IN THE DUMP TO BE SURE 00038100 

382 * * * & THAT IT DID WORK. 00038200 

000098 58DD 0004 00004 383 L R1394(R13) | 00038300 

00909C 98EC DOOC O000C 384 LM R14,R12,12(R13) RESTORE MY CALLER'S REGISTERS. 00038400 
= 0000A0 O7FE | 


385 BR R14 AND GO ON HOME .eeee 00038500 


387 * EEE EEE EEEEEEEEEEE EEE EEEEEEEEEEEEEEEEEEEEE EEE SE EEEEEESEEEEEE EEE EEEEEEEEE 00038700 


388 * . 00038800 
389 * NOW THAT YOU HAVE BECOME FAMILIAR WITH THE METHOD OF USING 00038900 
390 * SOMEONE ELSE'S CODE, APPLY WHAT YOU HAVE JUST LEARNED BY 00039000 
391 * 7 DOING THE LAB PROJECT ENTITLED "THE CURRENT ~ POWER PROBLEM* 00039100 
392 * LOCATED IN YOUR LAB GUIDE. 00039200 
393 * GOOD LUCK..... 00039300 
394 * : 00039400 
395 *G&EEEE6 E66 €E EEE EEEEEEEEEEESESESES GEE GEE EE EEGEEEESEEEEEEEEEEEESEEEGEEEEEEEE 00039500 


COOOA4 397 SAVEAREA DS 18F 00039700 


(a5 


LOC 


COOOFS8 


C09005 
900006 
000008 


OOOOF8 
QOOOFC 
OOOOFE 
COOOFRE 
C00102 
000106 
COC1LOA 
00010C 
ec 90Tl2 


EXPONENTIATION SUBROUTINE..Y = I 


QBJECT CODE 


9O0EC 
O5C0 


41FO 
5 0FD 
5 ODF 
18DF 
D703 
LBFFE 


DGOC OO00C 
CQ6E 9016C 
CUC8 00008 
0004 00004 


DOG8 DLO8 00008 00008 


ADDR1 ADDR2 STMT 


399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 


436 
437 
438 


440 
441 
442 
443 
444 


445 


446 
447 
448 


TQ THE J~POWER. 


SOURCE STATEMENT FO8APRTO 
EXPONENT CSECT 
A CIGIGOI ICICI IO AK A IO III CK I ICI OR a ICI a a oi ie a ea ak 2k ae a 2k ak a a a OK a ae ae ae fe ae ok ae a 


THIS SUBROUTINE WILL RAISE A FIXED POINT INTEGER VALUE 
TO A FIXED POINT INTEGER VALUE *J* AND RETURN 
IN A DOUBLE WORD "Y'. 


yt 
THE NEW VALUE 


THE SUBROUTINE USES STANDARD LINKAGE CONVENTIONS, 
PARAMETERS GF THE FOLLOWING FORM... 

GENERAL REGISTER 1 ADDRESSES A LIST OF THREE CONSTANTS 
TWO OF WHICH ARE FULL-WORDS, AND THE LAST OF WHICH IS A 
DOUBLE-WORD, LOCATED ON A DOUBLE-WORD BOUNDARY. THESE WILL 
CONTAIN THE VALUES "I', "J AND fY¥* RESPECTIVELY, WHERE ‘Y' 
EQUALS 'I* RAISED TQ THE "J* POWER. I.E.: 


AND USES 


+ 
| 
t 
{ 
! 
t 
' 
{ 
{ 
+m + 


+ 

{ 

+ 

8 16 

D<—---- MUST BE ON A DOUBLE-WORD 
BOUNDARY. 


ON RETURN, REGISTER 15 WILL CONTAIN A CONDITION CODE WHICH 
INDICATES THE SUCCESS OF THE OPERATION. IT WILL CONTAIN ONE 
QF THE FOLLOWING VALUES... 


QO -- OPERATIGN WAS SUCCESSFUL 

4 -- THE VALUE OF THE EXPONENTIATION EXCEEDED ONE 

REGISTER, THE RESULT MAY BE INCOMPLETE. 

8 ~- ONE OF THE INPUT PARAMETERS WAS LOCATED ON OTHER 
THAN THE REQUIRED BOUNDARY, NO 

* EXPONENTIATION WAS ATTEMPTED. 


we 
pd 


ook: NOTE: YOU MAY IGNORE THE REST OF THIS SUBRGUTINE, AS IT IS 


* NOT PERTINENT TG THE COMPLETION OF THIS PROJECT. 
OR Fok ok ke Rokk a KK RI I RR RCI RI aR Ra IC RE OK a a I ARI I KC I kK 2 KC aK RC IC OE CK KC aK aK OK 


i i i i ey 
+ 
! 
i 
! 
t 
! 
| 
{ 
+ 


% 


I EQU 5 INTEGER VALUE ‘I! 

J EQU 6 EXPONENT VALUE *J! 

Y EQU 8 REGISTERS 8 & 9 CONTAIN ‘Y'* 
STM 14912,12(13) SAVE CALLER'S REGISTERS 
BALR 12,0 ESTABLISH ADDRESSABILITY 
USING ¥*,12 CLUE THE ASSEMBLER IN ON IT. 
LA 15_9 SAVEAR2 STANDARD 
ST 15,8(13) SAVE 
ST 13,4(15) AREA 
LR 13915 CHAINING 
XC 8(4,13),8(13) CONVENTIONS. 
SR 15,15 SET RETURN CODE = O 
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00039900 
00040000 
00040100 
00040200 
00040300 
00040400 
00040500 
00040600 
00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041590 
00041600 
60041700 
00041800 
00041900 
00042000 
00042100 
00042200 
00042 300 
00042400 
G0042500 
00042600 
00042700 
C0042 800 
00042900 
00043000 
60043100 
00043200 
00043 300 
00043400 


00043600 
00043700 
00043800 


00044000 
00044100 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044800 


EL 


LOC 


0C0114 
000116 


CIO11A 
QOO11C 
000120 
000124 
000126 
CO012A 
09012C 
000130 
000132 


000136 
000138 
OQ013A 
OOC13E 


0C0142 
000142 
000146 


vI014A 
JOO14E 
000152 
000156 
OOO015A 
OOO15E 


000160 
C00166 


O0016C 
000000 
OOOOFO 
OQOO0OF4 


EXPONENTIATION SUBROUTINE..Y 


OBJECT CODE 


1821 
8910 


1211 
4770 
9856 
1255 
4780 
1888 
4190 
1266 
4780 


1C85 
1288 
4770 
4660 


9089 
47FO 


41FF 
4LFF 
58D) 
58ED 
980C 
O7FE 


D707 
47F0 


0O01D 
CO4C 
2000 
C062 
0001 


C 044 


CC56 
C038 


2008 
C054 


O0G4 
0004 
0004 
00CC 
DO14 


2008 
C054 


00000000 
00000000 


2008 00008 


ADDR1 ADDR2 


OCO1D 
O014A 
00000 
00160 
CCCOL 


00142 


OOC14E 
00136 


00008 
00152 


000604 
00004 
00004 
0000C 
00014 


0G008 
00152 


= | 


STMT 


450 
451 
452 
453 
454 
455 
456 
457 
458 
459 


TO 


THE J-POWER. 


SOURCE STATEMENT 


460 


461 


463 
464 
465 
466 
467 
468 
469 
470 


472 
473 
474 


476 
4717 
478 
479 
480 
481 


483 
484 


486 
487 
428 
489 


Dx te % 


AISE 


RETURNI 


RETCODES8 
RETCODE4S 
RETCODEO 


YEQUALSO 


SAVEAR2 


LR 
SLL 


LTR 
BNZ 
LM 
LTR 
BZ 
SR 
LA 
LTR 
BZ 


2el 
1929 


l,l 
RETCODE8 
[4J70(2) 
I,I 
YEQUALSO 
Y7Y 
Y+1,1 
JoJ 
RETURN1 


FO8APR70 


SAVE PARAMETER LIST ADDRESS. 

SHIFT OUT ALL BUT LOW ORDER 3 BITS 

OF PARAMETER LIST ADDRESS 

IF THE PARAMETER LIST WAS NOT ON A 
DOUBLE~WORD BOUNDARY, RETURN AN ERROR CD. 
GET VALUES OF "If AND 'J* 

IF "I" = Oy RETURN RESULT OF ZERO 


INITIALLY SET THE VALUE 
OF 'Y' TO l 

IF EXPONENT EQUALS ZERO, 

RETURN A VALUE OF 1 


THIS PART OF THE ROUTINE DOES ALL THE DIRTY WORK OF 


THE EXPONENTIATION. 


MR 

LTR 
BNZ 
BCT 


EQU 
STM 


END 


Yyl 

YY 
RETCODE4 
JyRAISE 


we 


Y,Y+1,8(2) 
RETCODEO 


1544(15) 
1594(15) 
13,4(013) 
14,12(13) 
O+12,20(13) 
14 


8(852),8(2) 
RETCODEO 


18F 

SUBRTNO1] 

=V( EXPONENT ) 
=FIgQr 


RAISE "I* TO THE *J'-TH POWER 

TEST FOR VALUE IN EXCESS OF 32 BITS. 
FOUND, SET RETURN CODE = 4. 

NO OVERFLOW, CONTINUE WITH EXPONENTIATION 


RETURN VALUE QF *Y* 
AND RETURN A CODE OF ZERO 


SET RETURN CODE TO 8 
SET RETURN CODE TO 4 


RESTORE 14 
RESTGRE REMAINING REGISTERS 
RETURN TO USER 


SET "Y¥* EQUAL TQ ZERO 
RETURN A CONDITION CODE OF ZERO 
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00045000 
00045100 
00045200 
006045300 
00045400 
00045500 
00045600 
00045700 
00045800 
00045900 
00046000 
00046100 


00046300 
06046400 
00046500 
00046600 
00046700 
CC046800 
00046900 
000470900 


00047200 
00047300 
0004740C 


00047600 
00047700 
00047800 
00047900 
0O0C4&80CC 
00048100 


00048300 
000484C0 


00048600 
COG48700 


vL 


PNS.ID 


REL.ID 


Ol 
G2 
02 


FLAGS 


OC 
ic 
1c 


ADDRESS 


00006C 
000080 
OOOOFO 


RELOCATION DICTIONARY 


PAGE 1 


9/17/70 


CROSS—REFERENCE PAGE 1 
SYMBOL LEN VALUE DEFN REFERENCES 9/17/70 
ANADCGN 00004 QO006C G6281 0279 0280 
ANSWER 00008 000028 00204 
AVCON 00004 000080 00323 0320 0322 
EIGHT 00004 006624 00203 
EXPONENT 00001 OOOO0F8 G0399 
I 00001 000005 G0436 0455 0456 0456 0467 
J 00001 000006 C0437 0455 0460 0460 0470 
LIST 00004 00003C 00241 | 
MAINLINE 00001 000060 00267 0162 
PARMLIST 00008 000050 00264 0275 0281 
RAISE 00002 000136 00467 0470 i 
RBASE 00001 O0000C 00003 0109 0110 0114 0115 
RETCODEO 00004 000152 60478 0474 0484 
RETCODE4 00004 OOO14E 00477 0469 
RETCODE8 00004 00014A 06476 0454 
RETURNIL 00001 000142 00472 0461 
RX 00001 OOGOOF C0004 0158 0160 0161 
RO 00001 000060 OG005 
R1 00001 000001 O0C006 0275 0279 
R10 00001 OCOO00A 00013 
Rll 00001 COCGO0B 00014 
R12 00001 OO0GOOC 00015 0058 0384 
R13 00001 O000CD 00016 0058 0159 0160 0161 0383 0383 0384 
R14 00001 OOOOCE 00017 0058 0316 0321 0384 0385 
a R15 00001 OOOOOF 00018 . 0315 0316 0320 0321 0368 0368 0374 
R2 00001 000002 00007 
R3 00001 0006C3 00008 
R4 00001 000004 00009 
RS 00001 00G005 00010 
RG 00001 000006 00011 
RT 00001 000607 00012 
SAVEAREA 00004 O00CA4 00397 0158 0159 
SAVEAR2 00004 O0016C 00486 0443 
SIX 00004 000020 00202 
SOMENAME 00008 006020 00201 
SUBRTNOL 00001 000000 00062 0115 0487 
Y 00001 000008 00438 0458 0458 0459 0467 0468 0468 0473 0473 
YEQUALSO 00006 OG0160 00483 0457 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
*STATISTICS* SOURCE RECORDS (SYSIN) = 487 
*OPTIONS IN EFFECT LIST, NODECK, LOAD, NORENT, XREF, NOTESTs ALGNy OSy LINECNT = 55 


544 PRINTED LINES 


OL 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,yLET,LIST,NCAL 
VARIABLE OPTIONS USED - SIZE=(45056,6144)- 


TEWOOOO ENTRY UTILITY | 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME 

SUBRTNOL 00 F8 

EXPONENT F8 BC 

UTILITY 1Bé8 5A0 

PRINT Z21A PCHKRETN 476 

ENTRY ADDRESS 168 

TOTAL LENGTH 758 
KeKKGO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


DEFAULT OPTION(S) USED 


LOCATION 


NAME 


LOCATION 


ZL 


REGS Q-7 
PEGS 8-15 


gQ0006 
900029 
000040 
000069 


O5F BAO 
OSF8CO 
O5F8E0 
C5F900 
O5F920 
C5F940 
O05F 9690 
N5F980 
OSF9AO 
O5F9TO 
OSFIEO 
C5FA9D 
Q5FA20 
O5FA4CG 
S5FA60 


G60C20 


OD.~60E900 00000042 


FFFFFF2é 


000C0000 
00540003 
ooocoooc 
90046600 


AQE1AOQEO 
C0588C656 
O7900000 
000900Cu 
COTSU5EF 
5 8DDO004 
FEFFFRZE 
9001DC30 
9CECDOCC 
J901D1ail 
12884776 
OCUCIBUC 
CO2705EF 
O7TFF58FC 
S9OECDCCL 


4AGGSBDE 


COOGOOCO 
DSUGO6A3E 
04000000 
YOOCTBC8 


S24GA1LBE 
41 DDC008 
000U0006 
OG19A100 
47FOCOTC 
9BECDOOC 
OCQSF&F8 
Gu0CG0000 
O5C041F0 
47700 C4C 
C0564660 
DC1407FE 
D2u3C024 
S4E605EF 
O5CO04F0 


40050900 


00000000 
FFD50001 
00001468 
00040000 


9OECDOCC 
00000006 
O0G00C08 
41100048 
GOO5F9A0 
O7FECOOO 
COOLDC4C 
9001DC58 
CO6E5GFD 
98562000 
C0389089 
D7C72008 
94FE9LOC 
48BCA000 
07004110 


47FO095C6 


F4.174278 9870260F 


JOU5FBFB OOO1LDC4C 90000000 
VCO1LDC30 00000000 00010C58 00000000 


00000000 
4FO5F940 
00005920 
00007588 


05C005C0 
00000008 
00G00000 
5810C064 
12FF 4780 
953A4 740 
CO000000 
00000000 
0008 50DF 
12554780 
200847FO 
200847FO 
80564740 
4&1LAQAQ02 
C01ic0511 


48609BCEF 


00.000008 00000000 


00.000000 00000000 


C0015110 000153C0 OOO01DICO OOOLSE9EO 
6FO5F8BO OOOSF9I4C 4FO5F924 00000000 


OOO5F8A8 
OOOOFFOO 
083D5600 
00000000 


41FOCO9C 
60000000 
COOCCOOC 
4 7FOCO068 
C0840000 
GOO6BF68 
00015110 
6FO5F8BO 
C0041 8DF 
C0621B88 
CO5441FF 
C0549104 
946AD503 
9O0ABCO024 
OFO5FBO4 


8A6CO001 


00000000 
00000000 
C000996C 
00012D10 


5O0D0COA0 
00000000 
0C000000 
OGO5F8F8 
59FCCOEC 
OOO5FA1L4 
000153C0 
80564740 
D?703D008 
41900001 
OOO441 FF 
10044710 
TO1L4S94FE 
185D58D0 
TFFFOAOE 


4710969E 


FFC60000 
FFO40233 
00040000 
0004000C 


5OFDOQ008 
00000006 
00000006 
58FOCOE8 
4780CC8E 
4FO5F 924 
O0001D7CO 
OOO5FS9A0 
DOQ81BFF 
12664780 
0C0458DD 
O005F94C 
47809470 
C03441D0 
58B00010 


48609C 26 


80000000 
AQOQOC54A 
O0C007498 
OOOO7T51A 


18DF47FO 


000000C8 
00000008 
OSEF58FO 
000CTO00 
OOO5SFIAC 
OOO 169EC 
00000000 
18218910 
C0441C85 
OGI458ED 
009000000 
58FC94DE 
DOOO58F 0 
9110B074 


41660001 


A Gee Ge Wa SS OR ODEO EN MOO ee eee 
TEs ign g: ee ge ee sg DN ene: we 


Fat inte 6. bo Geese Ole ew ale’ OAS a Oe ere ae wee 


6 SSeS Ee Wee Cece 
Mi te eg akg 1 a6 eee he Ge eee ae were eae ate ae 
@ees#s ite 6: ay Bee @Xe- Oe OW Sel Be ee Oo OR Se 
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BRANCHING AND SWITCHING WORK PROJECT. PAGE 1 


LOC OBJECT CODE ADDR1 AODDR2 STMT SOURCE STATEMENT FO8APRT0 9/17/70 
9035000 2 BRANCHES CSECT 00000200 
900000 9O0EC DtUC 0G00C 3 STM 14,12912(13) SAVE THE CALLER'S REGISTERS 00000300 
000004 05C0 4 BALR 12,0 ESTABLISH THE PROGRAM BASE REGISTER 00000400 
C09006 5 USING *,12 TELL THE ASSEMBLER ABOUT IT 00600500 
000006 41F0 C1D2 001D8 6 LA 15,BRSAVE MY SAVE AREA ADDRESS 00000600 
OODJ00A S5SODF 0004 00004 7 ST 13,4(15) BACKWARD CHAIN 00000700 
OOCOOE S5OFD O0CO8 00008 8 ST 1578(13) FORWARD CHAIN 00000800 
000012 18DF 9 LR 13,15 ESTABLISH MY SAVE AREA 00000900 
000014 D703 DOO8 BbOO8 ouC08 00008 10 XC 8(4¢13),8(13) TERMINATE THE FORWARD CHAIN 00C01000 

LL AT THIS POINT, STANDARD ENTRY CONVENTIONS ARE COMPLETE. 6G001100 
L2 PRINT OFF A LITTLE SLEIGHT OF HAND... 00001200 


OOOOZE 47FC C19E OO1A4 19 - B LOCATION SKIP ALL THE OTHER CODE (ILLUS-ONLY) OOCC1900 


LZ 
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LOC OBJECT CUDE ADDR1I ADDR2 STMT 
21 
22 
23 


24 


ee a i Sy Oy Ss SS 


% 4% % tt 


SOURCE STATEMENT 


FO8APRT0 


AE KK AE AR KK OK aK 2 He oC He i he 2 eo A OK RE EE A CK OK ROK IK AK AK OK IK OK 


* BRANCHING AND SWITCHING WORK PROJECT 1. 
K.-S aes ea eels. ee Riera eel aerate aaue 


* 
* 


SCC CIO GK ROO KK oR ok io a i ak ak 


KE EEEEEEREF EEE EEEE EEE FEE EEE EEE EERE EEE EE EEE EEE EE EE FEE EEE EEE EEE EEE tte ttt 


THIS PROJECT CONTAINS EXAMPLES OF THE "LOGICAL" INSTRUCTIONS 
(AND, GR»y EXCLUSIVE OR, AND TEST), SHOWING THE WAY IN WHICH 
THEY MAY BE USED TO MANIPULATE **LOGICAL PROGRAM SWITCHES!!®. 


IT ALSO CONTAINS EXAMPLES QF THE VARIOUS BRANCH INSTRUCTIONS, 


SHOWING SOME OF THE WAYS THEY MAY BE USED TO CONTROL PROGRAM 
LOGIC FLOW. 


—-- NOTE --- THE EXAMPLES CONTAINED HEREIN ARE NOT INTENDED 
TO CONSTITUTE ANY COMPLETE PROGRAM. RATHER, THEY ARE MERELY 
DISCRETE CODING. SAMPLES, AND ODO NOT NECESSARILY RELATE TO 
ANY OF THE OTHER EXAMPLES IN THE PROJECT. 

BECAUSE OF THIS, EACH SHOULD BE EXAMINED SEPARATELY 

AND ALL QUESTIONS CONCERNING ANY SINGLE EXAMPLE SHOULD BE 
COMPLETED (AND THEIR ANSWERS UNDERSTOOD) BEFORE GOING ON TO 
THE NEXT EXAMPLE. 

IF YOU DON'T UNDERSTAND, BUG YOUR INSTRUCTOR FOR AN ANSWER, 
THAT'S WHAT HE GETS PAID FOR.«. 


A BIT OF PRELIMINARY INFURMATION. THROUGHOUT THIS 
SECTION, WE'RE GOING TO BE USING THE 4-BYTE *"NO-OPERATION® 
INSTRUCTION, WHICH. IS A. BRANCH HAVING A’ CONDITION MASK OF 
ZERO, WHICH MEANS THAT NO BRANCH WILL EVER BE MADE WHEN THE 
INSTRUCTION [S EXECUTED. DOESN'T SOUND TOO USEFUL ??7 WELL, 


FIRST, 


* 
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00062100 
00002200 
00002300 
00002400 


00002600 
00002700 
000028C0 
00002900 
00003000 


00003100 


00063200 
00003300 
00003400 
00003500 
60003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300. 
00004400. 
00004500 
00004600. 
00604700 
00004800 
00004900 
00005000 
00005100 


EEEEEEEEEEEEE EE EE EE EEE EEE EE EE EEE EE EEE EEE EEE EEE EEE EEE EEE Et tee tte tee t++ettt+ 00005200 
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OC 


000032 4700 C038 
000036 96FO CC2D 
COO03A 47FO CO2C 
QOOOO03E 940F CO2D 


OBJECT CODE 


ADDR1L 


006033 


0Uu033 


ADDR2 


OOO3E 


00032 


STMT 


SOURCE STATEMENT 


* 
oc 
* 
* 
* 
# 
* 
* 
* 
eo 
* 
* 
* 
* 
* 
* 
* 
S 


WITCH 


DONTOOIT NI 
2 ow ae nee ae ow ane ee 


Fe kok tokio ak dock kakadctack QUESTION 


eet nt eH HH 


GF THE INSTRUCTIONS IN THAT EXAMPLE. 


FO8APR70 


PE ED A EE EE EN SE SO SUED ED AD AER ce AE EE SED ED OED ce a “ENS SN nee aly a RAED ED RUD AES ERED AEE A CER SEED une SED OUP SEED See ENED ENED CUD OED GED GD PND UI GED RED WE ED ARE RS OED GED ED rem et oD ee a 


LET US FIRST CONSIDER THE MEANING OF THE TERM 


*SWITCH® AS 
APPLIED TO PROGRAMMING. 


OF COURSE, 
THAT OF A LIGHT SWITCH, 
CURRENT EITHER TO THE LIGHT BULB, 
UPON THE SETTING OF THE SWITCH. 


YOU ARE FAMILIAR WITH AT LEAST ONE FORM OF SWITCH, 
WHICH ROUTES THE FLOW OF ELECTRIC 
OR TO NOWHERE, DEPENDING 


SIMILARLY» IN PROGRAMMING, A SWITCH IS AN INSTRUCTION WHICH 
ROUTES THE FLOW OF INSTRUCTION EXECUTION ONE WAY OR ANOTHER, 
DEPENDING GN THE CURRENT SETTING OF THE "PROGRAM SWITCH®. 
INSTRUCTION 


THE MOST BASIC FORM OF SWITCH IS THE BRANCH 


WHOSE CONDITION MASK IS DYNAMICALLY ALTERED AT PROGRAM 
EXECUTION TIME. CONSIDER THE FOLLOWING EXAMPLE: 
BC 0,DONTDOIT 1 
Ol — SWITCHt1, X*FO® 2 
B SWITCH 3. 
SWITCH+1] »X*OF? 4 


EP OE ARP ND AED <P RS IES SAND IY Anta FUNRE ND ARES GERD AN SD RED AERP A SIE SEE ED AEP ANY RY RD ND GN END SND PRED CEN IED AED GERD GRE SAT EY CRE ND AED GAN GD GU ED END GED OOD AED UP SED GES ND ED ED EOS ED AD eee ee 


Dig LR RRR EK EKA 
USING THE NUMBERS WHICH APPEAR IN THE COMMENTS FIELDS 

IN THE EXAMPLE ABOVE, DETERMINE THE ORDER OF EXECUTION 

ASSUME THAT *SWITCH® 

IS EXECUTED FIRST. WRITE YOUR ANSWER BELOW BEFORE GOING 


ON TO THE NEXT PAGE. | 
6 a A Le a a a a a a RC RC A a a a A RE RR RR OR a A RE a a a a RE A A aR ae he aR a a a a a 


Fo RC SIC RRC CR RC AR AA AEA AR A RRR A ER 
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00005400 
00005500 
00005600 
00605700 
00005800 
00005900 
00006000 
0C006100 
00006200 
00006300 
00006400 
C0006500 
00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
00007300 
00007460 
00007500 


00007700 


— 00007800 


009007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/T0 
89 Me eee fe. eas a ecw a aa Re OO BSL ae aOR 0 baw 0b fe WE waa 00 a al Se we Se ee ee 00008900 
90 * ANSWER 9.1 P 00009000 
91 * 00009100 
92 * THE INSTRUCTIONS WILL EXECUTE IN THE SEQUENCE: 1,273,174. 00009200 
93 * 00009300 
94 * THIS IS TRUE BECAUSE THE THIRD INSTRUCTION CHANGES THE MASK 00069400 
95 * OF "SWITCH', CAUSING IT TGQ BRANCH THE SECOND TIME IT IS 00009500 
96 * EXECUTED. THE INSTRUCTION NUMBERED *4* RESETS THE MASK TO IT*S 00009600 
OT * ORIGINAL CONDITION. 00009700 

* 


98 8 eee eee eee ee ee eee eee OF ee Oe OO eS Se Oe Ot OSES LE OS BO OOO SOAP OOO: Oe Oe 8 OS SO 8 S820, © 8 88 8)8. 8) Oe 000C9800 


100 3300 ec QUESTION 9.2 2340 oc io io iok eeackk cick 00010000 


10l * REMEMBERING WHAT YOU HAVE JUST SEEN, LOOK AT THE FOLLOWING 00010100 

102 * EXAMPLE AND LIST THE ORDER IN WHICH THE INSTRUCTIONS WILL 00010200 

103 * BE EXECUTED. | . 00010300 

104 * ASSUME THAT *SWITCH2* WILL BE EXECUTED FIRST. 00010400 

105 ME ACHE A HE EE A FEAR A RE RE AE RC A OI eI He I I A 3 EAE eR RE A A A I I A CO Re IK I CK KK OK 00010500 

106 * | | 00010600 

107 * 00010700 

108 * 00010800 

109 He KE HE KK a OK aK Ka a oie fc 2 fe 2 2 ae a 2 i ak aK aK a a a ae oe a ae ae 2 oc a i a oie a Re afc ake fe 2k 00010900 

000042 47FO C044 0004A 110 SWITCH2 BC 15,BYPASSIT 1 00011000 
000046 47FO CO4C Q0052 111 B BEGONE ~ 2 00011100 
8 00004A 97FO CO3D 00043 112 BYPASSIT XI | SWITCH2+1,X*FO! 3 00011200 
OO004E 47FO CO3C 00042 113 B SWITCH2 4 00011300 
000052 2 114 BEGONE EQU * 5 00011400 
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LOC OBJECT CODE ADDR1 ADDR2 STMT  SOQURCE STATEMENT | FO8SAPRT0 9/17/70 
116 oe ee ee ee ee ee ere ee ee oe ee ee ee ee eee ee ee ee ee eee ee ee eee ae eee ere ee ee 00011600 
117 * ANSWER 9.2 | 00011700 
118 * 00011800 
119 * THE INSTRUCTIONS WILL EXECUTE IN THE ORDER 1:394919295 00011900 
120 * : 00012000 
121 * THIS IS TRUE BECAUSE THE EXECUTION OF "BYPASSIT® WILL 00012100 
122 * CHANGE "SWITCH2* TO A **NOP™® INSTRUCTION AND THE SECOND 00012200 
123 * TIME THAT IT (SWITCH2) IS EXECUTED, WE FALL THROUGH INTO 90012300 
124 * THE BRANCH TO *BEGONE®. 00012400 
125 a a a ee a ee ee a a a a ee a a a a ee a a a re 2 00012500 


L227 KEEEEEEE EEE EEE EE EE EEE EE EEE EEEEEEEEE EEE EEE EEEE EE EEECE +E EE EEE EEE +E +++++ 00012700 


128 * AN INSTRUCTION WHICH IS [OEALLY SUITED TO THIS KIND OF 00012800 
129 * OPERATION IS THE ONE CALLED "TEST AND SET*, WHICH SETS THE 00012900 
130 * TESTED BYTE OF STORAGE TO X*FFf AND SETS THE CONDITION CODE 00013000 
131 * BASED UPON THE VALUE OF THE BYTE BEFORE THE "TS* INSTRUCTION 00013100 

132 * WAS EXECUTED. | 00013200 © 
LBB KEEFE EE EE EEE FEF HE EFE EEE EE ERE EEE EEE EEE EEE EE EEE EEE EEE EEE E tee tee ttt+etetet+ 00013300 
000052 9300 C060 00066 134 TEST@SET TS BYTEO — 1 00013400 
000056 4740 C058 OOG5E 135 BC 4_yWALKONBY 2 00013500 
O0005A 47FO CO4C 00052 136 B TEST@SET 3 | 3 ~ 00013600 
QOO05E 9400 C060 06066 137 WALKONBY NI  BYTEO,O 4 | . 00013700 
nm 000062 47FO COT2 00078 138 B EXAMPLE1 5 3 00013800 
000066 00 139 BYTEO DC X*O0° | 00013900 


141 = oi toik tagtoakcktoxk QUESTION 9.3 oR to aR RO so RR KCI 00014100 


142 * WHAT WILL BE THE EXECUTION SEQUENCE OF THE PRECEEDING CODE?? 00014200 
143 FOO iO ko lok ik ok kick if Fak kk tk i RR I a i i a a a a ke ak oe ak ea oe ak ok ok ae =—00014300 
144 * 00014400 


L G5 Ke eR a EK a a a oe I i a Ee a ae ae a Re ae Oe a AC Oe I HR RI KK a KKK KK =~ OO0]14500 


BRANCHING AND SWITCHING WORK PROJECT. PAGE 6 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT70 9/17/70 

147 Ke ee creer ec eee eres acre eee e dees see ee sees eeee sees eeeeeeeseeeeereeseeearers 00014700 

148 * ANSWER 9.3 00014800 

149 * 00014900 

150 * THE INSTRUCTIONS WEILL EXECUTE IN THE ESRen: Ly22391922495. 00015000 

151 * 00015100 

152 * THE FIRST TIME THE *tS* 1S EXECUTED, IT MAKES *BYTEQ* EQUAL 00015200 

153 * X*FF', BUT SINCE BITO GF "BYTEO® WAS A *O%, THE CONDITION 00015300 

154 * CODE = 8, SO WE DON'T BRANCH AT INSTRUCTION # 2. ON THE NEXT 00015400 

555% EXECUTION OF THE 'TS", THE CONDE EIEN: cab REVERDEVS AND WE 00015500 

156 * DO BRANCH TO *WALKONBY®. 00015600 

1) Rese ses SSeS 3S Sars Sse eS Sees Bc aa ce aac a Sea Sn ses Ssses 00015700 

Lo: Rees Se ee ea ee ee ee eae a eee -~- 00015900 

160 * . ae | | 00016000 

161 * THE FOLLOWING TWO SAMPLES ARE SIMILAR TO THE TWO YOU WERE 00016100 

162 * JUST QUESTIONED ABOUT IN QUESTION 9.2, BUT NOTICE THAT THEY 00016200 

163 * USE THE "EXCLUSIVE OR* INSTRUCTION TO ALTERNATE THE 00016300 

164 * CONDITION MASK IN THE SWITCH FROM O TO 15 AND BACK 10 O. 00016400 

165 * oe > : , 00016500 

166 * THIS EXAMPLE .CAUSES A BRANCH EACH ODD-NUMBERED TIME THAT 00016600 

167 * IT IS EXECUTED, ASSUMING OF COURSE, THAT THEY ARE BRANCHED 00016700 

168 * AT A LATER DATE. . 00016800 

y 169 * 00016900 
000067 00 

000068 97FO CU67 0006D 170 OPCDSW1 XI *+t5_X*FO! 00017000 

00006C 4700 C082 00088 171 BC O,ADDRESS 00017100 

" % 172 * a 00017200 

L{T4:% AND THIS ONE BRANCHES EVERY EVEN~NUMBERED TIME. 00017300 

7 174 * | 00017400 

00007C 97FO CO6F 00075 175 OPCDSW2 XI *+5—X#FO! 00017500 

000074 47FO C082 00088 176 © BC -15,ADDRESS 00017600 

— @ ee | | 177 * te ae. 00017700 

178 * | : | 00017800 

Oe fe NOTICE THAT THE ONLY SIGNIFICANT DIFFERENCE BETWEEN THE TWO 00017900 

180 * SAMPLES IS THE INITIAL SETTING OF THE SWITCH'S CONDITION MASK. 00018000 


18] #--~+---~---+--~------+-+---------+--------------------- ~--~------------- 00018100 


BRANCHING AND SWITCHING WORK PROJECT. PAGE qT 
LOC OBJECT CODE ADDR1 ADDR2 ° STMT SOURCE STATEMENT FOBSAPRTI0 9/17/70 
L832. 43==S5e—S5 SSS SSeS S SS See SS = SS SSS SS SS SS Se if a a en ie i ne ae ae 00018300 
184 * IF YOU HAVE BEEN SUCCESSFULLY FOLLOWING WHAT WE'VE BEEN 00018400 
185 * DOING, YOU HAVE A GOOD KNOWLEDGE OF HOW WE MAY ALTER 00018500 
186 * BRANCH INSTRUCTIGN®S MASK TO CREATE A ** PROGRAM SWITCH. 00018600 
187 * a8 00018700 
188 * QO.K. tOOK, IF YOU WILL, AT THE FOLLOWING TWO EXAMPLES. 00018800 
189 * NOTE THAT THEY ARE SIMILAR TO THE LAST TWO IN THAT THEY 00018900 
190 * MODIFY AN INSTRUCTION. HOWEVER, THEY MODIFY THE OPERATION 00019000 
191 * CODE PORTION OF THE INSTRUCTION, WHERE THE PREVIQUS SAMPLES 00019100 
192 * MODIFIED THE BRANCH CONDITION MASK. 00019200 
193 *eeEeEXK THE QUESTION BELOW I[S DESIGNED TO HELP EXPLAIN THE CODE, SO 00019300 
194 * ANSWER THE QUESTION NOW. . 00019400 
195 * . 00019560 
196 * THIS ONE WILL BRANCH ONLY THE FIRST TIME I[T IS EXECUTED. 00019600 
000078 9706 CC72 06078 197 EXAMPLE! XI *,6 . 00019700 
QOO00TC 4776 C082 00082 198 BC T, ADDRESS 00019800 
199 * 00019900 
200 * AND THIS ONE WILL BRANCH EVERY TIME BUT THE FIRST. 00020000 
ee 201 * 00020100 
900080 9706 CO7A 00080 202 XI * 6 00020200 
000084 4780 C082 00088 203 BC 8,ADDRESS 00020300 
. 204 * 06020400 
205 Kem rw re ee Se se en a a a cm rs nuh en a es ee aS eS aes ests 00020500 
2OT RRR RERE EEK EERE QUESTION 90 G BR RRR RRR ERR KEK RK KKK EKERKER OOCOZGTO0 
208 . 00020800 
209 * ~~~ FILL IN THE BLANKS. -~=- 00020900 
210 * . 00021000 
211 * ALL OF THE QUESTIONS IN THIS BLOCK REFER TO *EXAMPLE1L* ABOVE. 00021100 
212 * ; 00021200 
213 * IN ORDER TO UNDERSTAND WHAT HAPPENED IN THE LAST TWO. 00021300 
214 * EXAMPLES, IT IS NECESSARY TO BE ABLE TO SEE WHAT WAS OGNE 00021400 
215 * TO THEIR OPERATION CODES. CONSIDER WHAT WILL BE THE 00021500 
216 * RESULT WHEN WE EXCLUSIVE OR THE *XI* OP-CODE (X'97') 00021600 
217? * WITH THE VALUE OF THE IMMEDIATE DATA IN THE INSTRUCTION CC021700 
218 * (X'064). THE CALCULATED RESULT [S X*__*", WHICH IS THE 00021800 
219 * OPERATION CODE FOR THE ___o _._ INSTRUCTION. 00021900 
220 * 00022000 
221 * WHEN WE EXECUTE THE RESULTING INSTRUCTION, WHICH [S: 00022100 
222 * 00022200 
223 * = *16 (SUBSTITUTE THE MNEMONIC FOR THE YOUR LAST 00022300 
224 * ANSWER IN THIS OP CODE FIELD.) 00022400 
225 * 00022500 
226 * WE CAN SEE THAT THE CONDITION CODE SETTING FOR THE NEW 00022600 
22 * INSTRUCTION IS EQUAL TO __ AND THEREFORE, THE INSTRUCTION: 00022700 
228 * CO0022800 
229 * BC TsADDRESS 00022900 
230 * 00023000 
231 * ~~~ CIRCLE THE CORRECT ONE ---~ 00023100 
232 * 00023200 
233 * WILL (BRANCH/NOT BRANCH) 00023300 | 
234 * . 00023400 
2335 OR OG ito a ok a a CR I II IO OR sok a aok ig aka ak ik te ko ck ct §=90023500 


, | 


BRANCHING AND SWITCHING WORK PROJECT. | | PAGE 8 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT70 9/17/70 
237 ia aie oso. le aCe eee SESE Oe le OOS OS SSS OLS ROS Eee SECA WOES COS 00023700 
238 * ANSWER 9.4 00023800 
239 * 00023900 
240 * X?#91® =-— X#9748 EXCLUSIVE OR'ED WITH X*06'. 00024000 
241 * TEST UNDER MASK —=— THE. INSTRUCTION WHOSE OP CODE = X'91"*, 00024100 
242 * ™ —-— THE MNEMONIC FOR TEST UNDER MASK 00024200 
243 * O (ZERO) --— THE CONDITION SET WHEN ** TM ¥*,6 *" IS EXECUTED. 00024300 
244 * NOT BRANCH -- BECAUSE THE MASK VALUE OF 7 WILL NOT ALLOW 00024400 
245 * THE BRANCH TO BE TAKEN, SINCE BOTH BITS 5 & 6 00024500 
246 * ARE ZERO. IN THE OP CODE. 00024600 
247 * 00024700 
248 *e eee WHEN YOU REACH THIS POINT, DISPLAY THE GREEN SIDE OF THE 00024800 
249 * "ANSWER CUE". 00024900 
250 OE gi ie. We alae We oie! ee 8 eb SNS: BO SSO Swe WS SR OS lw CSS CASS SX 00025000 
252 % en - +--+ $e wa - - - + - = 00025200 © 
253 * 00025300 
254 * THE PRECEEDING WERE HOPEFULLY INTERESTING AND WERE COMPLETELY 00025400 
255 * VALID METHODS OF IMPLEMENTING **PROGRAM SWITCHES**. BUT, 00025500 
256 * THEY HAVE ONE MAJOR DRAWBACKs, WHICH WE WILL NOW EXAMINE. 00025600 
257 * | 00025760 
258 * IN THE SECTION ON SUBROUTINE USAGE, WE DISCUSSED SOME 00025800 
259 * PROGRAM ATTRIBUTES, WHICH WE CALLED: NON—REUSABLE, 00025900 
260 * SERIALLY REUSABLE, RE-ENTRANT, AND REFRESHABLE. THE EXISTENCE G0026000- 
261 * OF ALL 4 QF THESE WAS DETERMINED ON THE BASIS OF WHETHER OR 00026100 
262 * NOT THE PROGRAMMER DID ANY DIRECT MODIFICATION OF THE 00026200 
263 * STORAGE ALLMCATED TO HIS PROGRAM. 00026300 
264 * 60026400 
265 * IF YOU CONSIDER WHAT WE HAVE DONE IN ALL THE PRECEEDING 00026500 
266 * EXAMPLES, YOU WILL NOTICE THAT EACH ONE MODIFIED NOT JUST 00026600 
267 * A CONSTANT, BUT THE CODE ITSELF. AN OBVIOUS VIOLATION 00026700 
268 * OF RE=ENTRANCE,;, AND, IF NOT PROPERLY INITIALIZED, 00026800 
269 * A VIOLATION OF EVEN REUSABILITY. 00026900 
270 * 00027000 
271 * IF ¥QU DO NOT RECALL THE MEANING OF THE TERMS 00027100 
272 * "REUSABLE* AND "RE—ENTRANT*’, NOW WOULD BE A GOOD 00027200 
273 * TIME TO GO BACK TO THOSE NOTES YOU TOOK IN THE 00027300 
274 * SUBROUTINE USAGE SECTION, OR BUG YOUR INSTRUCTOR 00027400 
275 * AND HAVE HIM EXPLAIN THE CONCEPT TO YOU. ) 00027500 
276 * ‘ 00027600 
277 * GO AHEAD, I*LL WAIT HERE FOR YOU... 00027700 
278 *-------- + - ne a + + 00027800 


82 


LQaC 


000088 
0C0088 
CO008A 
20008C 
900090 


(000094 


000098 
COOO9C 
QOOQOAC 
OO00A4 
COO0A8 
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OBJECT CODE 


LBEE 
18FE 
44F0 
56E0 
47F0 


CGA2 
CU9A 
C084 
54E0 CO9E 
47FO0 COA6 
OOOCOOFO 

QO00000F 

4700 C092 


ADDR1I ADDR2 


OOOA8 
OOOAD 
OO08A 
OOGA4 
COUAC 


00098 


STMT SOURCE STATEMENT FO8APRT70 
280 *~—w ~~ ~~ + ~~ + ------~ ww ~~ 
281 * 

282 * IN ORDER TG MAKE OUR PROGRAM "RE=ENTRANT*, WE WOULD HAVE 

283 * TO GET BY WITH SOME OTHER MEANS GF MODIFYING THE PROGRAM 

284 * SWITCH: WHICH, IN THIS CASE, CANNOT BE A STORAGE LOCATION. 
285 * 

286 * SEEM LIKE AN IMPOSSIBLE TASK ? FORTUNATELY, IT IS NOT. 

287 * DEEP DOWN IN OUR BAG OF TRICKS WE FIND THE VERY VERSATILE 
288 * EXECUTE INSTRUCTION, WHICH, AS YOU RECALL, GIVES THE 

289 * COMPUTER THE IMPRESSION THAT WE HAVE MODIFIED AN INSTRUCTION 
290 * ALTHOUGH WE KNOW THAT THE INSTRUCTION NEVER CHANGED. 

291 * CHANGE, LIKE BEAUTY, IS IN THE EYE OF THE BEHOLDER. | 
292 * BEHOLD THEN, THE FOLLOWING EXAMPLE, WHICH IS *SWITCH!® (FROM 
293 * QUESTION 9.1) ALL OVER AGAIN, BUT IT IS RE-ENTRANT THIS TIME. 
294 * 

295 #w------- ~~ - = + + oe aan = 
296 ADDRESS EQU * 

297 SR 14,14 

298 PICKUP15 LR. 15,14 a 

299 EX 15,SWITCH3 2 

300 0 14,F240 3 

301 B PICKUPL5 4 

302 DCNTDOOME N 14,F15 5 

303 B SWITCH34+4 6 

304 F240 DC F'240" 

305 Fl5 DC FHyse 

306 SWITCH3 BC 0, OCONTOOME 

307 x = : 

308 * THIS SAMPLE IS NOT INTENDED TO BE A PARTICULARLY GOOD 

309 * CODING EXAMPLE, BUT IT SERVES TO ILLUSTRATE A POINT. 

BLO Ke a we ne ne 9 = 

3212 36 oe oe fe fe fe Xa fe ofc oe ok te te ake oe ote af ae ic ak ok of ok ok QUESTION 9.5 He we He fe ake ok of aie afc ote ake Ke oe ok of oc Ke OKC i Khe ie 2h Nc oe ae ie ae Kok ok OK 
313 * TO INSURE THAT YQU SEE THE SIMILARITY, DETERMINE THE GRDER 

314 * IN WHICH THE INSTRUCTIONS IN THE EXAMPLE ABGVE WILL BE 

315 * EXECUTED AND WRITE THEM BELOW BEFORE GOING ON TO THE NEXT 

316 * PAGE. ASSUME THAT THE SR 14714 IS EXECUTED FIRST, BUT DON'T 
317 * WORRY ABOUT IT*S NOT HAVING A NUMBER. 

318 Peete SSeS SSS. SS SSS SS SST SSS SSS OSS SSS SL SSS SSS LSS CS SSeS SS SS SS SS SSS SS SS SS SSS. 
319 * 2 | 

320 * 

321 * : 

BQ D eA ae a oe a eK a fe a a a a RE A RC CR EE RE a RR RC aK RC RO a a a a a a a CR ie ae oe a ok a 
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00028000 
00028100 
00028200 
00028300 
00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029600 
00029700 
00029800 
00029900 
0003G0G0 
00030100 
000302uU0 
00030309 
00030400 
00030500 
00030600 
00030 700 
06030800 
00030900 
00031000 


00031200 
00031300 
00031400 
00031500 
00031600 
00031700. 


00031800 > 


00031900 
00032000 
00032100 
00032200 


LOC 


COOOAC 
0000B 0 


000084 
OCO0B6 
COOCOBA 
OOOOBE 
OOOOBF 
0000C0 
0000C1 
0000C2 
0000C6 
O0000C 6 


0000C8 


BRANCHING AND SWITCHING WORK PROJECT. PAGE 10 
OBJECT CODE ADDR1 ADDR2 STMT SQURCE STATEMENT FO8APR70 9/17/70 
324 Kec cece eee ashe SPOS OHS CHEE EHEC HL EEE EEO HERES E EERO E OO HORDE 00032400 
325 * ANSWER 9.5 00032500 
326 * 00032600 
327 * THE INSTRUCTIONS WELL EXECUTE IN THE ORDER: 142539491929596 00032700 
328 * 00032800 
329 * REALIZE, OF COURSE, THAT WITH EACH EXECUTION OF THE EXECUTE 00032900 
330 * INSTRUCTION, THAT THE INSTRUCTION LABELED "SWITCH3* WAS ALSO 00033000 
331 * EXECUTED. BECAUSE THE EFFECTIVE MASK WAS FIRST EQUAL TO 0 AND 00033100 
332 * THEN CHANGED TO 15, THE BRANCH FIRST FAILED AND THEN WAS 00033200 
333 * TAKEN THE SECOND TIME IT WAS EXECUTED. 00033300 
334 * 00033400 
335 errr Se ee ee ee ee ee ee ee ae a a a ee ee a ee CEC CCE TCP EE TCT Te eee 00033500 


337 CERO oak cciooktok QUESTION 9.6 RG tain cick etc tocces: 006033700 


338 * | 00033800 
339 * IN THE FOLLOWING CODE, WHICH BYTE, ("MASK1*,*MASK2" OR "MASK3") 00033900 
340 * SHOULD I INSERT INTO REGISTER 15 IN ORDER TO BRANCH TO G0034C00 
341 * LOCATION "ALOWER® ? 00034100 
342 * | , — 06034200 
BG RA Ra AE a Re a A A 2 RR RO RR RR Ra aR OE RE RE a RC I CK KK i KK a a KK KEK =~ O003 4300 
4120 OO0A OOO0A 345 LA. 2710 . | 00034500 
4130 0014 00014 346 LA 3420 GCEGEGEEEE EEE EEE GEEGEGEEEEEGEE 00034600 
| 347 * IC Lees OR & WRITE IN THE FIELD NAME & 00034700 
1923 348 CR 273 & (MASK1, MASK2 OR MASK3). & 00034800 
44FO COBC 000C2 349 EX 15, BRANCH EE EEEEEEEEEEEE EEEEEEEEEEEEEE 00034900 
47FO COC2 Q000C 8 350 B AHIGHER 00035000 
80 351 MASK1 DC X* 80? 00U35100 
4C 352 MASK2 DC X* 408 00035200 
20 353 MASK3 DC X*20° 00035300 
00 7 
4700 COCO 000C6 354 BRANCH BC -0,ALOWER 00035400 
355 ALOWER EQU * 00035500 
1A32 356 AR 392 JUST A FILL INSTRUCTION TO MAKE 00035600 
357 * "ALOWER® AND *AHIGHER® OLTFFERENT 00035700 
358 * LOCATIONS. 00035800 
359 AHIGHER EQU * 


00035900 


BRANCHING AND SWITCHING WORK PROJECT. . | PAGE li 


LNC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FOS8APRTO 9/17/70 
361 Beg) 6 io ec alee a cere a ei a Owe ia we) we ee a ee ee Oe 0 OS Sw ee oe Oe wae ee 6 ea ee ee 00036100 

362 * ANSWER 9.6 06036200 

363 * | 00036300 

364 * Ic 15 yMASK2 , 00036400 

365 * 00036500 

366 * THIS SETS UP THE BRANCH TO APPEAR AS BC 4,ALOWER 00036600 

367 * AND, SINCE 10 IS LOWER THAN 20,9. NATURE TAKES IT*S PROPER 00036700 

368 * COURSE. : a : C0036800 

369 * | 00036900 

370 **kkkee* WHEN YOU REACH THIS PGINT, DISPLAY THE BLUE SIDE OF YOUR 00037000 

371 * “ANSWER CUE". 00037100 

372 Keres eceseesececcer sess e es eses es eeseeeseeeeereeseseeeereseseseeneeeseseoe 00037200 

374 *-------------- wen a ee = = wa 00037400 

375 * | | 00037500 

376 * GOOD ENOUGH, THAT CONCLUDES THE PORTION ON THE USE OF 00037600 

377 * PROGRAM SWITCHES. THE BALANCE GF THIS PROJECT WILL BE 000377006 

378 * DEVOTED TO ILLUSTRATIONS OF OTHER WAYS IN WHICH BRANCH 00037800 

379 * INSTRUCTIONS ARE COMMONLY USED. 00037900 

380 * 00038000 

381 * BACK IN THE PROJECT ON **SUBROUTINE USAGE'*, WE USED A 00038100 

382 * SUBRGUTINE THAT RETURNED A CODE IN REGISTER 15 TO INDICATE 00038200 

a 383 * JUST HOW SUCCESSFUL IT WAS IN FULFILLING THE JOB THAT WE HAD 00038300 
2 384 * CALLED ON IT TO DO. REMEMBER 2277? 00038400 
385 * | | | 000385C0 

386 * IF YOU FORGOT, NOW WOULD BE A GOOD TIME TO REFRESH YOUR 00038600 

387 * MEMORY BY GOING BACK AND TAKING A LOOK AT THE PROLQGUE 00038700 

388 * FOR THE EXPGNENTIATION SUBROUTINE. | 00038800 

389 * 00038900 

390 *+-------+~—~+-+-~—~—-~-—+-- ~~ +--+ + pena ne oe + 00039000 


9000C8 47FO C19E OCLA4 391 B LOCATION BRANCH AROUND THE 6&XH CODE... 00039100 


LOC 


OOO0OCC 
OOOOCE 


CO00D2 
0000D6 
OOOODA 
COOODE 
OOS0E2 


COO0E2 
COOOE6 
QOOOEA 


w OOOOEE 


OOOOEE 
OO00F2 
OOOOFS6 
QOOOOFA 


DECISION MAKING WITH BRANCH TABLES. 


OBJECT CODE 


12FF 
4770 CODC 


59FO C2lA 
4780 C120 
59FO C21E 
4780 COE8 


59F0 C21E 
4720 CCDC 
4740 C120 


47FF COEC 
47FO C120 
47TFO COES8 


OOOE2 


00220 
00126 
00224 
OOOCEE 


00224 
OO0E2 
00126 


OOOF2 
00126 
OOOEE 


ADDR1 ADDR2 STMT 


SOURCE 


Re me ae ene nee ey et eet cm ee te ee aie a ae eee a ee es SE 0 eh 8 D> DP 8 0 OP 8 0 ee 0 De om > 8 08 Se ee re re ae ee PP OO ee ee ee om 


* 
* 


He He He HH HK 


PHOOEY 
x 
xe 
x 


HALFGOOD 


HHHeHH HH HH 


BRTABLE 


BADBAD 


MH HH HH HH HH He OH HOH 


STATEMENT FO8APRT0O 


GOOD+ NOW THAT YOU REMEMBER THAT, REMEMBER ALSO THAT WE 
TESTED THE COMPLETION CODE USING SOMETHING LIKE THIS: 


LTR 154915 
BNZ PHOOEY 


THE PROBLEM WITH THIS METHOD OF TESTING IS THAT IT HAS NO 
WAY OF DISTINGUISHING THE DEGREE OF FAILURE THAT OCCURRED 
WHEN WE USED THE SUBROUTINE. 


O«.Kee YOU MIGHT SAY, WE COULD USE A COMPARISON OPERATION 
AND TEST THE VALUE OF THE RETURN CODE. CONSIDER: 


C 15,=F*O? 
BE GOODASAU 
C 15,=F"4! 
BE HALFGOOD 
EQU ** 


OR, MORE IDEALLY, 


C 15,=F'4't 
BH PHOOEY 
BL GOODASAU 
EQU me 


ALL THINGS BEING EQUAL, THE AVERAGE PROGRAMMER MIGHT BE MORE 
INCLINED TO USE SOMETHING CALLED A **BRANCH TABLE", WHICH, 
AS YOU WILL SEE, IS JUST A BUNCH OF BRANCH INSTRUCTIONS 
ARRANGED SYSTEMATICALLY. 


HERE*S ONE THAT DOES THE SAME THING AS THE PRECEEDING 
EXAMPLES. 


B BRTABLE(15) 

B GOODAS AU RETURN CODE = 0 
B HALFGOOD RETURN CODE = 4 
EQU * . RETURN CODE = 8 


BECAUSE THE USE OF THE BRANCH TABLE IS SO COMMON, IT 

HAS ALMOST BECOME A CONVENTION FOR SUBROUTINES TO RETURN 
CODES WHICH ARE MULTIPLES OF 4 (THE LENGTH OF THE BRANCH 
INSTRUCTION). 


NOTICE THAT ALTHOUGH THE CODE FOR THE SAMPLE CALLED 

"BRTABLE® USES AS MANY BYTES OF CQRE AS THE SAMPLE BEFORE IT, 
THE AMOUNT OF CODE TOG TEST FOR MORE RETURN CODES GROWS 

ONLY SLIGHTLY FOR THE BRANCH TABLE (4 BYTES TIMES THE NUMBER 
OF CODES TO BE RETURNED). 
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00039300 
00039400 


- 00039500 


00039600 
00039700 
00039800 
00039900 
00040000 
00040100 
00040 200 
00040300 
00040400 
00040500 
00040600 
00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 
00041800 
00041900 
00042000 
00042100 
00042200 
00042300 
00042400 
00042500 
00042600 


00042700 


00042800 
00042900 
00043000 
00043100 
00043200 
00043306 
00043400 
00043500 
00043600 
00043700 
00043800 
00043900 
00044000 
00044100 
00044200 
00044300 
00044400 


Nt 


LOC 


OOOOFA 
OOOOFE 
C00102 
000106 
QOO10A 
OOO1OE 
000112 
000116 
OOOLLA 
mS OOO1LLE 
000122 


DECISION MAKING WITH BRANCH TABLES. 


OBJECT CODE 


4TFF 
47FO 
4TFC 
47FO 
47FO 
47FO 
4TFO 
47FG 
4TFO 
4TFC 
4TFO 


COF4 
C120 
C120 
C120 
C120 
C120 
C120 
C120 
Ci20 
C120 
C120 


OOOFA 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 


ADDR1 ADDR2 STMT 


SOURCE STATEMENT 


FO8APRT70 
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JOO aK aagoikicokieok QUESTION 9.7 3d ioe ka tock ccaccct 00044600 


He HH H OH 


x 
* 


BTABLE 


OKs 


THE CONCEPT 


OF THE BRANCH TABLE IS RATHER SIMPLE; 


BY NOW, YOU MUST BE READY FOR A QUESTIGN ABOUT ONE. 


IN THE FOLLOWING, WHAT MUST THE RETURN CODE BE TO CAUSE US 
_  . FTO BRANCH TO | 
2 AR A RC aC a ROR RO RRR RRR RO RR ARR A CCE OO a A aK a a i a ak 


OOomowoowoaowona.a 


BTABLE(1L5) 


COOLCOOL 
CLOSE 
ENUF4 JAZ 
MEDIOCRE 
GETSCOLD 
HALFPAST 
BLEAH 

Y ECHHH 
ROTTEN 
DISASTER 


*"BLEAH® ? 


SO, 


He he a ee a 2 2 2K 2 oe ik afc 2 a he ae ake a a Re a a ae ae a a ae oe ae Re i ae Rc Ne 2 a a eK I RK IK A OC aK A 


00044700 
00044800 
00044900 
0004500G 
00045100 
00045200 
00045300 
00045400 
00045500 
00045600 
00045700 


00045900 
00046000 
00046100 
00046200 
00046300 
00046400 
00046500 
00046600 
00046760 
00046800 
00046900 


DECIS¥ON MAKING WITH BRANCH. TABLES. | | . a _* - PAGE 14 
a a : ; 
LOC OBJECT CODE ADOR1 ADDR2 STMT SOURCE STATEMENT © | FOBAPRTO 9/LT/TO | 
S , 471 Kee e ose seer see ees sees ase eset Oh SCE H FOE Heeese reese ereseeesseeeereeesres 00047100 
472 * ANSWER 9.7 . : 00047200 
473 * | | . | 00047300 
474 * THE RETURN CODE MUST BE EQUAL TO 28. 00047400 
475 * 00047500 
476 * IF YOU GET ANYTHING ELSEs GO BACK AND LOOK AT THE TABLE 00047600 
477 * AGAIN. QH YES» WHEN YOU LOOK BACK AT IT, ALSO ANSWER 00047700 
478 * QUESTION 9.8. © : 00047800 
479 * 00047900 
Jer er re eee ee eee eee ee ee eee ee eee eee eee ee ee ee ee ee ee ee ee ee 00048000 


480 


482 Me MM HH KKK KKREKEKKE QUESTION 9.8 AE HR ME RRR AK ER OH RCC a OE EE 00048200 


483 * ; | 00048300 
484 * | LOOK AT THE FIRST INSTRUCTION. IS THERE ANYTHING ABOUT IT - 00048400 
485 *  — THAT WOULD MAKE IT BEHAVE INCORRECTLY ? . | - 00048500 
486 * : | 00048600 
487 Be He a A Fe Me He EH I RE a HR EI He EH HE HM HH EM MH HE HH HE EK HK 00048700 
488 * | | : 00048800 
489 * | 00048900 


4 QQ RK HH eH he eK hee He ee Re Me He Re he HME EAR Be ER I HK EI IK KE RK KK KE KKK OOO4I000 


DECISION MAKING WITH BRANCH TABLES. | . as - oe | PAGE 15 


LOC OBJECT CODE ADDR1 ADDR2 = STMT SOURCE STATEMENT FO8APR70 9/17/70 


492 Psa Jah aw hea aR Oa AS Se MOO ESO ee ER CARESS OARS ERR 00049200 
493 * ANSWER 9.8 77% . | 09049300 
494 * 00449400 
495 * THAT DEPENDS. ON YOUR POINT OF VIEW. WHAT DOES HAPPEN IS THAT 00049500 
496 * THE FIRST INSTRUCTION WILL LOOP FOREVER IF A CODE OF O IS 00049600 
497 * RETURNED. AND REMEMBER, ZERO‘WAS THE RETURN CODE FOR 00049700 
498 * SUCCESSFUL COMPLETION. SO WE WOULD EXPECT A RETURN CODE OF 00049800 
499 * ZERO NORMALLY, AND TO LOOP IF EVERYTHING GOES WELL IS NOT 00049900 
500 * PARTICULARLY ADVANTAGEQUS, UNLESS OF COURSE, YOU CAN‘T 00050000 
501 * STAND PROSPERITY. 00050100 
502 * ~ 00050200 
503 *xxeeeeX WHEN YOU GET HERE, DISPLAY THE RED SIDE OF THE "ANSWER CUE". 00050300 
504 * | . 00050400 
x 


505 @eeseeoevevoeaoeeeaeesvesvs* es eeveeveeveeeveaeeveesevoeaeweoeeen ews eeaeesneoeoaeeoaeaeoae wees eaoeaneaeowee ee ee ee eee 00050500 


507 *&GGEE GEEEEEEEEEEEEESE EEE EEE GESEEE SEECECEEEEEEE EEE EE EEGEEEREEEEEESEEEEEEE 00050700 
508 * SKIP TO THE NEXT PAGE, THE EQUATES THAT FOLLOW ARE JUST TO 00050800 
509 * KEEP THE NAMES I* VE BEEN USING FROM COMING OUT UNRESOLVED. 00050900 
510 *&EEEEEEESCEEEEEEEE EEE SESE ECEEEE EE EEE EEEEEE EE GESE GEEEEEEEEEEEEEEEEEESEEEE 00051000 


00051200 


g 000126 . 512 GOODASAU EQU ** YOU 

000126 513 COOLCOOL EQU * MAY 00051300 
000126 514 CLOSE EQU * IGNORE 00051400 
000126 515 ENUF4JAZ EQU * THESE, 00051500 
000126 516 MEDIOCRE EQU * THEY 00051600 
000126 517 GETSCOLD EQU * ARE 00051700 
000126 518 HALFPAST EQU * ONLY HERE 00051800 
000126 519 BLEAH EQU * TO 00051900 
000126 520 YECHHH EQU * MAKE THE 00052000 
000126 521 ROTTEN EQU * ASSEMBLER 00052100 
C00126 522 EQU * HAPPY. 


DISASTER 


00052200 


Se 


BXH AND BXLE FOR PROGRAM LOGIC CONTROL. 


LOC OBJECT CODE 


000126 8634 C124 


ADDRi ADDR2 


0012A 


STMT 


524 
525 
526 
527 
528 
529 
530 
531 
532 


533, 


534 
oe ps. 
536 
537 
538 
o39 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
951 
552 
293 
554 
320 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 


567 


569 
570 
571 
572 
573 
574 
575 
576 
577 


SOURCE STATEMENT 


HoH HH HH He HH HH HH HH He HH HH HH HH HH HH He HH HH He HH HHH 


FOB8APRTO 


oe Se ae a ee Ee ee ee ED 0 ee > cee ee 0 OP ee eR 0 ID ED EP EP ID SE ee OP OO ED OO > ee 9 0 ep ee oO oe a ee a Oe a ee ee 


NOW WE MOVE ON TO GNE OF THE MORE EXOTIC INSTRUCTIONS CALLED 
*BRANCH GN INDEX HIGH" OR BXHy AND ITS RELATIVE "BRANCH ON 
INDEX LOW OR EQUAL® OR BXLE. THE WAY THAT I'M GOING TO USE 
THESE TWO INSTRUCTIONS HERE IS PROBABLY NOT THE WAY THEY 
WERE INTENDED TO BE USED; BUT IT TURNS OUT TO BE QUITE 

HANDY AND RAPIDLY GAINING IN POPULARITY. 


LET US FIRST EXAMINE THE OPERATION OF THE INSTRUCTION IN ITS 
LEAST INVOLVED FORM. 
THE INSTRUCTION FORMAT IS... 


BXH REGA,sREGB,LOCATION 


TT TS INTUITIVELY OBVIOUS TO THE MOST CASUAL OBSERVER THAT 
THERE ARE TWO REGISTERS USED IN THE BXH INSTRUCTION, RIGHT ?? 


WRONG .-- THAT WILL TEACH YOU TO ONLY CASUALLY OBSERVE. 

THE SECGND GPERAND "REGBt USUALLY ADDRESSES AN EVEN NUMBERED 
REGISTER, AND WHEN IT DOES», THE NEXT HIGHER ODD REGISTER 
ALSO GETS INCLUDED IN THE ACTION. 


LETS SEE, THAT GIVES US THREE REGISTERS NAMED REGA, REGB 


AND REGBt+1. FUNCTIONALLY (BASED UPQN WHAT THEY DO), WE 


MIGHT CALL THESE REGISTERS BY THE FOLLOWING NAMES. 

REGA IS CALLED THE 'INDEX*®.  . 

REGB WE WILL CALL THE "INCREMENT", BECAUSE IT IT USED TO 
INCREASE THE VALUE IN REGA. 

REGB+1 IS THE *COMPARAND® BECAUSE IT WILL BE COMPARED TO 
THE *INDEX®. 


SO, THE BXH WORKS LIKE THIS: 
1) THE *INCREMENT® IS ADDED T9 THE fINDEX'®. 
~*REGA® = fREGAT + "REGB! | ; 


2) THE NEW "INDEX*® VALUE IS COMPARED TO THE 'COMPARAND'. 


"REGA® ? "REGBt1* (? MEANS COMPARED AGAINST) 


3) IF THE NEW *"INDEX® IS HIGHER, WE TAKE THE BRANCH. 
IF "REGA® > *REGB+1", BRANCH. 


READ THAT OVER AGAIN TO BE CERTAIN THAT IT IS CLEAR, 
THEN ANSWER THE FOLLOWING. | 


EK SK I RK a aK a a a eK KK KKK QUEST LON DQ RRR I I IE I EK HK 


x 
> 
* 
* 


REGISTER 3 CONTAINS 250. 
REGISTER 4 CONTAINS 25. 
REGISTER 5 CONTAINS 275. 
IF I EXECUTE THE FOLLOWING, WILL WE BRANCH TO *INDEX3HI* ? 


HEM HE He A KE a a Oe A I RK OO Ce EK AE fe RE A OC A RAC CA A A A OE OK RC OK I AE EK EE EK OK OK 


* 


RE aK AE eR OK OK 2 af a 2 aK 2 KK OE RO oe he ae Oe a ee 2 OO a a a AC a CC Re Re ee AE I AO AC AE AE IK OK AC OK 


BXH 394,INDEX3HI 
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00052400 
00052500 
00052600 
00052700 
00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053400 
00053500 
00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054200 
00054300 
00054400 
00054500 
C00546C0 
00954700 
00054800 
00054900 
00055000 


00055100 


00055200 
00055300 
00055400 
00055500 
00055600 
00055700 
00055800 
00055900 
00056000 
00056100 
00056200 
00056300 
00056400 
00056500 
00056600 
00056700 


00056500 
00057000 
00057100 
00057200 
00057300 
00057400 
00057500 
00057600 
00057700 


BXH AND BXLE FOR PROGRAM LOGIC CONTROL. . . PAGE 17 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOBAPR70 9/17/70 


579 ee ae C0 ae eee @eeeeeeoeeneeoew#weseoeaotspeoesowea#eoweaeeeaesneonee ee @ eoes eesaeeseeoeese@ae*e4aese#e7eseeeeoee#e#ee 00057900 
580 * ANSWER 9.9 : | : 00058000 
581 * : | : 00058100 
582 * NO, BECAUSE 250 + 25 IS NOT HIGHER THAN 275. 00058200 
583 * REG3 + REG4 IS NOT HIGHER THAN REG 5. 00058300 
584 x, @eeeseees? eon e@eeeseseeeees ee @eeoeseeo@eeeeeeenweveaeneeeeeonsvpeeevwmeeweoesosevaneoasvpaesvneaeeweaee oe eaeeane 8 00058400 


Q0012A 585 INDEX3HI EQU * . C0058500 


SBT KR KK KK KK KKK QUESTION De LQ %RMRR RRR KKK KK KKK KKKKK OO058 700 


588 * . 00058800 
589 * ALL RIGHT, JUST FOR DRILL, WE'LL TRY ANOTHER ONE. GIVEN 00058900 
590 * THE FOLLOWING REGISTER CONTENTS, 00059000 
591 * REGISTER 3 CONTAINS 12345. 00059100 
592 REGISTER 4 CONTAINS ~-1224. 00059200 
593 * REGISTER 5 CONTAINS 11111. 00059300 
594 * IF { EXECUTE THE FOLLOWING, WILL I BRANCH TO "INDEX3AI® ? 00059400 
595 * 00059500 
BGG RA ARH RC 2 a CE 2 A RR KC OK EO EO OK Ro eK KK KKK OOO5S600 
597 * . 00059700 


QB HA AH RE RR RE I OK NC aR RE i 2 a a i a a a aK a ok a a oe a a ek ok kK 0059800 
O0012ZA 8634 C128 . OG12E 599 BXH . 394 eINDEX3AI 00059900 


BXH AND BXLE FOR PROGRAM LOGIC CONTROL. PAGE 18 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT70 9/17/70 
601 BE aS Ss). ese 4S Oo ee aS Oe SO OE eo SOW 0S OS SOS SSS Swe OAS eo o6 5's 4 Oe Eee See 00060100 

602 * ANSWER 9.10 00060200 

603 * 00060300 

604 * YES, BECAUSE 12345 + (+1224) IS HIGHER THAN 11111.€1T = 11121) 00060400 

605 * REG.3 + REG.4 IS HIGHER THAN REG.5. 00060500 

COG: ii So 566 ae 66.4.5 SS ale we Oe Ra eo Ob SSS SEs BEE Sh eee eae es beeee OC060600 

00012E : 607 INDEX3AI EQU * | | 00060700 
609 *-----~—=------ +--+ -- we ne a a ---— 0C060900 

610 * 00061060 

611 -* FIRST VARIATION ON A THEME. 00061100 

612 * 00061200 

613 * BXH REGA,REGByLOCATIGN 00061300 

614 * . 00061400 

615 * SUPPOSE WE WERE TO USE AN OGDD=NUMBERED REGISTER FOR REGB. 00061500 

616 * IN SO DOING, REGB+1 IS NG LONGER ODD AND THE BXH OPERATION 000616006 

617 * CHANGES SLIGHTLY. 0G061700 

618 * | 00061800 

619 * IF THE SECOND OPERAND IS AN ODD—NUMBERED REGISTER, IT BECOMES 00061900 

620 * BOTH "INCREMENT® AND *COMPARAND® AND THE INSTRUCTION GOES 00062000 

621 * GN AS BEFCRE. . | 00C621C0 

622 * 00062200 

w 623 * 1."*REGA' = *REGA* + *REGB! | | 00062300 
ioe 624 * 2-"REGA® ? *"REGB? (? MEANS IS COMPARED AGAINST) 00062400 
625 * 3.I1IF "REGA® > *REGB*, BRANCH. . 00062500 

626 * 00062600 

627 ¥*¥—----~------------=- -~------- a = wee  - - - - -  - -- - - -  --- - 00062700 


629 eco aoe QUESTION 9.11 2G a ook: 00062900 


630 * GIVEN: REGISTER 4 CONTAINS 2506. 00063000 
631 * REGISTER 5 CONTAINS 25. . 00063100 
632. ¥ 00063200 
633 * IF © EXECUTE THE FOLLOWING, WILL I BRANCH TQ "INDEX4HI® ? 00063300 
634 RRR RR ORI RR OR RIO a A HO a a a aoa kk tok tok dokack §=0006 3400 
635 * 00063500 
636 * | | 0.006 3600 


63.7 AAO Ia ICICI IO IG RI aC I ai ack a aK itor ec 00063760 
ZTOOLZE 8645 C12C 00132 638 BXH 4y5,INDEX4HI ers 00063800 


8e 


BXH AND BXLE FOR PROGRAM LOGIC CONTROL. 


Loc OBJECT CODE ADDR1 ADOR2 STMT 


640 
641 
642 
643 
644 
645 
C00132 . 646 


000132 8633 C19E OO1A4 678 


SOURCE STATEMENT | a a FOBAPRTO 
Kee cece cence cece eee ce cece cece esececreessseccccececsreccseescesvececes 
* ANSWER 9.11 | 
i" | 
* YES, BECAUSE REG4 + REGS IS HIGHER THAN REGS. 

* 250 + 25 IS HIGHER THAN 25. 
Ke eee ee PPPOE HERES EEE HEROES HEEHECEEROESE REE HER OOH CCE CEH OEE DR ESENS 
INDEX4HI EQU * 


SECOND AND FINAL VARIATION ON A THEME. 
NGW WE GET TO THE REAL FUN. cece 


IF WE WERE TO MAKE REGA EQUAL REGB, AND MAKE (IT/THEM) ODD 
AT THE SAME TIME, THE ONE REGISTER WOULD BE ‘INDEX’, 
"INCREMENT® AND "COMPARAND® AND EVERYTHING WOULD PROCEED 
JUST AS BEFORE. 

1) THE "INDEX* YS ADDED TO THE *INCREMENT®. 

2) THE NEW INDEX VALUE [IS COMPARED TO THE *COMPARAND!. 

3) IF THE *INDEX*® IS HIGHER THAN THE *COMPARAND', WE BRANCH. 


* 

He 

* 

* 

* 

* 

* 

% 

* 

* 

* 

* 

* 

* HA HA YOU SCOFF, IF YOU ADD SGMETHING TO [TSELF IT MUST 
* BE HIGHER THAN [IT WAS AND YOU WOULD ALWAYS BRANCH, RIGHT ? 
* 
* 
* 
* 
x 
* 
x 
* 
* 
* 
*x 
* 
* 
* 


WRONG «ee DO YOUR SCOFFING ON YOUR OWN TIME, LETS BE 
SERIGUS AND REALLY DIG INTO THIS INSTRUCTION. 


THE ADDITION THAT WE DO IS ALGEBRAIC, BUT NO OVERFLOW 
INDICATION IS GIVEN. THE KEY TO WHAT IS ABOUT TO HAPPEN 

IS THAT THE SIGN BIT MAY BE CHANGED DURING THE OPERATION 
AND SINCE THE ALGEBRAIC COMPARISON IS MADE WITHOUT TESTING 
FOR OVERFLOW, A PREVIOUSLY POSITIVE NUMBER MAY HAVE JUST 
CHANGED TQ A NEGATIVE ONE, IF OVERFLOW OCCURS. 


SOME CHINESE PHILOSOPHER CLAIMED THAT A PICTURE IS WORTH 
A THOUSAND WORDS, LET ME SEE IF THAT IS TRUE. LOOK AT THE 
FOLLOWING EXAMPLE OF THE EXECUTION OF THIS INSTRUCTION. 


BXH 393 y,LOCATION 
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9/1 T7TO 


00064600 
00064100 


00064200 


00064300 
00064400 
00064500 
00064600 


00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 
00065800 
00065900 
00066000 
00066100 
00066200 
00066300 
00066400 
00066500 
00066600 
00066700 
00066800 
00066900 
00067000 
00067100 
06067200 
00067300 
00067400 
00067500 
00067600 
00067700 
00067800 
00067900 


6e 


BXH AND BXLE FOR PROGRAM 


Lac 


909136 8633 C19E 


00013A 8633 C1IE 


OBJECT CODE 


ADDR1 ADDR2 STMT 


O01A4 


OO1LA4 


681 
682 
683 
684 
685 
6 86 


687. 


688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
102 
703 
104 


105 


106 
TOT 
708 
109 
710 
711 
712 
713 


715 
716 
717 
718 
719 
720 
121 
122 
123 
124 
725 


a a a a a a ac a a, a YS YS 


LOGIC CONTROL. 


SOURCE 


STATEMENT FO8APR7O 
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9/1T/TC 


CCC CC IG IC I IG ICC ICO OG oii ikki iki kk 90068100 


% % % 4H 36 4e 


fog aE QUESTION 9.12 [ARO COI I aR kak ak actook 


* 
x 


* 
* 
* 
* 
* 
x 
x 


PLUS 


EQUALS 


ASSUME THAT REGISTER 3 CONTAINS THE FOLLOWING BINARY VALUE. 


BIT NUMBER 012345 10 20 31 

REGISTER 3 = 01100111001111010010011101101001 

WHEN WE EXECUTE: 

BXH  3,3yLOCATION 

REGISTER THREE GETS ADDED TO ITSELF: 

REGISTER 3 = 01100111001111010610011101101001 

REGISTER 3 = 01100111001111010010011101101001 

NEW REG. 3 = 11001110011110100100111011010010 

WHICH IS MERELY THE OLD VALUE SHIFTED LEFT ONE BIT POSITION. 


BUT WE ARE NOT FINISHED EXECUTING THE INSTRUCTION YET, SO: 


OLD REG. 3 = 01100111001111010010011101101001 
COMPARED TO 

NEW REG. 3 = 11001116011110100100111011010010 
YIELDS: 


THE NEW VALUE OF REGISTER 3 IS LOWER THAN THE OLD VALUE 
OF REGISTER THREE, SO WE DO NOT BRANCH. 


"WHAT THE HECK ??", YOU INQUIRE POLITELY. 

"ELEMENTARY, MY DEAR WHATSIS “", [T REPLY, “REGISTER 3 IS LOWER 
NOW BECAUSE IT HAS GONE NEGATIVE WHEN THE "1" IN BIT 

POSITION 1 GOT SHIFTED INTO POSITION O (THE SIGN BIT IN THE 
REGISTER)". 


IF WE WERE TO EXECUTE THE 
BXH 343,LOCATION 
INSTRUCTION AGAIN, 
ABOVE, WOULD WE BRANCH TO 


USING THE LAST VALUE GIVEN IN THE EXAMPLE 
"LOCATIONS THIS TIME ? 


ROCIO CIO CR IGRI SII I ICO OR IO ICE i a Ri ai ak ak ake 


00068200 
00068300 
00068400 
00068500 
00668600 
00068700 
00068800 
00068900. 
000690C0 
00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
000698CC 
00069900 
00070000 
00070190 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 
00071200 


(00071300 


00071500 
00071600 
00071700 


00071800 


00071900 
00072000 
CO072100 
00072200 
00072300 
00072400 


FCC CCI CIC OI i ia doiakk kolo ick acacioakiok kak tack 00072500 


BXH AND 6XLE FOR PROGRAM LOGIC CONTROL. 


LOC OBJECT CODE 


OOO13E 8633 C19E 


ADOR1 ADDR2 STMT 


OO1LA4 


HH ee HH HH HH 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
a 
x 
* 
* 
* 
* 
* 
* 
* 
* 
ste 
* 
* 
* 
* 
* 
* 


FO RO Fok IR RI QUESTION Fe 13 i RR I a a a A aK ak a a RC a 2 aR RR aC a A a OK 


He he ae age ak ak ok af oe ok i a oe ee 2k of a ae i a ac 2 8 a a 2 a a a ae RC A a CE i AC RC A RE KC AK RK Oe A 2K 


SOURCE STATEMENT 


FOB APRTO 


eeeeeeenvnedeceeosesesvpeevese even ee evn aeeeannvneveeneeaesceoeeaaesceevaeec eee vneaeeneaeeeeneoean eee eaneoaeen eee oe 


ANSWER 9.12 


NO, WE DO NOT BRANCH THIS TIME EITHER, BECAUSE A BIT WAS 
SHIFTED INTO THE SIGN POSITION MAKING THE RESULT NEGATIVE 
AGAIN. 


CONSIDER THIS MORE CLOSELY, SINCE THE TWO VALUES OF REGISTER 
3 ARE NEGATIVE, THERE IS A CHANCE THAT THE NEW VALUE COULD 
BE HIGHER THAN THE OLD, AND MAYBE WE REALLY SHOULD BRANCH. 


ONE THING THAT YOU MUST REMEMBER, IS THAT OUR NEGATIVE NUMBER 
IN REGISTER 3 IS IN TWO*S COMPLEMENT FORM AND AS SUCH IS 
MORE "NEGATIVE* THAN IT USED TO BE. 


‘VISUALLY: 


OLD REGISTER 3 
2°S COMPLEMENT 


11001110011110100100111011010010 
00110001100001011011000100101110 (MINUS) 


NEW REGISTER 3 
2*S COMPLEMENT 


LOOLLILOOLLLILOLOOLOOLLLOLLOLOOLOO 
01100011000010110110001001C11100 (MINUS) 


BECAUSE THE NEW VALUE IS FARTHER AWAY FROM ZERO THAN THE OLD 
( IN THE NEGATIVE DIRECTION ), IT IS ALGEBRAICALLY 
SMALLER, AND WE DON'T BRANCH. : 


BOI IO ICR IC IO ROR Ra a a fai af ak a oR aR RR ARR AR a a a a RC A A i a a oa oo aK 


NOW'S YOUR BIG CHANCE...2.-. LETS EXECUTE THE SAME 
INSTRUCTION ONE MORE TIME. AND SEE WHAT HAPPENS. 
ASSUME THAT REGISTER 3 CONTAINS THE SAME VALUE THAT WE 
LEFT OFF WITH IN THE LAST QUESTION. 

WILL WE BRANCH TO *LOCATION® THIS TIME ? 


fe oe eae Ae 2 2K OK a a a 2 ac a ae KOK a Ee oe Re Re OR A a ec Oe a RC a EE a AE A CO He EE AE A OE EK fe Eo AE EO HE aK 


BXH 3793 ,LOCATION 
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9/17/70 


00072700 
00072800 
00072900 
00073000 
00073100 
00073200 
00073300 
00073400 
00073500 
00073600 
00073700 
00073800 
00073900 
00074G00 
00074100 
00074200 
00074300 
00074400 
00074500 
00074600 
00074700 
00074800 
00074900 
00075000 
00075100 
00075200 
000 75300 
00075400 


00075600 
00075700 
00075800 
00075900 
00076000 
00076100 
00076200 
00076300 
00076400 
00076500 
00076600 
00076700 
00076800 


BXH AND BXLE FOR PROGRAM LOGIC CONTROL. | PAGE 22 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/70 
779 Kee cee ces eee eee eee eee eS EHEEEE OEE OHHH EE HEH RES ERESEOR OHO OS 00077000 

771 * ANSWER 9.13 00077100 

772 * 00077200 

773 * YES, THIS TIME WE BRANCH, BECAUSE THE SIGN BIT WILL CONTAIN 00077300 

774 * A ZERO WHEN THE SHIFTING IS COMPLETED, AND THE RESULT IS 00077400 

775 * POSITIVE AND HIGHER THAN THE PREVIOUS NEGATIVE NUMBER IN 00077500 

776 * REGISTER 3. | 00077600 

777 * OLD REG. 3 = 10011100111101001001110110100100 00077700 

778 * NEW REG. 3 = 00111001111010010011101101001000 00077800 

779 * 06077900 

780 Ke eecescce rece esac e se eee sere eres e sees e es eeeeeeeseeeeseeseseeeeeseceeeecce 00078C00 

782 *-------------------+------- +--+ +--+ - - + +--+ ~----~+--=----------- 000782C0 

783 * 00078300 

784 * IF WE WERE TO CARRY THIS OPERATION ONE STEP FARTHER, WE 00078400 

785 * WOULD SEE THAT THE NEXT SHIFT WOULD PUT A ZERO IN THE 00078500 

786 * SIGN AGAIN AND, BECAUSE THE NEW VALUE WOULD BE TWICE THE 00078600 

787 * OLD, WE WOULD BRANCH. 00078700 

788 * 00078800 

789 * FROM WHAT WE HAVE OBSERVED, THEN, WE CAN DERIVE A RULE. 00078900 

79C * | 00079000 

791 * HE AK IK OK ie Ae He 2h he ie oe ie i ae A oe ai Oe ic a ie eK OK 00079100 

> 792 * * BXH AXIOM NUMBER lL. * 60079200 
793 * Home wee ee ------ = = 00079300 

T94 x He Me He ie AE ae OK oie ee a ee ee a a oe ie i 2K KK OK 00079400 

795 x | 00079500 

796 * WHENEVER WE EXECUTE A BXH INSTRUCTION OF THE FORM: 00079600 

797 * | | 00079700 

798 * BXH  ODDREGsODDREGyLOCATION ~ | | 00079800 

799 * 00079900 

. 800 * THE BRANCH TO "LOCATION® WILL BE MADE ANY TIME THAT 00080000 
801 * A ZERO IS SHIFTED INTO THE SIGN POSITION, AND WE WILL 00080100 

802 * NOT BRANCH ANY TIME THAT A ONE-BIT IS SHIFTED INTO THE © 00080200 

803 * SIGN POSITION OF THE REGISTER. 00080300 

804 * 00080400 

805 * SO BE IT. 00080500 

806 * 00080600 

BOT «kee NOW DISPLAY THE YELLOW SIDE OF THE "ANSWER CUE". 00080700 

808 * 00080800 


809 *--------~--------~ wee + + + + + ++ + +--+ + + + + +--+ = --~--- es 00080900 


GEOMETRIC AREA COMPUTING ROUTINE USING BXH. | PAGE 23 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/70 
811 KEEEEE EEE ELER EEE EE EE EE EE EEE EEE EE EEE EEE EEE EEE EE EEE EEE EEE EEE EEEFEE EEE EHH 00081100 
812 * 00081200 
813 * EARLIER, I SAID THAT THIS TECHNIQUE WAS GAINING IN POPULARITY, 00081300 
814 * BUT I HAVEN'T REALLY SHOWN ANY REAL USE FOR THIS BXH 00081400 
B15 * INSTRUCTION, AT LEAST NOT IN THE WAY I*VE JUST DESCRIBED. 00081500 
B16 * WELL» IT'S USED TO CONTROL LOGIC FLOW IN SOME PROGRAMS, WHERE 00081600 
817 * THE SAME CODE MAY BE USED TO DO MANY THINGS. LOOK AT THE 00081700 
818 * FOLLOWING PROGRAM, WHICH WILL FIND THE AREA OF A CIRCLE, 00081800 
819 * A SQUARE, A TRIANGLE, A TRAPEZOID, OR A RECTANGLEy 00081900 
820 * DEPENDING UPON THE VALUE POINTED TO BY REGISTER 14. 00082000 
B21 * NOTICE THAT IT IS THE BXH INSTRUCTION THAT DOES ALL THE 00082100 
822 * DECISION MAKING IN THE PROGRAM. 00082200 
823 * 00082300 
BAG KEEFE EEE EEE EEE EEE EE EE EEE EEE EEE EE EE EE EEE EEE EEE EEE EEE EEE HEHE tte te te te tt+ 00082400 


826 OR OR kK ok ik ak kk ak kk eaktokcke §=00082600 


827 * ON ENTRY TO THIS ROUTINE, THE USER MUST HAVE SET UP THE 00082700 

828 * FOLLOWING FLOATING=PCINT REGISTERS WITH THE FOLLOWING VALUES, 00082800 

829 * DEPENDING UPON THE DESIRED FUNCTION. ALSO, GENERAL REGISTER 00082900 

830 * 14 WILL NEED TO POINT TO A HALF-WORD CONSTANT WHICH CONTAINS 00083000 

831 * THE INDICATED VALUE. THIS CONSTANT VALUE WILL BE USED TO 00083100 

R32 * OBTAIN A BIT PATTERN FROM A TABLE OF CONSTANTS. THE BITS IN 00083200 

» 833 * THIS BIT PATTERN WILL GUIDE THE FLOW THROUGH THE ROUTINE, 00083300 
N 834 * USING THE BXH INSTRUCTION. © 00083400 
835 * 00083500 

836 * AREA OF: [F.P.REG O IF.P.REG 2 IF-P.REG 41 REG 14 =>0C H*#N® 00083600 

B37 Kee ++----+----- $—-—------- t--------- a <--~----- a 00083700 

838 * CIRCLE | DIAMETER i N/A 1 N/A | H*O8 | 00083800 

B39 # eee tan a +—--------- $—---~ = t~--------------- - 00083900 

840 * SQUARE {SIDE i N/A { N/A | H¥2e { 00084000 

B41 *% eee ta~ = ~~ $-—— = $a -- $a ~ 00084100 

842 * RECTANGLE | LENGTH {WIOTH 1 N/A { H*'4' { 00084200 

843 *& 9 === aaa fo $2 =~ $= = too ~~ + ~ 00084300 

844 * TRIANGLE [HEIGHT {BASE 1 N/A { H'6¢ 1 00084400 

R45 Fe ~ $2 + ~--- ——= — $----—+-—= ooo — 00084500 

846 * TRAPEZOLDJ HEIGHT 1SHORT SIDEILONG STOEL H* 88 { 00084600 

B47 € eee rn $---------= fan ++ -- 00084700 

848 * | 00084800 

849 x FORMULAE USED: 00084900 

850 * AREA CIRCLE = (DIAMETER/2) (DI AMETER/2) X 3.14159 00085000 

851 * AREA SQUARE = SIDE X SIDE 00085100 

852 * AREA RECTANGLE = LENGTH X WIDTH | 00085200 

853 * AREA TRIANGLE = (HEIGHT/2) X BASE 00085300 

854 * AREA TRAPEZOID = (LONG SIDE + SHORT SIDE) X HEIGHT/2 00085400 

855 x 00085500 

856 3K RIOR IORI IC IO I ROK AK to qo ok ako 600085600 

000000 858 RO EQU O FLOATING POINT REGISTER O 06085800 
C00001 | | | 859 R1 EQU l GENERAL PURPOSE REGISTER 1 00085900 
000002 860 R2 EQU) 2 FLOATING PGINT REGISTER 2 00086000 
000004 861 R4 EQU 4 FLOATING POINT REGISTER 4 00086100 
OOO00E 862 R14 EQU 14 GENERAL PURPOSE REGISTER 14 7 | 00086200 


GEGMETRIC AREA COMPUTING ROUTINE USING BXH. 7 | | | _ | PAGE 24 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT . a FOBAPRTIO 9/17/70 
000142 481E 0000 00000 864 AREAS LH R1,O(R1L4) PICK UP DISPLACEMENT INTO TABLE 00C86400 
000146 4811 CiéC 00172 865 LH R1lyMSKTABLE(R1) GBTAIN MASK 00086500 
00014A 8910 0010 00010 866 SLL R1l,16 SHIFT TO BITS O-15 IN REGISTER 1. 0C086600 

867 * 00086700 

868 * THE FOLLOWING BRANCH [S CONTROLLED BY BIT *A® IN THE MASK. 00086800 

869 * : | 00086900 

COO1L4E 8611 C14E 00154 870 BXH R1lyR1l,NOHALVE 00087000 
000152 2400 871 « HDR RO,RO DIVIDE BY TWO 00087100 
872 * 00087200 

873 * THE FOLLOWING BRANCH [IS CONTROLLED BY BIT "B*. 00087300 

874 * 00087400 

000154 8611 C154 OO1L5A 875 NOHALVE BXH R1,R1l,NOADD 00087500 
000158 2A24 876 ADR R29R4 ADD SIDE1 AND SIDE 2 (TRAPEZOID ONLY) 0008760G 
877 * , 00087700 

878 * THE FOLLOWING BRANCH IS CCNTROLLED BY BIT °C*. 00087800 

879 * 00087900 

OOOL5A 8611 CI5A . 00160 880 NOADD BXH R1sR1y»NOSQUARE 00088000 
COO15E 2C00 881 MDR RO,RO SQUARE THE FACTOR 00088100 
882 * G0088200 

883 * THE FOLLOWING BRANCH IS CONTROLLED BY BIT 'D*. | 00088300 

884 * . 00088400 

000160 8611 C160 00166 885 NOSQUARE BXH RleR1l,NOMLTPLY | 00088500 
000164 2C02 886 MDR ROsR2 MULTIPLY TWO FACTORS 0G08 8600 
| 887 * 60C88700 

p 888 * THE FOLLOWING BRANCH IS CONTROLLED BY BIT *E*. 00088800 
889 * | 00088900 

000166 8611 C168 OO16E 890 NOMLTPLY BXH R1,y»RL,ALLFOLKS 000689000 
00016A 6CO00 C17A 00180 891 MD RO,PI MULTIPLY BY PI - 00089100 
OOO16E 47FE 0002 00002 892 ALLFOLKS B 20R14) RETURN TQ CALLER, ANSWER IS IN F.P-REG 0. 00089200 
000172 7 894 MSKTABLE DS OH | 00089400 
895 x. $+ t++ (ees ==-THESE LETTERS CORRESPOND: 70 00089500 

896 * titi THE BITS REFERRED TO IN QUOTES 00089600 

897 * VVVVV ( BIT "A® ), IN THE COMMENTS 00089700 

898 * . ~ABCDE--PADDING-~- PRECEEDING THE BXH*'S ABOVE. 00089800 

000172 54FF 899 CIRCLE DC BL2*0101010011111111° 00089900 
900174 LOFF 900 SQUARE DC BL2*0001000011111111° ~ 00090000 
000176 O8FF 901 RECTNGLE DC  8BL2*0000100011111111' 00090100 
000178 0000 902 TRIANGLE OC —2Xxtor YOU GET TO SET UP THIS ONE. 00090200 
OOOLTA 68FF 903 TRPEZOIO DC BL2*0110100011111111' 00090300 


CoOoL?7c C0000000 
000180 413243F3E0370CDD 904 PI DC D*3.14159! 00090400 


GEOMETRIC AREA COMPUTING ROUTINE USING BXH. PAGE 25 


LOC OBJECT CODE ADDR1i ADDR2 STMT SOURCE STATEMENT FO8APR70 9/17/70 


906 *------------------ ea a nn oe 06690600 

907 * ? 00090700 

908 * TO SEE EXACTLY HOW THE ROUTINE WORKS, LET*S TAKE ONE GF THE 0009C800 

909 * FIGURES THROUGH. FOR THE SAKE OF ARGUMENT, WE®LL TAKE THE 00090900 

910 * CIRCLE, SINCE IT'S THE FIRST IN THE LIST. FIRST, LETS 00091000 

91l * CONSIDER WHAT THE PROGRAMMER USING THE ROUTINE WOULD WRITE. 00091100 

912 * 00091200 

000188 6800 C192 00198 913 LO RO,DIAMETER . G0091300 

O0018C 45FO C13C 00142 G14 BAL R14,AREAS 00091400 

600190 0006 915 DC HOF DISPLACEMENT TG THE CIRCLE MASK IN TABLE. 00091500 

CC0192 47FC C19E OO1LA4 916 B LOCATION 00091600 
000196 9000 

000198 4219722D0E560419 917 DIAMETER DC D'25.446!8 DIAMETER GF SOME CIRCLE 00091700 

918 * 00091800 

919 * THEN THE *"AREAS* ROUTINE WOULD GET CONTROL AND PICK UP THE 00091900 

920 * MASK LABELED *CIRCLE*. AT THE FIRST BXHy BIT "At WOULD BECOME 00092000 

921 * THE SIGN, AND SINCE WE HAD WANTED TO HALVE THE DIAMETER TO 00092100 

922 * GET THE RADIUS, WE WANT TG FAL’ THROUGH AND EXECUTE THE "HDR* 00092200 

d 923 x INSTRUCTION. BECAUSE WE HAD WANTED THIS, THE MASK FOR THE 00392300 

924 * CIRCLE HAD CONTAINED A ‘1? BIT IN POSITION "A*, PREVENTING US 00092400 

925 * FROM BRANCHING. THE NEXT OPERATION, (ADD SIDE ONE TO SIDE TWO), 00092500 

926 * IS NOT A PART OF FINDING THE AREA OF A CIRCLE, SU » WE WANT 00092600 

C27 * TO SKIP OVER THIS. WE ACCOMPLISH THE SKIP BY PUTTING A "G* IN 00092700 

928 * BIT POSITION *B* OF THE MASKy AND, AS YOU REMEMBER, A ‘0! 00092800 

£ 929 * GOING INTO THE SIGN POSITION OF THE REGISTER CAUSES GUR BXH 00092900 

930 * INSTRUCTION TO BRANCH. OK, YOU SHOULD SEE THE LOGIC BY NOW, 00093000 

931 * SG ANSWER QUESTION 9.14, WHICH IS A CONTINUATION CF THE CIRCLE 00093100 

932 * PROBLEM SQLUTION WE HAVE BEEN DOING. 00093200 

933 * 00093300 

934 *---+--—-— + ~~~ ++ + + + a -- - =~ —--- 00093400 

QR RK KK OK KKK KKK KK KKKKK QUESTION 9.14 HE HEA AK fe ae 2 CE 2 KK IE KK KK OK OK KKK KKKK «OOO 3Z600 

937 * 00093700 

938 * WHAT ARE THE LABELS ON THE BXH INSTRUCTIONS THAT WILL 00093800 

939 * NOT CAUSE A BRANCH TO BE TAKEN DURING THE SOLUTION OF THE 00093900 

940 * AREA OF THE CIRCLE? ASSUME THAT WE HAVE ALREADY EXECUTED THE 00094000 

941 * FIRST TWO, AS IN THE INSTRUCTIONS IN THE PARAGRAPH ABOVE. 00094100 

942 * 00094200 

G4 KK EK KC RE AK KE OR ic OO Oe Ac OK 2 a ie A a a eK 2 A EE OK AR OK IE 2 OK OK He so eo eK KKK KK KK KEKE O0094300 


GEOMETRIC AREA COMPUTING ROUTINE USING BXH. PAGE 26 
LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FOB APRTO 9/17/70 
G45 Ke ccccccccc rns cocc ccc ace sec ccc esc ce eres ccc cescccscecsc ccc cece ccccscsesses 00094500 

046 * ANSWER 9.14 00094600 

947 * 00094700 

948 * BECAUSE BOTH BITS 'C* AND "E* IN THE "CIRCLE* MASK ARE 11'S, 0009480 

949 * THE BRANCHES LABELED *NOADD* AND *NOMLTPLY* WILL NOT BRANCH, cCoCc949C0 

950 x CAUSING US TQ SQUARE THE RADIUS AND MULTIPLY BY PI. 00995000 

951 * 00095100 

952 Keecce cre n ee ne eee eee e ese sade eee seer eee sese essere eosereseeoeeneserseneseeoeeee 00095200 

QS FARR I OK EE a KOR RK KKK QUEST LON De 15 RRR RRR RK RR KKK KKKKKERK OODOGS4EO 

955 * 00095500 

956 * CONSTRUCT THE BIT MASK REQUIRED TG FIND THE AREA OF THE 00095600 

957 * TRIANGLE. USE THE FORMULA AND REGISTER CONTENTS AS DESCRIBED 00095700 

958 x IN THE PROLGGUE OF THIS ROUTINE. 00095860 

959 x 00095900 

Q EQ RRA RK I i a A I OE ie OI OE i a AE OK OK AE HO af OS ic OOK a OK oie AE OK KO OKC AE OK ARK AK ROK OK A EK OK KKK KKK KKK OOCI6QOO 

961 * 00096100 

GOD RRA AE 2 AE OOK OK OK 2 EO EO EE KC IK IE OE OE AK A I OC I KC i IE OK OK AE OK OK I OK KK KK KKK KKK 6 OOOST6200 
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Loc OBJECT CODE ADDR1L ADDR2 STMT SGURCE STATEMENT FO8APRTI0 9/17/70 
DO4 Kececcccccvsevcessccnssasecccsseseesessesccssssesvcesesesvessccccseseses JON096400 
965 * ANSWER 9.15 00096500 
966 * 06096600 
967 * TRIANGLE OC BL2*OLOGLIGXXXXXXXXX1! 00096700 
968 * 00096800 
969 * THIS ALLOWS US TO FALL THROUGH BXH *A* AND HALVE REGISTER O C0096900 
970 * WHICH CONTAINS THE HEIGHT, TAKE BXH'S *B* AND "C*, SKIPPING 00097000 
971 * OVER THE UNDESIRED ADDITION AND SQUARING, FALL THROUGH BXH 00097100 
912 * *D', MULITIPLYING THE HEIGHT (WHICH WE PREVIOUSLY HALVED) BY 00097200 
973 * THE BASE, GIVING US THE DESIRED AREA. NATURALLY, WE WANT TO 00097300 
974 * TAKE BXH *E®, BECAUSE WE ARE ALREADY FINISHED. 00097400 
975 2 eer ere ee Ce Lee ee ee ee Ce eae ee eT ee Se Se Ce ee ee ee ee ee a ee ee ee 00G97500 


DTT KEE EEE FEE FEE EEE EEE EE EEE EEE EEE HEHEHE EEE EEE EEE EEE EEE EE EEE ee tte tet ettett+t+ 00097700 


978 * THE OPERATION OF THE BXLE INSTRUCTION IS NEARLY IDENTICAL TO 00097800 
9719 * THAT OF THE BXH. THAT IS TO SAY, 00097900 
980 * 1) THE "INCREMENT® IS ADDED TO THE t INDEX. 00098000 
981 * 2) THE NEW "INDEX® IS COMPARED TO THE "*CCMPARAND*®. 00098100 
982 * 3) THE BRANCH IS TAKEN IF THE NEW "INDEX*® VALUE [IS LESS THAN 00098200 
G82 * OR EQUAL TO THE "CCOMPARAND!. 00098300 
984 * NOTICE THAT ONLY THE TEXT OF LINE (3) CHANGED FROM THE 90098400 
985 * DESCRIPTION GF THE BXH INSTRUCTION. 00998500 
> 986 * 00098600 
987 * OeK. THEN, FROM THIS DIFFERENCE, WE CAN DERIVE A RULE FOR 00098700 
988 * THE BXLE WHERE THE SAME ODD-NUMBERED REGISTER IS USED FOR 00098800 
989 * BOTH THE "TA® AND "B® QPERANDS. 00098900 
99C * 00099000 
991 * SOI OR OR a IOI KK a a a ak ie ak ok 00099100 
992 * * BXLE AXIOM NUMBER QNE. * 00099200 
993 * Ke ee eee * 0009930C 
094 * AIO OR a a ako ak ak oo ak Keak ok ok a ak ak ak 00099400 
995 * THE BRANCH wILl BE TAKEN WHENEVER A ONE BIT IS SHIFTED INTO 0009950C 
996 * THE SIGN POSITION OF THE REGISTER USED IN A BXLE OF THE FORMS 0C099600 
997 * 0009970C 
998 * BXLE CDDREG,ODDREG,LOCATION Cc099800 
999 * 00099900 
1C0Q0 * TO VERIFY YOUR UNDERSTANDING OF THIS- ANSWER QUESTION 9.16. 001C0000 
1001 33 RO OO I II OR ICG Gi i dak dak oak dotitk tog okies 00100100 
1003 3a oR oko QUESTION 9.16 **RRRK RRR KR KEK KKEKEKK 00100300 
1004 * TO SHOW THE SIMILARITY OF QPERATION BETWEEN BXH AND BXLE, CG100400 
1005 * GIVEN: REGISTER 5 CONTAINS 264833. 00100500 
1006 * REGISTER 8 CONTAINS ~—345221. 00100600 
1007 * REGISTER 9 CONTAINS ~80388. CG100700 
1008 * WILL I BRANCH TO "INDX5LO#", WHEN THE FOLLOWING I[INSTRUTION COLOO8CO 
1009 * IS EXECUTED ? 00100900 
1010 330 OOO IGOR IORI IO Oo ak a qo tok ick ator 00101000 
1011 * 00101100 
1012 433 RC GIORGI GIA ICG I ci ic iadaiok ak kkk cacak eck 00101200 


O001A0 8758 C1C6 901CC 1013 BXLE 5,8&,INDX5LO# 001061300 


Lv 


LOC 


Q001LA4 
DOO1A4 
OOG1A6 
QOOO1AA 
OOOLAE 
S00162 
OCO1B6 
OCO1BA 
OOO1BE 
0001C2 
OGO01C6 
00C1C8 


BXLE THE GREAT; 


OBJECT CODE. 


1855 
587C 
8777 
4A50 
8777 
4A50 
8677 
B8TTe 
4B50 
0006 
4TFO 


C222 
ClAC 
C226 
C1B4 
C228 
C1iBO 
C1Cu 
C2Z2A 


C1C6 


DECISION MAKER. 


ADDR1 ADDR2 


00228 
001B2 
0022C 
OO1BA 
OG22E 
COC1B6 
Q01C6 
G0230 


O01CC 


STMT 


1015 
1016 
1017 
1018 
1019 
1020 
1021 


1023 
1024 
1025 
1026 
1027 
1028 
1029 
1C30 


1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 


% 4 


SQURCE STATEMENT 


He te He HH H 


* 
ke 
a 
* 
wh 
* 
he 
a" 
*K 


LOCATION 
PASSCONS 


BXLEL 


BXLE2 
ADD2 
BXH1 
BXLE3 


TAKEDUMP 
ENDALL 


ANSWER 


YES; 


9.216 


BECAUSE 264833 + (~-345221) 
REG.5 + 


REG.8 


IS EQUAL TO -80388. 


IS EQUAL TO 


REG.9. 


FO8APR/0 


@eeoaeoeseeeeeneeeeeeeeeeweneeseeeeeneeeweneespseeeeseoespeseveeeneeeeneeweeeeneeeeeseoeeoeeseseeeeonee 8 8 @ 


BOO RO io okciktokok koko QUESTION 9.1.7 2K; OR OR aa Ok a ok a ak fe ak ak ak 


WHAT WILL BE THE VALUE IN REGISTER 5 WHEN THE EvstRUCTION 


CALLED 


EQU 
SR 

L 
BXLE 
AH 
BXLE 
AH 
BXH 
BXLE 
SH 
DC 

B 


"ENDALL!? 


xe 
5,5 


IS EXECUTED ?? 


Ty=X*A70532008 


Ty? yBXLE2 


5,=H'12! 
ts 7T_yBXH1 
5,=H'i2? 
Ty7,ADD2 
ty 0g *+8 
5y=H'3! 
H* QO? 
COMPLETE 


BK EAE CAR AC A RC A AE IC AE AC IC OK i iC AC AE OC OC IC A IE Oe RC AC 2K oC CO I IK 2 AC OC KC EE KC OC A OK A OK OK OE AC IK AR AC AC AK AC IE IE A HC AE IK IEE OC OC OKC OK 2K 


ME HC A IE A KC RC CC AC aE OI RC IE OC A OC IR AS OE OK CAE OK KO OS OC I I AC OE OK I OK OK AE A OK CK RE AE AE I EE AK AE AE RE EAE IE OK IE OK OK OK 


PAGE 28 


9/17/70 


GO101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 


00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00103000 


00103200 
00103300 
00103400 
00103500 
00103600 
00103700 
00103800 
00103900 
001049000 
00104100 
00104200 
00104300 


BXLE THE GREAT, DECISION MAKER. PAGE 29 
LOC ORJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT FOBAPRTC 9/17/70 
1045 Fee cae wine lai ai aa aa SS ew Ca tes a eae BS wwe eS: Se eS aa Se ey SIS a wee lee eae awe: See oe ares 00104500 
1046 * ANSWER 9.17 00104600 
1047 * 00104700 
1048 * REGISTER 5 EQUALS 16. 00104800 
1049 * | 00104900 
1050 * THE FOLLOWING SHOWS THE SEQUENCE GF EVENTS THAT TOGK PLACE 00105C00 
1051 * IN THE EXECUTION OF THE CODE FOR QUESTION 9.17. 00105100 
1052 * 00105200 
1053 * LABEL | NEW SIGN | ACTIGN TAKEN { REG.5S = | 00105300 
1054 * 2 wae +---------- +---------------~---- t--~-~---- _ 00105400 
1C55 * BXLEL | 0 | NO BRANCH 1 0 06105500 
1056 ® 2 sae ~= +---------- $------------------- oo 00105600 
1057 * BXLE2 | 1 | BRANCH TO BXH1 1 12 06105700 
1058 * = =aa === +—--------- t--------------~~--- t--------- ~ 00105800 
1059 * BXH1 0 | BRANCH TO ADD2 | 12 | 00105900 
1060 * 2 =a #--~------- $-~----------------- $-=-~=--=— - 00106060 
1061 * BXH1 0 | BRANCH TO ADD2 1 14 00106100 
1062 * 2 =+==--==- $-~-------- +--~---------------- $--—------ - 00106200 
1063 * BXH1 | 1 | NO BRANCH | 16 00106300 
1C64 * —-------+---------- +-~----~------------ t-~~------ a 00106406 
1065 * BXLE3 | 1 | BRANCH TO TAKEDUMP] 16 00106500 
1066 * 00106600 
1067 # eintedih eu ese¥ aaesa ewe eee sees bes es wa aah ae hates oN eee 1eeGeh ewes Rese: OO LOO TOU 
& 
1069 *&E&EEEEEEEEEEE EEEEEEEEEEEE EE ES EEEEEEEEEEEEEEEEE EEEEEEELEEEEEEEEGEEEEEEE 00106900 
1C70 * 00107060 
1071 * THIS CONCLUDES THE WORK PROJECT FOR THE BRANCHING AND 00107100 
1072 * SWITCHING SECTION OF THE COURSE. SO THAT YOUR INSTRUCTOR 00107200 
1073 * KNGWS THAT YOU ARE FINISHED, DISPLAY THE WHITE SIDE OF 00107300 
1074 * THE "ANSWER CUE" AT THIS TIME. 00107400 
1075 * 00107500 
1076 *&E6EEEEEE E866 GEEEEEEEEEEEEEEEEE EEE EE EE EEE EEE EE EEEEEEESEEEEEESESEEEEEEE 00107600 
OOO1CC 1G78 COMPLETE FQU) * 00107800 
QO01CC 1079 INDX5LO# EQU) * 00107900 
COOICC 58DD cv04 00C04 1080 L 13,4(13) 60108000 
OOC1NO 98EC DOCC o000C 1081 LM 14,12,12(13) 00108100 
QCO1D4 O7FE 1082 BR 14 00108200 
0001D8 1083 BRSAVE ODS 18F 001083060 
C0C000 1084 END BRANCHES 00108400 
C00220 9cCc000Cc0 1685 =FIGt 
000224 00000004 1086 =Ft4t 
600228 A7TC53200 1087 =X" A70532008 
00622C O00C 1088 =H" 12* 
00022E 0002 1089 =Ht2t 
C0023C 0003 1099 =H'3" 


6P 


POS.ID 


Ol 


REL.ID 


C2 


FLAGS 


1C 


ADDRESS 


000028 


RELOCATION DICTIONARY 
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os 


SYMBOL 


ADDRESS 
ADD2 — 
AHIGHER 
ALLFOLKS 
ALOWER 
AREAS 
BADBAD 
BEGONE 
BLEAH 
BRANCH 
BRANCHES 
BRSAVE 
BRTABLE 
BR14 
BTABLE 
8XH1 
BXLEL 
RXLE2 
BXLE3 
BYPASSIT 
BYTES 
CIPCLE 
CLOSE 
COMPLETE 
CNOLT OAL 
DIAMETER 
DISASTER 
NONTDOIT 
DONTD OME 
ENDALL 
ENUF4JAZ 
EXAMPLE1 
FLS 

F24C 
GETSCGLD 
GOQDSASAU 
HALFGORD 
HALFPAST 
INDEX3AI 
INDEX3HI 
INDE X4HI 
INDXSLO# 
LOCATION 
MASK] 
MASK2 
MASK3 
MEDIOCRE 
MSKTABLE 
NOAPD 
NOHALVE 


LEN 


90601 
C9004 
09001 
O0C04 
COO] 
COOG4 
00001 
00001 
C0001 
00004 
090001 
CO0U4 
GOCO4 
COC02 
OC004 
C0004 
COCO4 
COC04 
CO0G4 
00004 
O0001 
000G2 
CCo0l 
GOO0C1 
C9001 
990008 
00001 
00004 
00004 
COC04 
OOGC1L 
00004 
00064 
COG04 
COCcOl 
CO0G0L 
COG01 
00001 
C0001 
COGuUl 
GQ001 
COOOL 
erexeren! 
00001 
QOOCO01 
Co001 
COO0U1 
09002 


NOOG4 


NOMLTPLY G9 


NOSQUARE 
AB Sw 
OPCOSW2 
PASSCSUNS 


VALUE 

COWwOss 
VOULBO 
COCO0C8B 
OGOLGE 
COOUCE 
000142 
OUUOFA 
G00052 
090G0126 
GU00C2 
OOCCO0O 
0001D8 


i) 
© 
(a) 
Ww 
m 


0126 


jO1CC 


vOBF 


1 


be 
oA Ww 
> 


G 
0 
vu 
w 
u 
0 
0 
C 
0 
G 
U 
COCBE 
0 
G 
UW 
C 
G 
U 
v 
: 
u 
U 


OOoodnranncn 


me he 
oO 
fom ag 


rPANOO 
c 


00296 
01038 
00359 
00892 
00355 
00864 
00431 
G0114 
GO519 
00354 
00cc2 
01083 
00429 
COCLT 
00459 
01039 
01035 
01037 
01040 
06112 
00139 
00899 
00514 
01078 
00513 
OO°1T 
00522 
00074 
06302 
01043 
OC515 
00197 
06305 
00304 
00517 
00512 


= JO417 


00518 
CG6CT 
00585 
00646 
O1L079 
Gi032 
O0G351 
C0352 
09353 
00516 
00894 
00880 
00875 
o089C 
C6885 
GO17G 
JOLTS 
GLC33 


CROSS-REFERENCE 


O1l?76 0198 ©0293 


OO15 


C137 


0416 0429 
C0430 


C391 0678 C0689 C71& O768 0916 


CYL 12 


LS 


SYMBOL 


PHOQEY 
PI 


PICKUP15 
RECTNGLE 


ROTTEN 


TAKEDUMP 
TESTASET 
TRIANGLE 
TRPEZOID 
VCONSVC3 
WALKONBY 


Y ECHHH 


LEN 


O00C1 
C0008 
C9002 
C0002 
00001 
D00C1 
09001 
09001 
coool 
00001 
O0C0062 
29004 
OC0C4 
00004 
00002 
C9004 
90001 
09002 
CV004 
C0004 
O9COl 


VALUE 


COUUE2 
vO00180 
OGOO08A 
COU176 
C00126 
COGCOC 
CO0001 
GOOGGE 
CO0062 
OUGCO4S 
O00174 
0060032 
000042 
IGU0DAS8 
COG1CS6 
GO0052 
J0C178 
GCULTA 
Cudt28 
OOGUD5E 
60126 


DEFN 


06410 
00904 
C0298 
Oc901 
00521 
06858 
00859 
00862 
GOU860 
00861 
00900 
VOO7T1 
00110 
00306 
01042 
00134 
0U902 
00903 
060016 
00137 
0G520 


REFERENCES 
0398 0415 
0891 
0301 
0468 
O871l O871 
0864 0865 
0864 0892 
0876 0886 
0876 
C072 0073 
O11l2 C113 
0299 0303 
0136 
0013 
0135 


C467 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
SGURCE RECORDS (SYSIN) 


*STATISTICS* 


*xOPTIOQNS IN 


EFFECT 


1206 PRINTED LINES 


CROSS-REFERENCE 


0881 
0865 
0914 


COT4 


1084 


0881 
C866 


0886 
0870 


08gl 
0870 


0913 
0875 


0875 


C880 


LIST, NODECK, LOAD, NORENT, XREF, NOTEST, ALGN, OS, LINECNT 


0880 


18) 


0885 


0885 


0890 
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F44—-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARIABLE OPTIONS USED — SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
1EW0000 ENTRY UTILITY» | | 
MODULE MAP 
CONTROL SECTION | ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
BRANCHES Te «32 
UTILITY 236 5A0 
PRINT 29A PCHKRETN 4F6 
ENTRY ADDRESS 238 
TOTAL LENGTH 7D8 
AKG DOES NOT EXIST BUT HAS 3EEN ADDED TO DATA SET 


oi 
NO 


gi 


FP. 


REGS: 0=7% 
REGS 8-15 


c00000 
¢90020 
050040 


O0G06C 


O5F 8206 
O5F 84C 
O5F 860 
O5°880 
O5F8A0 
O5F8CC 
OSFS8EC 
O5F900 
O5F920 
C5F949 
O5F 960 
05F980 
O5SFOIAG 
O5F9CO 
O5F9EO 
C5FA0S 
O5FA20 
SO5FA40 
O5FA60 


069020 


REGS. 


COC.OSECIOA 1207£260 


FEFFFF2E 
60010438 


IGWGVIGU 
COC40063 
A0001 360 
00040000 


99320202 
DOO858FC 
CO2D47FO 
C05 847FC 
ST06CO72 
54ECCO9E 
COBC4 7Fu 
C12C59F0 
COE847FF 
Ci2047Fu 
C19E 8553 
2A248611 
09006 8FF 
421972zD 
C2288677 
41505001 
9104F 089 
1233478C 
9OECDOOC 


4ACU9b6CE 


cooor 


vJ000C00 
SOSO6A3E 
vs&OOGOCO 
VOOCTBCE 


41526C0D 
COZ2D201 
CO2C940F 
C04C09400 
4770C082 
41FCCOA6 
CGC 28040 
C21E4780 
COF447FO 
C12047F0 
C19E8633 
Cli5A2CGG 
gOOGU0DN 
CE560419 
C1s08777 
COQoBF68 
47509426 
946C1i21i1 
O5CO04FO 


46050000 


QO000000 
FFC5C00C1 
AG001358 
06940000 


SOECDOOC 
FOCOOCO026 
CO2D47TFG 
C0604 7F0 
9T06COTA 
CGOGOCOFQ 
20004760 
COE 859F0 
Ci2047FC 
C12047F0 
C1l9IE481E 
8611C160 
413243F3 
8758C1C6 
C1iC04850 
GI0090000 
4150501E 
COcCO00000 
O7CO04110 


47FC95C6 


00.c90075 9C0GC088B 


COCSRFEF8 0C01D0454 O0CUI0NC 
90 9001D460 00000000 


9TIC900G0 
6FO5F OFC 
00605920 
00007588 


O5C041F0 
47F0C 028 
C04447FO 
C0729000 
4789C082 
OCOO0000F 
COCO01A32 
C21E4720 
C1l2047FO 
C1208634 
00004811 
2C928611 
FO370CDD 
18555870 
C22A0CCI 
12334 786 
58F90010 
CG000004 
C0100511 


48609BEE . 


060.130199 C2C2C2C1 


C3.C8C3C9 C3C03C2C3 


00G13CA0 CO00CO010 00010885 C14C8000 
6FO5FB2E OOO5FACO OOOCCTD4 OOOS5SFDILE 


JOO5F 828 


OOOCFFOO - 


O2CO18A4 
COCO0CIO 


C1D0250DF 
COO5SFDIE 
CO4C9TFO 
STFOCO6T 
1IBEEL8FE 
47100CC92 
47FCCI19E 
COUDC4740 
CL2Z047FO 
C1248634 
C1éEC8910 
C1686C09 
68000192 
C22287TT7 
47FOC1C6 
94261611 
58FOFQO3C 
AT053200 
CFO5FBO4 


8 AS00001 


OOCO0000 
OGG000CE 
COOC996C 
00012010 


O0G450FD 
O7TFE47TFO 
CO3D47F0 
4700C 082 
44F 0COA2 
4120000A 
12FF4770 
C1l2047FF 
C1204TF0O 
C1288645 
90108611 
C1TA4TFE 
45E0C13C 
CLAC4A50 
58000004 
16134106 
9108FC89 
O00TO002 
TFFFOAOE 


4770969E 


FFC6000C 
FEO40131 
00040000 
C0046C0D0 


00081 8DF 
C19E4700 
C03C93 00 
97FOCO6F 
S6EQCOIA 
41300014 
CODC59FO 
COEC4TFO 
C12C4TFO 
C12C08633 
C14E24C0 
COO254FF 
O00047F0 
C2268777 
S9B8ECDOCC 
COCOCA4GE 
478094EC 
06035001 
58B00010 


48609C 26 


8G000000 
B8BCCOCALE 
00007498 
COOO751A 


D7T03D008 
CO3896F0 
C0604740 
47F0C 082 
47FOC 084 
192344F0 
C21A4780 
C12C47TFO 
C12047F0O 
C19E 8633 
8611C154 
LOFFOS8FF 
C1IEGO00 
C1B44A50 
OTFE5090 
58FOT03C 
58304138 
92685000 
9LLOBOT4 


41660001 


hte we 
eg ah ale ees OS ee ORC wy OOOO © Oo ee! @ wplet eee ere. 
My eee ie e te Ees eo DOeae @eeee#21#e#8e#t#8e#eee eoe*x 
Me 56a; Wie a ea la ee e086 a te ibe wee 


Ms a SS we Tt eee Sw a oe ew a ae ee 6 wR eee 


KeeKececccevev eed AKesccceeceePe eo o® 
Kee ee eK eo De ce ee ws evcc ce eDNe eves 0 0* 
Kee eDecececcliv ee De ee De ees csevee * 

coe ec crceeDe cee eDe cece eeVe eee e* 


x 
Ee ee aoe er ae eae ae ee eee ee ee eee 8 ee 
Mg ote bw Oe: ae oe wea eC aLe. BSE ee lee oe Se 
x 


oe een coeecce eeONveceee co eDBe oe * 
K¥Ne eABe eee VeOBere cee Noose eo eDA. .0* 
* Ye ee 4 e0A.e 0A. 0A -0A. 0A. 0A. 0% 
FA. OAs eOANe Cheese NeeeNeeaNe vo eAeee® 


PON woe Th we ae A oe) 0 Sa OR wR CIS Swe ee 


Cig ba CN EEE SCA OO CAS CORE OS OOS SORT 


€ 


ee a ee as ee ee eee) eee Peers Oo Cree 
se a6 S66 be eA eee oD eC Riwea De «Aw oe 
TO ee eee sw ee ewe OAT 6% 06 66:0 ed wooo 


gs ae iii eel tet GS-0 Wee we Ow we Ge eee aoe eee 


Vigne aed Beale wae CUS eos eee alee ee 
Tg. a: Se Bele ele a Oe Os ee wee Oa eee ae wee See 


ee ee ee ee eee a ere ee ee ee ee ee 


Keeece Pret eee ae ee ee ee ee ee es 


He A eo A I I ae Ee 2 Oe ee ee Oe ae he a A 2 EO RO Ee A eM I I I HK HH HAE HK A KE KK HK 
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LLLELLLLELLLLLL 
LELLELLLLLLL 


oecoo00000non 
90Q0000009000 
00 00 
00 G0 
0 00 
00 00 
00 00 
00 00 
00 00 
00 00 
000000000000 
OOCCO0000000 


OOV0GGO0000GA 
BO000000G0000 
00 00 
00 00 
On 00 
00 00 
00 00 
0G 00 
00 00 
00 00 
000000000000 
oo0ocococo0seN 


PPPPPPPPPPP 


pp 
pp 
pp 
PP 
pp 
pp 
pp 
pp 
pp 
Pp 
PP 


PPPPPPPPpP 
PP 
pp 
pp 

PPPPPPPPPP 

PPPPPPPPP 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 

99 
99 99 
999999999999 
9999999999 


SSSSSSSSSS 
SSSSSSSSSSSS 
SS SS 
SS 
SSS 

SSSSSSSSS 

SSSSSSSSS 
SSS 


SS SS 
SSSSSSSSSSSS 
SSSSSSSSSS 


WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW WW 
WW WWWW WW 
WW WW WW WW 
WWW W WWWW 
WWW WWW 
WW WW 


PPPPPPPPPPP 


PPPPPPPPPPppPP 
pp pp 
pp pp 
pp pp 
PPPPPPPPPPPP 
PPPPPPPPPpP 
PP 

pp 

pp 

pp 

Pp 


SS 


SYMBOL 


LQOPSECT 
PCHKRETN 


TYPE 16 ADOR 


SD O01 OuvcUG 
ER 02 


LENGTH LD ID 


000132 


EXTERNAL SYMBOL DICTIONARY 


14.10 
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9/16/70 


0 
oO 


LOC 
000000 


£00000 
000001 
000092 
000003 
C00004 
c00005 
000006 
0909007 
909008 
000009 
OO000A 
000008 
005900C 
9C000D 
COOOOE 
COOOOF 
000000 
009004 
00CC06 
500006 
JOCOOA 
OOGOOE 
000012 
000014 


OBJECT CODE 


SOEC 
05C0 


41F0 
50FD 
5 ODF 
18DF 
D703 


DOOC 


COBA 
0308 
0004 


DOO8 DOCS C0008 


ADDR1 ADDR2 


OOO0OC 


OO0cCO 
00008 
00004 


00008 


STMT 


OANAUSWN ee 


SOURCE STATEMENT 


LOOPSECT CSECT 


% 


COPY 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


MHMBEGIN- 


ODNOU KF WN O 


15 
R14,R12,12(R13) 
R12,0 

*%_gR12 
R15,SAVEAREA 
R15,8(R13) 
R13,4(R15) 
R13,R15 
8(4,R13),8(R13) 


SAVE THE CALLER*S REGISTERS 
ESTABLISH PROGRAM BASE 

LET THE ASSEMBLER KNOW. 
ADDRESS OF MY SAVE AREA 
BACKWARD CHAIN 

FORWARD CHAIN 

ESTABLISH MY SAVE AREA 
TERMINATE THE FORWARD CHAIN 


END OF STANDARD ENTRY LINKAGE CONVENTIONS. 


PRINT 


OFF 


FO8APR70 
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9/16/70 


00000100 
00000200 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00000300 


SAMPLES FOR PRGGRAM LOOPS WORKSHOP. PAGE 2 

LQC OBJECT COGc ADDR1L ADDR2 STMT SGURCE STATEMENT FO8APR70 9/16/70 
35 * BOI ko Rokk kk kk ak x 00001000 

36 * * PROGRAM LOQPS WORK-SHOP SAMPLES. * 00001100 

37 * % aeeae-+ ----- ---- ---- -------- x 00001200 

38 * RO ORO RR a a ka ok ok cK ai ak akc ak ok ak akc ak ok ok ae ak ok ak 00001300 


LO ee eS ee es See ee Rare se ae ee ae a ae 00001500 
41 * ; 00001600 
42 * IN THE LECTURE SESSTON ON LOOPS, YOUR INSTRUCTOR DEFINED 00001700 
43 * TWO NEW TERMS, WHICH WERE DESCRIPTIVE OF CERTAIN TYPES OF 00001800 
44 * LOOPS. THE TERMS WERE: "LEADING DECISION® AND * TRAILING 00001900 
45 * DECISION'. KNOWING WHAT YOU DO ABOUT THESE TWO TYPES, 00002000 
46 * DETERMINE WHETHER EACH OF THE LOOPS IN THE FOLLOWING 00002100 
47 * QUESTIONS IS A *LEADING® GR *"TRAILING® DECISIGN, AND 00002200 
48 * CIRCLE YOUR CHOICE. © 00002300 
49 * | 00002400 
50 * FOR YOUR INFORMATLON, EACH LOOP PERFORMS THE SAME «FUNCTION 00002500 
Si. AS EACH OF THE OTHERS», THAT OF SUMMING ALL THE HALF~-WORD 00002600 
St ae VALUES LOCATED IN LIST1®. THE HALF-WORD CALLED 'LISTILEN' 00002700 
53. -* CONTAINS A NUMBER WHICH TELLS US HOW MANY VALUES ARE TO BE 00002800 
54 * SUMMED FROM "LIST1"*. 00002900 
Oe 00003000 
56 * THE CORRECT SUM OF FLIST1* ITS X*FO* GR 240. 00003100 
or St 00003200 


58 %*-------------~------------ +--~------------ ~----------~----------------- 00003300 


8S 


LAC 


O0C02A 
OCO02E 


000040 
000044 
009044 


SAMPLES FQR PROGRAM LOOPS WORKSHOP. 


OBJECT CODE 


4810 C120 
1B22 


1211 
478C CO3ZE 
1B33 
4A23 
4133 
4610 


C102 
CCUG2 
CU32 


9000 


ADDR1 ADDR2 


00126 


00044 


00108 
00002 
0C038 


STMT 


60 
61 
62 
63 
64 


SOURCE STATEMENT 


EXAMPLEA 


* 


* 


LOOPEXA 


ENDEXA 


"EXAMPLEA® 


LH 
SR 


LTR 
BZ 


SR 
AH 
LA 
BCT 
EQU 
DC 


R1l,LISTILEN 
R29R2 


R1,Rl 
ENDEXA 


R3_—R3 
R2,LISTLOER3) 
R3e2(R3) 
R1,yLBOQOPEXA 

oe 

H*Q? % 


TS A (LEADING/TRAILING) 


DECISIGN LOOP. 


TE AE IK AR AK FE RE AK AE AE IS OK AE FC OS OK OE IK AE OK OK AE CO I OK I OC AE CE 2 OK AE AC RE IE AE OK KE A OE AK 2 


GET THE NUMBER OF TERMS. 
ZERO RESULT REGISTER 


ARE THERE ZERO TERMS TQ SUM ?? 
YES, RESULT IS IN REG 2 ALREADY. 


INITEALIZE INDEX TO ZERO 
ADD A VALUE TO THE SUM. 


FO8APR7/0 


sok doko occ QUESTION LO. ] RRC OR Ra Rak a ok ak dak dea kkk 


Heo a ok ae ak oe KK 


BUMP THE INDEX BY LENGTH GF A HALF~-WORD 


CONTINUE SUMMATION 


"TIL LIST ITS EXHAUSTED 


% ®@ 4@ % USE THE DUMP TO CHECK THE ANSWER IN Rae. 
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9/16/70 


CQ063500 
09003600 
00003700 
G0003800 
00003900 


00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
0000490C 
OCO005000 
00005100 
00005200 


6S 


REGS 0-7 
REGS 8-15 


000090 
O0CO620 
503040 
C0290690 


02A120 
C2A140 
02A160 
J2A18C0 
C2A1A0 
O02A1C0 
O2Z2A1EO 
C2A290 
G2A22U 
O2A24% 
O2A260 


O2A820 


0G.-COCCVO 80000000 


FFFFFF2E OQGO00000 O0COOOFG OQOOOOOLE 
6001C260 00000000 0001C288 00000000 


Q00GC0CE 
0004CC03 
00036C9%& 
J004C00C 


900C00CC 
DG0858FC 
4A23C102 
06504140 
C1024133 
48100120 
OO0496EC 
0000000U 
OTO000C0C 
QOUEGCOC 
GOECDOOC 


4AGO9BDE 


COG00C0D 
50006A3E 
eCO0000C1 
QO0CTBC8 


00060000 
C122D201 
41330002 
OCG24A23 
0C024B10 
1B221833 
DOGCO7FE 
GO0OCOCO 
GU000000 
QOGANCDOB 
O5COU4FO 


40050000 


00G00000 
FFC50001 
000014D0 
00040000 


SOECDOCC 
FOOOCO22 
46100032 
00008734 
C12647F0 
4610C0A2 
00000000 
99000060 
‘oT erehexelerere: 
00060004 
07004110 


47F095C6 


00.000000 CoOoCco0CcO0 


uOO0O000CO 
6FO2A1L6E 
00005920 
C000 7588 


O5C041F0 
4 7FOC 024 
00004850 
C0580000 
CO6A0000 
4 TFOCOAE 
00036768 
00000000 
00CG00000 
OGIUZ2000F 
CO100511 


48609BEE 


00.000000 00000000 


00.000000 05050505 


00015230 OO0015F98 OOOIBEC8 00019598 
6FO2ZAL2ZE OOO2ZALE8 OOO00CTD4 OOODZASIE 


G002A128 
OCOOCFFOO 
02C031A4 
00000000 


COBASOFD 
O7FE4810 
C1201B22 
4810C120 
D701C120 
4A23C102 
09000000 
00000000 
OOLEOOIC 
ODO2ZA51E 
OFO2A304 


BA6CO001 


OCO00C00 
0G000000 
Q000996C 
00012D10 


000850DF 
C1201B22 
1E554780 
17221832 
C12058F0 
4A30C12A 
O000000C0 
CQOG000CO 
001A90018 
OCO1LOAD3 
TFFFOAOE 


47TTO969E 


FFO6é0080 
FEQ040230 
C0040000 
000400C0 


000418DF 
12114780 
C0604130 
12114780 
C122D0201 
47FOCO9A 
Q000C0CO0 
O00Q000CO 
00160014 
09020000 
58B00010 


486090 26 


80000000 
BO000ALE 
00007498 
COOOTS5I1A 


D703D0C8 
CO03E1B33 
C1021A53 
CO8C4A2 3 
FOOOC128 
000058DD 
00000000 
Q00CONTCO 
00120010 
0O000C000 
911CB074 


41660061 


Teer rt ee eee ee ee ee ee ee ee ee 
Cerne ee eo a ee ee ee a ee ee ee ee ee 


we 
eeoeveevneeneeneve eevee eeeeneaeeveseneeeeeeee 


HH HH 


rte ee Le eee Se eee ee ee ee 


egg 6 ele we OOS a WA OO OOO OOO Oo 


Bj 6@ OA Ke O08 #0 U6 O:6 O60 NSS 66 Oo eS ee? 


Ee Norse Gia co 8 we SOLS ON ESE OS Oe ee 


Keee 
KN ecccccecelhes Ve ce ePeAe Ae e0AeKeOeAe* 
Ko Asie es oa oe ee we cee Aes ewe Ube ee oe 


ee ee ae ee ee eae ee ae ee ee eee ee 


we 
eaeceeeeaevneveeoeeeeeeesee eae vneseneneae 


x 
x 
5 das vice Giaree eres arnisieie WWs ee oa wma wet 
eee ee Ce ee 
x 


eer a eae Oe ee oe eee eee ee ee es ae ee ee a 


Keeveoe ee ONES Oe ON O14 ol eee eee eae ee 


09 


LOC 


299046 
CCCO4A 


00204C 
COO04E 


609052 
900056 
0090058 
QOIJO5A 
QOOCOS5E 
9090962 
000066 
900966 


SAMPLES FOR PRGGRAM LOOPS WORKSHOP. 


OBJECT 


CODE. 


C120 


C060 


C102 


vuCZ 


GOCGG 
C58 


ADDRL ADDR2 


00126 


00066 


00108 


00002 


090C0 
QOQO5E 


STMT 


19 
80 
81 


SOURCE STATEMENT FO8APRTO 
Re aig ge Oh Ae rele Seba te eka pa a ta re eae a Be ok ites aS a a AE a Ni est OS eee in ter eters £ogte 
x ANSWER 10. 
* 
%* *EXAMPLEA® I[S A "TRAILING DECISION? LOOP. NOTICE THAT THE 
* LGOP WILL BE EXITED FROM WHEN THE VALUE IN REGISTER 1 IS 
* EQUAL TO ZERO. ALSC NOTICE THE PGSITION OF THE INSTRUCTION 
* THAT ALLOWS US TO GET OUT OF THE LOOP WHEN THIS CONDITION 
* OCCURS (IT IS AFTER THE WORK=PERFGRMING PART OF THE LOOP) 
* THEREFORE, THIS IS A "TRAILING DECISION®. 
Men ss ee beer WG 6 lew LO ee 6 TOW 0 eee Oo CoO AO OER BL ONO 0. 6. © 0b 060 On 6.61 B00 0100 06 16 005066 @ 10a) 6 6+ .8'@, 0626 
AC OO ok dodo kako aoktckaakk QUESTION 10 62 x3 A AK a a a ok a ok a a a a ak a ak ak oo a ok 2k ake ok 
x fEXAMPLEB" IS A (LEADING/TRAILING) DECISION LOOP. 
x 
BOI ROI ORI I IO HOI iI I aI ok ak ak a ke ok ak ok a I a ok ok ak ak ofc oe ak 
EXAMPLEB LH R5,LISTILEN GET THE NUMBER OF TERMS. 
SR R29R2 ZERG THE RESULT REGISTER 
* 
ALR R5_R5 NUMBER OF TERMS TIMES HALF-WORD SIZE. (2) 
BZ ENDEXB NO VALUES, EXIT FROM LQOP. 
* 
LA R3,LIST1 GET ADDRESS OF LIST TO BE ADDED. 
AR R5_,R3 SET UP ADDRESS OF UPPER END OF LIST 
BCTR R50 SUBTRACT 1 FOR BXLE. 
LA R492 SET INCREMENT FUR INDEXING THRU LIST. 
LOOPE XB AH R2,O(R3) ADD A VALUE TO THE SUM. 
BXLE R3BeR4,LO0PEXB CONTINUE SUMMATION # TIL LIST ITS EXHAUSTED 
ENDEXB EQU * 
DC H*Q' % &@ % % TAKE A LOOK AT REG. 2 FOR THE SUM. 
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00005400 
00005500 
00005600 
00005700 
00C05800 
CQC05900 
OCOQOQ06000 
Q0G006100 
00006200 
00006300 


000065060 
OCC06600 
00006700 
OCCC&8G0 
O000069CG0 


06007100 
00007200 
00007300 
G0007400 
00007500 
O0COT60C 
OOCOr710C 
00007800 
00007900 
OO008GO00 
00008100 
00008200 
00008300 
00C08400 


1 et 


L9 


FP. 


REGS 0-7 


REGS 8-15 


002090 
960920 
oC9040 
009060 


024120 
02A140 
024160 
024180 
O2A1A0 
0 2A C 0 
O2A1E0 
024200 
02A220 
024240 
024260 


O2A826 


REGS. 


GO.cd 


FFFFFF2E 00000000 GOOCOOFO O002A24E 
0C61C260 00000000 09010288 CO000000 


QGOCCCUC 
FECSOCOS 
DN06061360 
90040000 


IOCLCCTCOCG 
DOG858FO 
4A23C10¢ 
06504140 
C1024133 
48100120 
O0CC498EC 
Q0000G60C 
DOCOOCCE 
QOVECCOC 
9CECDOGC 


4ACC9BDE 


O0GuU 


G00UGQ00 
6F007588 
O0800G000 
OCOGTBCS 


O0GGGOCO 
Cl22D201 
41330002 
UO024A23 
0GG24B10 
1B221833 
DUOCUTFE 
YOGO0COCO 
OoCC00000 
OOOACCO8 
CSCO04FO 


49050000 


00000000 


00000009 
FFC59001 
EQ0014D0 
09040000 


9O0ECDOOC 
FQO00C922 
4610CC32 
00008734 
C12647F0 
4610C0A2 
0000UC0C 
00G000C0 
00000000 
00660004 
07904110 


47FO095C6 


00.CO00000 OCOD0CDO 


00090000 
6FO2A190 
00005920 
00007588 


O5CO041F0 
47FOC 024 
CC004850 
C0580000 
C 06A0009 
4 7TFOCOAE 
00036768 
0090000 
00000000 
G902000F 
CG100511 


48609BEE 


00.000000 VvO000000 


00-0C0000 05050505 


00000002 90002A24D COOLBECS8 00019598 
6FO2ZA12ZE OOO2ZALE8 COOOC TDS COO2ZAS5I1E 


0002A128 
QOOOFFGO 
O2CO31A4 
oo0000c00 


COBA5SOFD 
O7FE4810 
C1201B22 
4810C120 
D7C1C120 
4A23C102 
O00000C00 
00000000 
OOLEOCIC 
QOOZA51E 
OFC2ZA304 


BA6CGOO1] 


CCOCOQ000 
GOCC90N0O0 
0000996C 
00012010 


OCO850DF 
C1i201B22 
1£554780 
17221832 
C12058F0O 
4AZ30C12A 
CO000000 
00000000 
OQO1A0018 
COCLOAO03 
TFFFOAOE 


47TTO969E 


FFO6O0G80 
FEO040132 
00040000 
00040000 


O0C418DF 
12114780 
C0604136 
12114780 
Ci22D201 
4 1FOCO9A 
000000006 
OO0000C00 
00160014 
00020000 
58B00G610 


48609C26 


8BO0CGOQ000 
80000AG6 
00007498 
QOOOT51A 


D703D008 
C03E1833 
C1021A53 
CO804A2 3 
FQOOQOC128 
Q000C58DD 
000C0000 
000000090 
00120010 
OGQ00U000 
911CBOT4 


416600C1 


Kee eccceececeeeerccecceeeerereseees 


* 
Hk adh vase anes eae seas eos o ee ee 
ie Wie ee sete e Ca wea wee aes wee 

* 


Mees Gece ancert wee ee ee 66 a Ow 0S fe eee 8 oes 


ieee OA «Ke 0s.6 3 60 e400 awe 6 6.6% 6 ie we 


Se WN 6 6e Re Slee e «© OAS 64 a ws we Owes 


ate 
“eee 


NS 6% 656 DaN ee Cece al eho hw whee eh. 


eg Niee ecelerand «6 ee 6 woke AS a Ow © 688% 


xe 
corse evccevcccNheccreccesseee® 
* 
* 
* 


we 
Teese eeeveeveevnesneev eevee eevee eeeeveene eee 


# 


Keece rv errecceseesecccevsevsevseceee 
Keeccccsccccc cress escceeescesveveet 
Oe ai ies ie. 6iW ee Oe: a cor ee Sa ee ete! Oe eve oe eo 
Mee eee» 66 60 00 60 CeO ONS 8 OC eee 


Keeeve é Sees PEWSe Ce CASON ee Cee 


SAMPLES FUK PROGRAM LGOPS WGRKSHOP. PAGE 5 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR?/0 9/16/70 
LLL Fe ccveccrcccccccscccrcrcccesecscesessccecsccccesesssereccccceccescccceces JOO008600 

112 * ANSWER 10.2 00008700 

L135. O000C8800 

114 * "EXAMPLEB® IS ALSO A "TRAILING DECISION® LOOP, BECAUSE THE 00C089C00 

115 * BXLE INSTRUCTION DECIDES WHEN WE ARE DONE. 00009C00 

L16 Fecccccccecccvcccsvcvcrcscccssescesssccecccccccccccenescccccccecsccesss OOCOILIOC 

LLB RRR RR RK KR KKKK QUESTION LO. 3 KR RRR RRR KR OK KOK KK KK KKK OO009300 

119 * 00009400 

120 * "EXAMPLEC® IS A (LEADING/TRAILING) DECISION LOOP. 00009590 

iZl * 00009600 

L 22D RR ARE RIE RE I RK 2g AC KE AE OE NC OE AE OC CAE IE EE AEE OK OS EK OK EK aR aK KK OK ok OK kK kK KK KEK KK «~OOOOCSUTOO 

000068 4810 C120 00126 124 EXAMPLEC LH RL»LISTILEN GET NUMBER OF VALUES IN "LISTIL'. O0C009900 
09006C 1722 125 XR R2_9R2 INITIALIZE SUM TOG ZERCQ. 00010C00 
QNO006E 1832 126 LR R3yR2 INITIALIZE INDEX REGISTER TO ZERO. 00010100 
C00070 1211 127 LOOPEXC LTR R1l,yR1 ARE THERE ANY VALUES LEFT ?? 00G10200 
me 209072 4785 CU8C 00086 128 BZ ENDFXC NO, EXIT FROM THE LOOP. 00010300 
al Q90076 4A23 C1G2 00108 L229 AH R2,LIST1L(R3) YES, ADD A VALUE TO THE SUM. 00010400 
OOUVOTA 4133 0002 00002 13¢C LA R3_2(K3) BUMP THE INDEX BY THE SIZE OF A HALF-WORD C0010500 
@ COOOTE 4B10 C126 0012C 131 SH Rl,=H'l1' REDUCE COUNT OF REMAINING VALUES BY 1. 00010600 
"600082 47FO CC6A 00070 132 B LOCPEXC AND CONTINUE SUMMING TO END OF !LISTI1*. OCO1LO?TGC 
000086 133 ENDEXC EQU * 00010800 


OCC086 0000 134 DC AAG 4% 4 4 LOOK AT THE VALUE GF REG. 2 IN THE DUMP. Q0010900 


€9 


F.P., REGS. OC.00G0000 60000000 0C¢.CCO0000 O0000CCO CO.CO000G 00000000 Q00.000000 G5050505 

REGS 0-7 FFFFFF2E 00000000 OOO000GFO O000001E 00000002 O002ZA24D OOOLBEC8 00019598 

REGS 8-15 00GiC260 DECCO00S G001C288 00000000 6FOZA1ZE OOOZALEB8 OOOCCTD4 CCOZAS5ILE 

00000 Ooceceogc QODD00000 0OCCIN00D 00000000 OOO02ZA128 OOODD00N FFOGOORO BO0DGIOD Kee ccr ever eseccccvecevccevscccssse® 
C0°020 FFC500C3 6FCO7588 FFC50001 4FO02A1B9 QOOOFFOG OOCCOI00 FFO5C232 BCI4ZEDSH F.E ewe eee cE ccc coerce er cccccccccceeX® 
993040 QOCGG0OG C400G0S0 000C14DC 6GC005920 C2CO004A4 0000996C DOO4SCOCG DODOT4SIB Kec cceccccccccccrcvesccescccsscsee® 
009060 J004C0GG YOOCTBCB8 90040000 60007588 GOO000000 DOOLZDLO COD4OCOO DODCTOHIA Fecwcee Hen ecccscveccrccevesceseveX 
02A120 OOCCOCOCE CLGOUD00 FOECDOOC e5CO41F0 COBASOFD OOO850DF ODO04SLBDF DIT32DO0B Kec c revere cvcc eee ecccccscvcePe ee 
2 2A140 DGCO856FC C122D201 FCOOCO22 47F0C 024 CTFE4810 C1201B22 12114786 COZELB33 Fee DA eKeDe ee eDe cnc ce Ne ccccvccsee® 
O02A160 4A23C1lU2 41330002 4610CC32 00004850 C1201B22 16554780 €0604130 CLOZ1A53 Fe eNe weve nccceceeNe cers ccscceAsee® 
0 2A180 06504140 00024A23 00008734 C0580000 48100120 17221832 12114780 COB804A23 Feee cece eecvcce ne eNovececvecsvee® 
O2A1LA9 C1024153 00024B10 C12647FO0 CO06A00C0 D@O1CL120 Cl2Z058FO Cl22D2C1 FODICI2ZB FAL wee echo eCe ee eP eAe Ae eOAeKe00A-* 
O2A1C0 4810C12uU 18221833 4610COA2 47FOCOAE 4A23C102 4A30C12A 4TFOCOSA OGCOOSB8DD Fe eNecenece cee Deer eNe er eNeeDecscne® 
O2A1E0 00G498EC DOCCUTFE O0GG0000 09036768 OOQO00000 OOCOKDNON DNODAOOCO COOKODOD KFeeeveecesecvcsccccsecsvsccscseseer 
92A200 OO0CCCEO CLOQGYVNTO CBGDD0CD ON0DD0ONCO OIOCNOCD OCODOODNGO OCDOODNG OOQONIDD Free wccceevcnsveeescsecsevsesssese® 
02A220 OCGCGSOG YO00GCDD 90606900 00000000 OOLECCIC OCLAGOLB DOLGEOOL4 DOLZOOLG Keer ececccrcccccrcccseseccssvscseek 
D2A24C OGOEVOOC GOUAG008 O806CC04 ODG2900F OQOOZA5LE GOOLOADN3 OCLZ0000 CD0000DD Keaeveeccvcceccsnccevsccevsrssces® 
92A26% SIECDCOC J5COG4FC €7004110 CO0100511 OFO2A304 TFFFOAODE 5SB8BO001LO GLLOBOCT4 Fee cee eee ccc cccccseccveseceseee® 
O2A820 4A009BDE 400539090 47F9S5C6 48609BEE BAGOCOCL 4770969E 48609C2ZE 41660001 Fee e coe ele Feces ecsvncvscvecsseeee® 


LOC 


909C38 


c00098 
CC209C 
COCO9E 
SOCCAD 
B on0cA4 
000CA8 
JOCCAC 
3020R0 
0000B4 


OG0OK4 | 


SAMPLES FOR PROGRAM LOOPS WORKSHOP. 


"LEADING DECISION® 
(WHICH CONTROLS THE LOOP) 


IS A (TRATLING/LEADING) 


FO8APRI0 


eecoeoe@eeaesvseveeeovoeeneveevseespeeeeeeeseeeeseeeesteoeseoeeeeseseeeeeteeeseeestseesweoeeeeew oe eweeeseee ee @ 


LOOP, BECAUSE THE VALUE 
IS CHECKED AT THE 


BEFORE ANY GF THE GPERATIOQN OF SUMMING 


eseeeeoeteesvensvnevseeeeesestspesestsoeneotsest tee eeseeeeeeeeeseeeseeesvseevseeee eee eeeaeaeeeee ee ee 


DECISION LOOP. 


GET NUMBER OF VALUES IN 
ZERQ THE ACCUMULATOR. 
ZERC THE INDEX REGISTER. 
TEST THE NUMBER REMAINING. 

ALL CONE, EXIT FRCM LOOP. 

ADD A VALUE TO THE SUM. 

BUMP INDEX BY LENGTH GF A HALF-WORD. 
CONTINUE UNTIL *LISTL® [TS EXHAUSTED. 


FLISTIS. 


OBJECT CODE ADDR1 ADDK2 STMT SOURCE STATEMENT 
136 * 
i37 * ANSWER 10.3 
138 * 
139 * "EXAMPLEC® IS A 
14G * OF REGISTER 1 
141 * START OF THE LOOP, 
142 * IS BEGUN. 
143 * 
9701 Cl2u Ci2G Cl126 00126 145 - XC LISTLLEN,LISTILEN 
146 PRINT OFF 
L 50 RR KR a a EK KKK KR AKAIKE QUESTION 
LoL * 
152 * "EXAMPLED! 
LoS. * 
VD 4G HRA OE EE A ORE OK IK KK OE OK OK IK OK 
4810 C126 C0126 156 EXAMPLEC LEH R1l,»LISTILEN 
1B22 157 SR R2eR2 
L533 158 SR R3~eR3 
4610 Ccdeé O00A8 15S LOOPEXD BCT R1,LOOPD2 
47FC CuAc OOCB4 160 B ENDEXOD 
4A23 C102 00108 161 LOOPD2 AH R2,LIST1L(R3) 
4A3C C12A 0C130 162 AH R3,=H! 2! 
47FO COIA ICCAD 163 RB LOQPEXD 
164 ENDEXD EQU * 
9G00 145 DC Hee* 4 8 % 


%® CHECK THE VALUE OF REG. 2 IN THIS DUMP. 


LO oe GRR RK AE HE IE A RO AR RC A 2K 2 OK KOK IE AE IE OK ie 


BIO AKI EOI ICR a IRC I OR IC a aK ga aI a ac aK oe 
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00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 


QO0012U00 
00012100 
00012506 
OCG12600 
00012700 
09012800 
00012900 


GGU13100 
00013200 
00013300 
00013400 
00013506 
00013600 
Q0UG13790 
O001380C 
00C139CC 
OO0OL4CCO 


G9 


SAMPLES FOR PRKUGRAM LOOPS WORKSHOP. 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


167 
168 
169 
170 
171 
1f2 
173 
174 


177 
178 
179 
180 
181 
182 
183 
184 
185 
186 


HM HH He HH 4 36 HK 


ee 


SOURCE STATEMENT FO8APRT7O 
ANSWER 10.4 
*EXAMPLED?® IS ALSO AN EXAMPLE OF A *LEADING DECISION LOOP. 
NOTE THAT IT USES THE *BCT* INSTRUCTION TO DO IT*S DECISION 
MAKING FOR IT. 

SO ok dak dock tok acock TROUBLE ANALYSIS PROBLEM LO.1] #2 xR RE KK 
LOOK AT THE FOLLGWING DUMP AND FIND QUT WHY ‘EXAMPLED® 
FAILED TO WORK PROPERLY. 

**NOTEs IF YOU FIND YOURSELF HAVING DIFFICULTY GETTING STARTED, THERE 
TS A SERIES OF QUESTIONS AFTER THE DUMP THAT WILL GUIDE YOU 
TO THE PROBLEM AND IT*®S SOLUTION. 

FESO IESIO CIO IO GSSI GI ICICI IOI ICI IG ISIS ISIS ROI GCI II IER IGIOIGR sk ak ack ok ak 


PAGE T 


9/16/70 


00014206 
00014300 
00014400 
00014500 
00014600 
00014700 
00014800 
0CG14900 


00015200 
00015300 
00015400 
00015500 
00015600 
00015700 
00015800 
00015900 
00016000 
00016100 


99 


FeP. REGS. UueOCYVOLU DGOCOQIDNDDG 00.G00C00 O00CCCOD COGO.~.0C0000 90006000 CO0.000000 05050505 

REGS 0-7 FFFFFF2E FFFD5117 O37FDDC2 900055DD0 GCOUN0002 0002A24)D QOOIBEC8 00019598 

REGS 8-15 CC01C260 DUCOCCIVND 9001C288 DABDVCIVUO €FOZAIZE OOOZALE8B OCOCT7D4 OOO2ZA5ILE 

OCG000 90CGEGGL YOGOGDCO OD0CCD000 OCG09000 Q002A128 GOOO00000 FFOEGDOGO B80D0DGC00D Kec ccecccceccccesvcccvessscesecee® 
909020 FFE5CG01 400 7EA2C FFC50005 AFO2A1D4 OOOOFFOO QO000000 FFC50132 AFOZALDO *eVew wove Es eee eMac ccnvcseLsece sek 
0C0040 DOGCUGVOG 64000000 FOC014D0 00005920 O2CO22A4 COO099EC ADND4ZOOCG OCOOT4EIB Kee wee ee Gece ccerscccrccvsecsneee® 
OCIV06C JO00400CC COOGC/BC8 00040000 00097588 00000000 90012D10 O0040CG0 DOOCTSIA Feces ee Her cccvesccccececcccseseeX 
O2A120 SOGUOCIO OOGI0CCS BOECDOOC U5C041F0 COBASCFD OOCBS5SODF OOO4SLBDF. DI0ZD00B Fe ccwce cae ccc ce eeDeccseccccveePese® 
02A149 DCO858FO C1l22D201 FOOCTO22 47F0C024 O7FE4810 C12C1B22 12114780 COZE1LB33 Fee OA Ke Cee ee Gees sveNenvecconene® 
C2A160 4A23C10¢ 413300C2 46100032 0000485C C1201B22 16554780 C0604130 C1021A53 Fe eNeeeecccvcccceNecccsccccsehe se 
O2A180 06504140 00024A23 00008734 C0580000 4810C120 17221832 12114786 COBC4A2Z3 Few ce vnccccrcccceNecccsccccsree® 
O2A1A9 C1024133 CG024B10 C12647F0 CO6AD000 D?C1IC120 C1l2Z058BFO Cl22D201 FOOOCI2ZB F#New ee cee Ne eGo vee P eAe Ae OA. K.00A.% 
Q2A1C9 4810C12G 18221833 4610COA2 47FOCOAE 4A22C102 4A20C12A 47FOCOSA CODO5SB8DD Fe eNecsece ree cD we eNeeeNaeDevevee® 
C2A1E0 900498EC DCUCOTFE OGG0G000 00236768 QOOGOCCIV OODDO0ND DOGONDIN ODDQDDOO KeeceeseceveeesevesccccvcssceeseeX® 
S2A200 VCGGOO00G Yvu0G00CN O0COONCOD C0000000 DOCCOOGD BODONNODD DODDOOTO ADDODOONO Fee cesvcevcceceseccsssccscsccsees® 
O2A229 ICCUIVGCO O0GOGQ000 DDOVDOOGO 0OG00GIVO COLEGO1LC CO1LADOLB CULG60C1L4 GOLZOOLO Fee ecececcccescveveccecssvcccccee® 
O2A24% JOCEVCUC DODOAINNB 090060004 69020000 OOO2ZA5LE GOOLOANZ OOCZOCTO CODCTOOO Feeeece ver eccccvverccccsvesecvsece* 
C2A269 9CECDOOC C5COU4FG 076041106 C0100511 OF CZA304 TFFFOAOQE 5S8GB0G01O GLICBOT4 Fee ee ee elec ence cscs ccescccssccssvcee* 
O2A820 4AQ0CSBDE 4005C000 47F095C6 486C9BEE BA6COOOL 477TO969E 486C9IC2ZE 41EH0DOCL Fee ee cee sD ee cr erecccresssevreseve® 


he ee 
ae EF 


oe fe eo Re ok ake oe ok ak ak ake of ic ok ok oc ok akc ae akc ake ake fe aie i 2 AE SK AE EE RC A IE AE KE AK aC KE HE EO a OH KE OE HE A IK HE WC AE AC A I EE CC I A AE NE eC OE Ne A ee He He ee Re He EAE 2 AK EO I OK OK A OK AK 
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SAMPLES FOR PROGRAM LOOPS WORKSHOP. PAGE 8 
LOC OBJECT CGDE ADDR1 ADDR2 STMT SOURCE STATEMENT FOBAPR/O 9/16/70 
LBB RRA aK AE KK OE a aK AK A RK OO OK 2 OK i Ko ok kK IC KK ok kok ak dook ok kK KK KK RKKKK «OO0L16306 
189 * 000164uU0 
190 * TO GIVE YOU SOME ASSISTANCE IN ESTABLISHING A DIAGNOSTIC 00016500 
191 * APPROACH TO THE SOLUTION OF PROGRAM POOBLEMS, THE FOLLOWING 00016600 
192 0% IS A LIST OF QUESTIONS THAT I WOULD ASK MYSELF IF I WERE 00016700 
LoS = DEBUGGING THIS DUMP. THES, QF COURSE, [IS USING THE TECHNIQUE 00016800 
194 * OF REDUCING A PROBLEM TO A SERIES OF PERTINENT QUESTIONS. 00016900 
195 * THE QUESTIONS ARE AS FOLLOWS, AND WOULD BE ASKED IN THE ORDER 00017000 
196 * GIVEN. YOU MAY WRITE YOUR ANSWERS BELOW EACH QUESTION. THE 00017100 
197 * COMPLETE SEY OF ANSWERS FOLLOW, BUT YOU SHOULD NOT NEED THEM COC17200 
198 * AS YQU SHCULD BE ABLE TO GENERATE YOUR OWN CORRECT ANSWERS. 00017300 
Loo C0017400 
200 * 1. FOR WHAT REASON DID THE PROGRAM ABNORMALLY TERMINATE ? 00017500 
201 * (WHY DID THE DUMP OCCUR ?) 00017600 
202 * 00017700 
203 °% 2e WHERE IN STORAGE DID THIS FAILURE OCCUR (ADDRESS) ? G00178C0 
204 * 00017900 
205 * 3. WHERE IS THAT IN THE PROGRAM (DISPLACEMENT) ? 0G018C000 
206 * 00018100 
207 * 4. HOW DID THIS INSTRUCTION CAUSE THAT PARTICULAR PROBLEM ? 00018200 
208 * 00018300 
209 * 5» HOW COULD REGISTER 3 GET THAT LARGE ? 000184C0 
210 % 00018500 
211 * 6. WHAT REGISTER CONTAINS THE COUNT THAT CONTROLS THe LOOP ? COQOO18600 
212 * 00018700 
213 * t+ WHAT DCES IT CURRENTLY CONTAIN ? 0001880 
214 * CC018900 
215 * 8. WHAT VALUE WAS USED TO INITIALIZE REGISTER 1 ? 00019C0C0 
216 * 00019100 
217 * 9. WHAT IS THE CURRENT VALUE OF "LISTILEN" ? 00019200 
218 * 00019300 
219 * 10. SHOULD THAT BE VALID ? C0019400 
220 * 00019500 
221 * ll. IF IT IS VALID, TT SHOULD BE TESTED FOR IN THE PROGRAM. 00019600 
222 * OK, ADD THE CODE THAT WOULD TEST FOR A ZERO VALUE OF 0C019700 
223 * "LISTLLEN", AND YOU WILL HAVE SOLVED THE PROBLEM. 00019800 
224% * 00019900 
eo = 


SOIC ICC CICK OI IG IG CIR III gibi lok iaickok dom tok kok iotokctokk §9002G000 


00622009 
09822000 
0012c000 
00922000 


00622000. 


00722000 
00€¢c000 
002¢c000 
0OT¢2c000 
00022000 
006TZ2Z000 
O0O08TZ000 
002712000. 
009TZ2000 
006T2000 
00% T2000 
00c€ T2000 
002T2000 
0OTI2900 
000TZO000 
00602000 
0080c¢000 
00202000 
00902000 
00602000 
00792000 
00€02000 
00202000 


OL/9T/6 


6 4I9NVd 


2 ok io kk foi ok ak a Ra koko ick kkk kk kok ok kiko okok ak akkokokok ke akakok kook kok ak akkakkskak 7G ¢ 


‘wVU9ONd JHL OL GGV OL JXIT GINGM NOA LVHL 
J0QD 3Hi 4G SSINSATL934539 FSHL WOSHD YOLINULSNI YNOA L457 


"OS SALVLIS ATIVITSIDAdS YAWWVYDOdd JHL SSATINN 
‘GQIVVANI 396 QINOHS OWSZ 40 ANIVWA V AHM NOSVSY ON SI 3AesaHL 


°O STIVNGHA ATINAYWNI 


*wNJITiStda WOds GAGVOT SI IT 


“YSdGWNN SATLVOAN 


V SNIVLINOOD T 


*dO07 3H1 SIOYLNOD T 


-*SAWIL ANVW OO 


G31N93xX3 SVM 


oNSTTLS I Ves 


ad isToay 


adLSTOAYU 


YdLiSTOAY 


d007 3HL 


“SNIHDVW ACIS STHL NI SS3xYddV ANV 
NVHL YS9XVT ST HOIHM £.00008aX = sazdOTsX + € DAY + 2@T 93AX 


sB8WaX = ee RYYVAX — sOGdIVYOX “sBVeX INSWAIVIWSTO wVududd 


°, QQIVYO.X NOIIVIOT ANVYOLS 


*(H93HD WVedNdd) NOTId39X3 ONISSAYXGGV NV 


*T!l 


* €S2C 
*x CGC 
x 192 
O0G2 
642 
B92 
LZ 
942 
G¢C 
i 
EvC 
"hy WO 
Ted 
OvZ2 
6€2 
BEd 
LEZ 
9€c. 
Ged 
¥EC 
Cec 
cE 
TE€Z 
0&2 
622 
822 


HH HH HH HH OH He FH HH He HH HH He OH HH OK 


eae 2c ake ae ae ae ak ae ake a ak akc akc ak akc oc ae ak akc ok ai ak ake ok 2k oe ake ke ok 2] 2k ak ok oe ok ok oe 2 2k ok ok a ok a ok oc ak ok oc a ak ake ok ak oak ok ok ak ok kok kok akaokokk 10 2 


OLuddV804 


INAWS1LVAiS 398NOS 


dWiS cudaav Tuadqv 43009 LOArEado0 304 


*dOHSHYOM SdO007 WVY90YNd YOA SATdWVS 


SAMPLES FOR PROGRAM LOOPS WORKSHOP. PAGE 10 
LOC OBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT FO8APRT7O 9/16/T0 
256 COCO CIC ICICI IO RI OK i cota atom ak koko =90023100 

257 * ANSWER THE FOLLOWING QUESTIONS ABOUT THE PRECEEDING EXAMPLES. 00023200 

258 * . 00023300 

259 * 1. WHICH INSTRUCTIONS IN "EXAMPLEA™ TEST FOR THE "ZEROQ-— 00023400 

260 * SPECIAL CASE" CONDITION ? 00023500 

261 * 00023600 

262 * 2e WHICH INSTRUCTIOGN(S) SETS UP THE ADDRESS OF THE NEXT ITEM 00023700 

263 * IN THE LIST FOR EACH OF THE FOLLOWING ROUTINES ? 00023800 

264 * . 00023900 

265 * Ae “EXAMPLEA" ? 00024000 

266 * Be. "EXAMPLEB" ? 00024100 

26 * C. “"EXAMPLEC" ? 00024200 

268 * De. "EXAMPLED" ? 00024300 

269 * 00024400 

2tfu * 3. IN "EXAMPLEB"™, WOULD THE LOCP STILL WORK IF THE ‘ALR® C0024500 

2?vi * WERE REPLACED BY * SLL R5,1 * ? 00024600 

272 * 00C24700 

273 3 oO kok ga cock ook oki kok lok ik tka tok §=00024800 


69 


02 


LAC 


009086 
OQO00BA 
COUORE 


C320C0 
NC9108 
C69126 
999000 
C00128 
COIL2ZC 
COOL2ZE 


oa Was eo 28 


SAMPLES FGR 


OBJECT CODE 


58)D C004 
98FEC DGOC 
O7FE 


‘LE GOICECGIAIG1B 


3c 
SOOF 


ADDR1I ADDR2 


09004 
OO000C 


STMT 


275 
276 
277 
278 
21S 
280 
281 
282 
2 83 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 


296 


297 
298 


200 
301 
302 
ie 30 BS. 
3204 
305 
306 
307 


PROGRAM LOOPS WORKSHOP. 


SOURCE STATEMENT FO8APRTO 
* ANSWERS FOR THE PROGRAM LOOPS WORK PRUJECT. 
* 
x 1. THE TWO INSTRUCTIGNS * LTR RiygRL * AND * BZ ENDEXA ! 
xx TEST FOR A LIST CONTAINING ZERO ITEMS. 
xe 
* 2. EACH OF THE FOLLOWING BUMPS THE POINTER ADDRESS TU THE 
x NEXT ITEM TO BE HANDLED IN THE LIST. 
* A. LA R3,2(R3) 
x B. BXLE R3,R4,LQGPEXB 
x Gis LA R322(R3) 
x D. AH R3,=H"2! 
* 
x 3. NOT COMPLETELY, BECAUSE THE *ALR* IS BEING USED TO TEST 
* FOR A ZERO ITEM LIST AT THE SAME TIME, AND THE *SLL®* 
* WOULD NOT SET A CONDITION CODE TU INDICATE A ZERO ENTRY 
x LIST. 
OF chai Wi-caa a - CB ial Yast le tes olla dis ies ara Sah we cise sale tec Pegs tale ta a Sa Nea es Wace ee ee teeta OO ee whteis: Se eta et er eee: whe 


L™ 
BR 


SAVEAREA 9S 


LIST1 BC 
ETS TLEN “OG 
END 


R13,4(R13) 
R14,R12,12(R13) 
R14 


18F oo 
L5AL2(LISTLLEN-*) 
AL2(C¥=LISTLI/L"LISTL) 
LOOPSECT 

=V( PCHKRETN) 

=Ht]¢ | 

=X*0AQ03! 

=H'2¢ 


THESE ARE THE VALUES TQ BE ADDED 
NUMBER OF ITEMS TC BE ADDED. 


PAGE ll 


9/16/70 


OCOU25CO00 
CGO02519C 
GOG25206 
00025300 
C002540G 
C002550C 
0002560u 
00025700 
00025800 
000259090 
OGV26C00U 
00026100 
00026200 
00026300 
00026400 
00926500 
OGC266900 
OGU267900 
COO268CU 
CCO2Z6°0C 


OUG27T100 
OCO027200 
OCI27300 


VI027500 
OG027600 
VOO2TIOS 
COC2TBGL 


LL 


POS.ID 


Ol 


REL.ID 


G2 


FLAGS 


ic 


ADDRESS 


000128 


RELOCATION DICTIONARY 


PAGE 1 


9/16/70 


cL 


CROSS-REFERENCE 


SYMBOL LFN VALUE DEFN REFERENCES 

BR14 OCCI2 OG0028 00032 063G 6031 

ENDEXA GO001 000044 OCCTE 0070 

ENDEXB 90001 000G66 00108 0100 

ENDEXC 00001 CuUCL8S 00133 0128 

ENDEXD 00001 CO0COB4 9C164 0160 

EXAMPLEA 90004 GOCO2A 00066 

EXAMPLEB 09004 C00046 00096 

EXAMPLEC 00004 GO0C68 00124 

EXAMPLED 00CU4 COUC98 CG156 

LIST1 00002 000106 00301 0073 0102 0129 G161 O0302 C302 

LISTILEN 90002 000126 00302 9066 C096 0124 0145 0145 0156 C301 

LONPD2 00004 JOCCA& 00161 0159 

LOOPEXA 00004 0C0638 00073 0075 

LOOPEXB 00004 OOGO5E 0G1G6 O107 

LOOPEXC 00002 O0007U 00127 0132 

LOOPEXD COGG4 OCOOAO GU1L59 0163 

LOMPSECT 00001 bGCV00 COCOl1 03C3 

RQ 00001 uduGOO 90003 

Rl 00001 OAGUCO1 00004 G066 0069 0069 OC75 0124 OGO127 O27 O131 0156 0159 

R10 GOCO1l COGOO0A GG013 

R1J C9001 COULCUB 06014 

R12 COGO1l veGuVvO0C OCC15 0019 0020 cv21 297 

R13 09001 YvutOQ0D CUG016 SC1l1S 0023 C024 C025 0026 0026 0296 9296 Cc29g9T 

R14 OOCO1l GOUVOOE OCCIT UC19 0932 G297T 0298 

R15 CQO8G1 OOGTSF 00018 OG22 0023 0024 0025 0029 9030 0147 0148 

R2 COO01l JVOOU02 90005 C067 O067 O073 O09 OC97T 0106 V1i25 O125 9126 O129 O157 G15 O161 

R3 00001 GV0003 90006 COT2 OC72 0073 ICT4& Dole O102 9103 Cl1lCo vlUf O12E OL29 0130 O130 158 
0161 0162 

R4 00001 GOOGCO4 JVO00T 0105 O107 

R45 COO0GL GOCUU5 CGOO8 0096 C099 G099 ¢€103 O1C4 

R6 OCOG1 UG0006 VUG0N09 

RT OO0G1 JOCCU? 0L010 

R8 O90C1 Ovuecos OUC1I1 

RI OCCO1l O090009 00012 

SAVEAREA O0CO0G4 JuCOCU YIu300 GO22 

NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

* STATISTICS * SGURCE RECORDS (SYSIN) 218 SOURCE RECORDS (SYSLIB) 

*QOPTIONS IN EFFECT* LIST, NODECK, LOAD, NORENT, XREF, NOTEST +s ALGNy OS, LINECNT 55 


357 PRINTED LINES 
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0158 


eZ 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST»NCAL 


VARIABLE OPTIONS USED — SIZE=(45056,6144)- DEFAULT 
IE4C000 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME GRIGIN LENGTH NA ME LOCATION NAME LOCATION 
LOOPSECT OO 132 
UTILITY 138 SAG 
PRINT LOA PCHKRETN 2F6 
ENTRY ADDRESS 138 
TOTAL LENGTH 6D8 
# KG 0 DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


OPTIOQN(S) 


USED 


NAME 


LOCATION 


NAME 


LOCATION 


vl 


Fe Fe ake Ree 2 He oh a ak fe ae a RC a a af ade ak ake ake ake ae ade ake ake oe ae fc ae ake ake fe i akc ie a 2 ee he he he a 2 ee Se he eM ee he he he he RK 2 2 2 RE a a 2 2 EE EK Oe EI OK A I RE A EEK A I I HE A EK OK IK 


EEEEEEEEEEEE 
EEEEEEEEEEEE 
EE 

FE 

Ee 

EREEEEEE 
EEEEEEEE 


EEEEEGEEEEEE 
EEEEEGEEPEEEE 


SSSSSSSSSS 
SSSSSSSS55S5 
SS S$ 
35 
SSS 

SSS 9S9S55 

995555555 
SS 


S$ SS 
SSSSSSSSSSSS 
SSIS 5555:55 


TTTTTTTTTTTT 
TUTITTTTTTTT 

a a 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

9999999999 
999999999999 
99 99 
99 79 
99 99 
999999999999 
999999999999 
99 
99 
99 99 
999999999999 
9999999999 


EEEEEEEECEEE 
PEEEEEEEEEEE 
EE 

EE 

EE 

EEEEEEEE 
EEEEEEEE 


EE 
EEEEEEEEEEEE 
EEEEEEEEEEEE 


DDDDDDDDD 
DDDDDDDDDDB 
DD DD 
DD DD 
Dv DD 
DD DD 
O') DD 
DD DD 
DO DD 
DD DD 
DBDDDDDDDD 
DDDDDDDDD 


SZ 


SYMAROL 


NESTEDLP 


TYPE ID ADDK 


SD Jl JuUGOGY 


LENGTH LOD ID 


EXTERNAL SYMBOL DICTIONARY 
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PAGE 1 


Lcc OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRI0 9/16/70 


C0000 1 NESTEDLP CSECT 00GC0100 
2 COPY MHMBEGIN 00000200 

G00000 3 RO EQU 0 000C0 700 
009901 4 R1 EQU i 0O0COC800 
000002 5 R2 EQU 2 Q0000S00 
0939003 6 R3 EQU 3 OCOQ01C99 
900004 T R4 EQU 4 000601100 
009095 8 RD5 EQU 5 OGC01200 
CO3006 9 R6 EQU 6 OUCT1L 300 
GCO0O007 10 R7 EQU qT 00UG1400 
O000CO8 11 R8 EQU 8 COUC15900 
000009 12 R9 EQU 9 OOCC1L609 
CIOGOA 13 R10 EQU LO 9GC01 700 
S00009B 14 Ril EQU ll GUCO1LBOCG 
QG090C 15 R12 EQU l2 QOCOQ019C0 
OoU00D | 16 R13 EQU 13 O0CC 20900 
GOODCOE 17 R14 EQU 14 000021006 
OOOCOF 18 R15 EQU 15 OGUG2200 
SO9000 GOEC DUOC COCOC 19 STM R14sR12,12(R13) SAVE THE CALLER*S REGISTERS 0CU02400 
Q09004 o5C0 20 BALR R12,0 ESTABLISH PROGRAM BASE 300025900 
COI006 2i USING *yR12 LET THE ASSEMBLER KNOW. OC UG2690 
CO00C6 41FC C132 00138 22 LA R15_,SAVEAREA ADDRESS QF MY SAVE AREA uCO002700 
IOOOCA 5SYXFD C008 CUGO8R 23 ST R15,8(R13) BACKWARD CHAIN O0GU2 80C 
QOOCOE SCDF CCUu4 CCO04 24 ST R13,4(R15) FORWARD CHAIN 00002900 
> 000012 180F 25 LR R13,R15 ESTABLISH MY SAVE AREA VGIVO3TIC 
S09014 D/’c3 0CO8& DELS GOCO8B 00008 26 XC 8(4,h13),8(R13) TERMINATE THE FORWARD CHAIN GO000310C 


27 * END QF STANDARD ENTRY LINKAGE CONVENTIONS. 00003290 


LL 


NESTED LOGP SAMPLE ..e-.-eGROSS SALES PROGRAM. 


LNC OBJECT CODE ADDR1 ADODR2 STMT 
29 
30 
31 


32 


% tH 


KEEEEEE EL EEE EEE EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EE EEE EEE EEE EE EEE EEE tee tte te 


ee 


% 3 4 4 


HH 4 


xe 4 


Va ee 


SOURCE STATEMENT 


FOSAPRTDU 


FR AK EE AK AK KE A ACK OK RE EE IE RCC CO OK A ae OK a ie eK OK 


x 


HE AE AR AE EK OK EOC EE AC ie 2 he A AE OO I OK OK I OK OK OK OK 


THIS PROGRAM IS DESIGNED TO COMPUTE THE TOTAL GROSS SALES IN 


AN OFFICE WHICH HAS FIVE SALES MANAGERS. 


HAS FIVE SALESMEN WORKING IN HIS TERRITORY. 


EACH SALES 


MANAGER 


THE PROGRAM SUMS THE SALES FOR EACH SALES MANAGER AND FOR THE 
ENTIRE OFFICE AT THE SAME TIME. 


THIS [TS DONE BY USING TWO LOOPS "NESTED! WITHIN EACH OTHER. 
THE OUTERMOST LOOP STEPS THE PROGRAM FROM ONE SALES MANAGER 
WHILE THE INNERMOST LCOP CONTROLS THE ADDITION 
OF THE SALES OF EACH SALESMAN IN THE MANAGER®S TERRITORY. 


TO THE NEXT, 


THE DATA EXISTS IN A TABLE THAT LOOKS LIKE THIS: 


FEEEEE EEE EEE EEF EE EEE ELE EEE EEE EERE EE EFL EEE ERE EEE EEE ER EEE EEE EE FE FEE EE EHH 


@eeaeseeveeeve@eeoeeeeeseeeeeeoeoseeesvseveeevseeseeseeeveeevoeeeveeaeseeve eee eeesneoeeneo7neeaeeene7e eee eee 


EACH BLOCK IN THE TABLE REPRESENTS AN 8-—BYTE NUMBER WHICH 


CONTAINS THE GROSS SALES FOR EACH INDIVIDUAL SALESMAN. 


NUMBERS ARE IN PACKED DECIMAL FORMAT.) 


EACH SALESMAN [IS IDENTIFIED BY TWO NUMBERS, 


A COMMA, 


FOR WHOM THE SALESMAN WORKS, 
SALESMAN#S NUMBER IN HIS MANAGER®S TERRITORY. 
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THE FIRST [TS THE NUMBER OF THE MANAGER 
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CTIV00406 
OCOCO500 
00000660 
60000700 


000060900 
00001000 
00001100 
00001200 
00001300 
00001400 
900601500 
00001600 
06001700 
00001800 
00001900 
OG002000 
60002100 
290022900 
00002309 
O00C24C0C 
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NESTED LOOP SAMPLE....-eeGROSS SALES PROGRAM. PAGE 4 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT0 9/16/70 
QOD01A 9836 C1TA 00180 94 LM 396,=A(TOTMGRO1L4+40,8,TOTMGRG1,5) INITIALIZE REGISTERS UCOC69CO 
COOOLE 1344 95 LCR 494 9C007000 
000020 FAT? 5000 3006 00000 00000 96 SUMLOOP AP 0(8,5),0(8,3) ADD A SALESMAN®S TOTAL TO MANAGER'S OO0OT1OC 
£00026 8634 CO1A 0CG020 97 BXH 3949SUMLOOP REPEAT FOR ALL THIS MANAGER'S MEN. 00007200 
O0002A FATT C12A 500C 00130 00000 98 : AP TOTOFFIC+0(08,5) ADD THE MANAGER'S TOTAL TO THE OFFICE 00007300 
000030 4155 00630 00030 99 LA 574805) POINT TO NEXT MANAGER 00007400 
000034 4133 0058 00058 100 LA 39883) POINT TO HIS LAST SALESMAN. 00007500 
J090038 4660 CO1A 00020 101 BCT 6, SUMLOOP LOOP UNTIL ALL MANAGER'S ARE DONE. 00007690 
C0003C 9000 102 DC HQ! GET A DUMP TO CHECK THE ANSWERS. O000G7700 


104 *&EESEEEECESEESECESESSEESEEESEESEEEEEEEEEEEESESEEEEEEEEESEEEEEEEEEESEEEE OCOUDOTICO 


105 * 0C008000 
106 * ANSWER THE FOLLOWING QUESTIONS ABOUT THIS CODING ROUTINE. 60008190 
107 * 00008200 
1C8 * L. HOW MANY TIMES WILL THE "AP*® INSTRUCTION AT *SUMLOOP® BE 00008300 
109 * EXECUTED ? 06008400 
110 * 00008500 
lll * 2. HOW MANY TIMES WILL THE OTHER "AP* INSTRUCTION BE 00008600 
112 * EXECUTED ?? 00008700 
113 * . | 000C8800 
114 * 3. WHICH INSTRUCTION CONTROLS THE NUMBER OF TIMES: 00008900 
115 * A) THE INNER LOOP [IS EXECUTED ? 00009000 
116 * B) THE OUTER LOOP IS EXECUTED ? 00009100 
Lit =, . 00009200 
118 *€&EEEEGE EEEEEEEEEESEEEESESEGEESEE EGEEEEGESEEEEEEEEEESCEFEEEEEEEESEESEEEEEE 00009300 


08 


NESTED LUCP SAMPLE..eeeeGROSS SALES PROGRAM. PAGE 2) 


LOC OBJECT CODE ADDR1 ADDR2 = STMT SOURCE STATEMENT FOBAPRZU 9716/70 
120 Kevecvccccccecccccrececcvesccccccccccccccscsecccsessccescccecesescccese COD095SGN 

BL: C0009600 

122 ***ANSWERS.... 00009700 

123 * 00009800 

124 * le 25 TIMES, ONCE PER SALESMAN (5) PER MANAGER (5). 5 X 5 = 25 00009900 

125 * 00010000 

126 * 2e 5 TIMES, ONCE PER MANAGER (5). 00010100 

127 * 00010200 

128 * 3- A) * BXH 394SUMLOOP ! 00010300 

L29-* B) * BCT 6ySUMLOOP . 00010400 

130 * GOCC10500 

LBL Fecccnveccesecceccssecseccecsecsccccesccscces eres sececsesececescscesvee COCLOEU0 

| Se 0001080C 

134 * THESE CONSTANTS REPRESENT THE TOTAL GROSS SALES OF THE 25 00010900 

135 SALESMEN DESCRIBED IN THE PROLOGUE TO THIS CODING SAMPLE. 00011000 

136% C0011100 

200040 LST DS OD ALIGN FOR READABILITY'S SAKE. GCJ11200 
909040 O9000G000GUCUCOC 138 TOCTMGROL DC PLE*C TOTAL FOR MANAGER NUMBER 1. 00011300 
139 * THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 1. C0U11400 

cO004383 000000CI11274uU3C 140 DC PL8*11274.03410163.19,6441.78,9437. 62,26619.18! 06011590 
141 * 00011600 

DOCOTC IOCIGOICVGSCULUCUIC 142 TOTMGRO2 DC PL8*Q? TOTAL SALES FOR MANAGER NUMBER 2 GuUC1L1LTCC 
143 * | THESE ARE SALESMEN 1 TO & FOR MANAGER NUMBER 2. 090511800 

O00078 999900000264833C 144 DC PL8'2648.3399177.5476122 2.109 7543.7175596 2.44! 00011900 
145 * COU1LZ00G 

SOCIAC JICOGUVOTDOCCUGOC 146 TOTMGROZ DC PL6*O* GROSS SALES FOR MANAGER 3. 00012100 
147 * THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 3. OOG12200 

COSCAB 8N000CTO2340159C 148 DC PL&*23461.5941 7596. 7143377.4816781. 54531766. 53° 0001239C 
149 * 0G012400 

NO0020D0 JOCOCOCCEIWGUGVGC 152 TOTMGRO4 DC PLS 'O* TOTAL GROSS SALES FOR MANAGER 4. 00012509 
Lot = THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 4. OCO01L2600 

6¢90D8 3399090001967736C 152 DC PL8°19677.36,8871.59,9433.1775761.08111989.67! OGO12700 
Lbs “= 00012800 

OG0100 d0S0CTOOQNDCIVOCGOCC 154 TOTMGRO5S DC PiEot Os TOTAL SALES FOR TERRITORY 5. 00012900 
155 * THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 5. COG13C00 

000108 0000006000551563C 156 DC PL8*5515.6342292.62, 1360. 72,12357.11414145.92' 00013100 
157 * . CQ0013200 

090130 cO000CLQ0000C0N0C 158 TOTOFFIC DC PL8*O! TOTAL GROSS SALES FOR THE OFFICE. 00013300 
000138 159 SAVEAREA DS . 18F ~ 00013400 
160 END ; 00013500 


COO180 00000C686000G0008 161 =A(TOTMGRO1+40,8,TOTMGRO1,5) 


RELOCATION DICTIONARY PAGE 1 

POS.ID  REL.ID FLAGS ADDRESS | | | | | 9/16/70 
01 01 OC 000180 
01 01 Oc 000188 


L8 


STR HR 


PAGE 1 


CROSS-REFERENCE 
SYMBOL LEN VALUE DEFN REFERENCES 9/16/70 
NESTEDLP 00001 000000 00001 
RO 00001 000600 00003 
Rl 00001 000601 00004 
R1O 00001 CO00CA 00013 
Ril CCOG1 000008 06014 
R12 COCO1 0000CC 00015 0019 0020 0021 
R13 00001 00000D 06016 0019 0023 0024 0025 0026 0026 
R14 00001 O0000E 06017 0019 
R15 OOCO1l OOGOCF 0GC18 0022 0023 0024 0025 
22 00C01l OGOCO2 06005 
R3 00001 000003 00006 
R4 00001 000004 00007 
R5 C0001 COG6C5 G0008 
R6 00601 000G06 OcG0C9 
RT co0G1 cC0007 00010 
R8 00001 0000C8 G0C11 
ect nae AQ roe ome FOOOL COOCOI 00012 
SAVEAREA 90004 COC138 00159 0022 
SUMLGOP 00006 COGG20 90096 0097 0101 
TOTMGRC1] OCOC8 G00040 00138 0094 0094 C161 Clél 
TOTMGROZ CO0G8 000070 90142 
TOTMGRC3 00008 90GCAD 00146 
TOTMGRC4 O0COS OCLODI 00150 
TOTMGROS 00008 COC100 90154 
@ TOTOFFIC CO0G8 600130 00158  ocse 
ND STATEMENTS FLAGGED IN THIS ASSEMBLY 
*STATISTICS* SGURCE RECORDS (SYSIN) = 135 SOURCE RECORDS (SYSLIB) = 25 
*OPTIONS IN EFFECT*® LIST, NODECK, LOAD, NORENT, XREFy NOTESTs ALGNy OSy LINECNT = 55 


205 PRINTED LINES 


o 
w 


F44—-LEVEL LINKAGE EDITGR OPTIONS SPECIFIED MAP,LETyLIST,NCAL 


VARIABLE OPTIONS USED ~ SIZE=(45056,6144)- 


TEWCOO0O ENTRY UTILITY 


CONTROL SECTION 


NAME ORIGIN LENGTH 
NESTEDLP Oc 190 
UTILITY 196 5A0 

ENTRY ADDRESS 190 
TOTAL LENGTH 730 
KK ARG O DGES NOT EXIST BUT 


MODULE MAP 


ENTRY 


NAME LOCATION 


PRINT 1F2 


HAS BEEN ADDED TG DATA SET 


NAME 


PCHKRETN 


LOCATION 


44E 


DEFAULT OPTION(S) USED 


NAME 


LOCATION 


NAME 


LOCATION 


F.P. REGS. 90.00U0G0 0601C060 CO.000001 OOOTOAE4S 00.C174A0 OOOTOAEO QO0.O070EEC OVOT0C84 

REGS 0-7 FFFFFF2E OCOO6BFF8 COO1LC57C OCO5FA28 FFFFFFF8 OQOO5FA00 00000000 C0019598 

REGS. 8-15 OGO1C566 GO00000G 00010588 00000000 6FO5F8D6& QOOSFANSB OOOCCTD4 OOO5FADB 

o03090C OHOGEGeec COGGG000 00G0CDN00 B0D00000 OOO5FB8DO OOOCO00D FFOS50CCO BOOTENASB Keser ececcceccceeeeSeerssesscsccce® 
390020 06040003 5SO006A3E FFC5CO001 6FO5SFIOE OOCOFFOO O0000000 FE0N40233 BODDDALE FeccereeecEc ee eI veces seeesecsecse® 
C00040 9066C498 GCGOGCO1 00091406 00005920 C83D5B00 CO00996C Q0G40000 COD0T4EIB Fw peDeewsececsecesvrevvcccccccvsseee® 
dCC060 9004000C COCUCTBC8 O0G040C00 00007588 COCOO0000 OGO1L2DLO ACO4O00G OOOGTSIN = Fevecee Hews ervecvessecsverescessseX® 
O5FRCG NOGk&DICB CTFEGOCCO OOCO0N0GO OCOD0CTC SOECDCOC C5CO4LFO C1l325CFD OO085IDF Kee ececceccvesevreccceveelONeveseee® 
O5F8E0 O020416DF D703D0CG8 D0089836 C1/1A1344 FATT5GOO 30008634 COLAFATT CL2ZA5000 Ke eewePeceecveNeccveccesevserveeNeee® 
JSF9OC 415590034 41330058 4660CCI1A COG04740 OOCOCOCOO 6393580C COOQDDOCE 1127403C Fececccceeecccee evceccceccseve o* 
CS F920 SO000I0G 1016319C 00090000 06441 78C G0000000 C943 762C OCOODCOCOD 266191 BC  Kecceceverercccrevesscccesesecsee™® 
C5F94C WCIWLGGVNG 3108812C O00000CN 0264833C OO00090G0 O917754C OCOOQOOCO YOGLAZICT Feeeceeveceerececeveseesssccsseee™ 
I5F 960 JOuGSOCC 97543 71C OCCCOGGG G559644C OOCO00GD 8298385C DOVOOCGG 2346159C Feeverecevecveeveseesscssesevesee® 
O5F939 OI0D0GLOU 1LT5Ge71C OCOC00IN 0337 748C OS00COGO 0678154C ADOGOOQGOT B1T6653C Keeeeercesscccesvececcsecseseesesee® 
OSF9AC OCUGGICG 5573287C ON0000000 1967736C OOOO0000 O8BBI159C ADNDODOLD O94331LIC Ke cececccccerccesseseseserecsesvse® 
O5F9CO QO0u00GCO G576108C OOODDOCO 1198967C OO00Q000 4167200C DQD0QNN0NN O551563C Fescceecevcccevesescssscccecceseve® 
OSE 90 DICVNIGU G229262C CO09200000 9736072C 090900009 1235711C QDOD0O0NO 14145920 Freer eccceeeccsncesvesesesesssevse® 
O5FAO0C O000COC2 7541264C 47409416 QOO6BF68 OVQON000 S41094FA 41LLLOCOG OADA41O0O Kee ceases eeocncecesensssecesecve® 
95FA20 3118181D 541094FA 41110000 OAO0AD203 CO2494FE D203C028 S4FE91L04 T00447T10 Fever ecccceceeeKecveeXcveccceseee® 
G5FA40 945858FC 94DA920C CO27TO05FF D2C3CC24 OCO5F938 COOUCOGO08B DOCSFIOLO OOOQOD00S Kee eGe wesc reckons oeFerecee eI eee e® 
G5FA60 SQ9ECDUGC GSCGO4FO 07004110 CO01L90511 CFOSFBO4 fFFFOAQDE 58BO0010 ALICBOT4 Fe ccceeeCeccrecccvecversvesecseee® 
9606020 4A00GBDE 40050000 47FU95C6 48609BEE BA600001L 477C96SE 48609026 4166000 L Keene eee eDaFe cece scare eseccevsee® 
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EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL TYPE ID ADDR LENGTH LD ID 14.18 9/16/70 
NESTEDTA SD Ci Geusds 000198 
aE at! 
rae 
ae 
0 
ro) 
1 


LOC 
900000 


900000 
900001 
000092 
900003 
000004 
000095 
600006 
900007 
c00008 
600009 
090000A 
co0008 
09009C 
c0009D 
00000E 
C0000F 
000000 
000004 
000006 
000006 
00000A 
00900E 

wo 000012 

“000014 


OBJECT CODE 


J9OEC 
95CG 


41F0 
50FD 
5 CDF 
18DF 
0703 


ADDR1 ADDR2 


Dooc 0000C 
C14A 0015C 
0008 00008 
0604 00004 


DOO8 DUGe COCO08 00C08 


STMT SOURCE STATEMENT 

1 NESTEDTA CSECT 

2NeS COPY MHMBEGIN 

3 RO EQU 0 

4 R1 EQU ol 

5 R2 EQU 2 

6 RB EQU 3 

are EQU 6) 

iR5 | EQU 

9 R6 EQU 8 
10 RT EQU 7 
11 R8 EQU 8B 
12 R9 EQU 9 
13 R10 EQU 10 
14 R11 EQU sll 
15 R12 EQU 12 
16 R13 FOU 13 
17 R14 EQU 14 
18 R15 EQU 15 
19 STM = RL4yR1L2y12(R13) 
20 BALR R12,0 
21 USING *,R12 
22 LA R15,SAVEAREA 
23 ST Ri5,8(R13) 
24 ST =—- R139 4ER15) 
25 LR R13 YRS 
26 XC —- 8 (4,R13)y8(R13) 


SAVE THE CALLER'S REGISTERS 
ESTABLISH PROGRAM BASE 

LET THE ASSEMBLER KNOW. 
ADDRESS OF MY SAVE AREA 
BACKWARD CHAIN 

FORWARD CHAIN 

ESTABLISH MY SAVE AREA 
TERMINATE THRE FORWARD CHAIN 


END OF STANDARD ENTRY LINKAGE CONVENTIONS. 


FO8APRIO 


PAGE 1 


9/16/70 


000001006 
00000200 
00000700 
000600800 
00000900 
00001000 
00001100 
00001200 
06001300 
00001400 
00001500 
00001600 
00001700 
00001800 
0CC01900 
00002000 
00002100 
00602200 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 


so] 
0 


LOOPS TROUBLE ANALYSTS PROBLEM 1. 


LCC OBJECT CODE ADDR1 ADDR2 STMT 


29 
30 
31 


SOURCE STATEMENT FO8APR70 


% 


FIO ROK KORE OR a a a oR aK ok oi a ak oto ok ok ok 
* LOOPS TROUBLE ANALYSIS PRUBLEM 1.*% 
eG a Ko a RO RC KK aK oR RC oi Ko ok a aie ok ok 


* 


+ 


BE ARIK AS FE AK EA AS A HS EE AE OK AC IC IC 2S AE OE 2K AC OS OC Oe 2c IE iC a A OO A I RE AC I OK A EC OK OC i A OE i a OK 2 OK A OK OK IE OK OK OK OK 


YOU HAVE SEEN THIS PROGRAM BEFORE, ALTHOUGH THE CODING HAS 
CHANGED. OGING SO SOMETIMES CAUSES PROBLEMS, SO, NATURALLY, 
THIS TIME THE PROGRAM DOES NOT WORK. YOU WILL HAVE T9 
ACSERTAIN THE EXTENT OF THE FAILURE FROM THE DUMP THAT [S 
SUPPLIED. ONCE YOU HAVE DETERMINED WHAT THE PROGRAM FAILED 
TO DO, FIND THE FAILING INSTRUCTION(S) OR INDICATE THE 
INSTRUCTION(S) THAT NEED TO BE ADDED TO MAKE THE PROGRAM 
WORK. 


HF HH HHH HH He He OH 


4 


y 


le af 


FOR OK IC KK IK a I RRO IR IRR ICA a AR Ri kK KF I eR RK IE RC OK a OK KC OK ic kc ok 2 2k 


KEEHEEE EEE EEEEE EEE EEE EEE EEE EEE EEE EE EEE ELE EE EEE EEE EEE EEE EEE EEE EH ete tte ttet 


THIS PKGGRAM IS DESIGNED TO CGMPUTE THE TOTAL GROSS SALES IN 
AN QCFFICE WHICH HAS FIVE SALES MANAGERS. EACH SALES MANAGER 
HAS FIVE SALESMEN WORKING IN HIS TERRITORY. 


THE PROGRAM SUMS THE SALES FOR EACH SALES MANAGER AND FOR THE 
ENTIRE OFFICE AT THE SAME TIME. 


THIS IS DONE BY USING TWO LOOPS *NESTED* WITHIN EACH OTHER. 
THE OUTEKMOST LOOP STEPS THE PROGRAM FROM ONE SALES MANAGER 
TO THE NEXT, WHILE THE INNERMOST LOOP CONTROLS THE ADDITION 
OF THE SALES OF EACH SALESMAN IN THE MANAGER'S TERRITORY. 


THE DATA EXISTS IN A TABLE THAT LOOKS LIKE THIS: 


ee ee ee 


FEEEEEEE EEE EL EE EELEE EEE EEE EEE EE EE EEE EE EEE EEL EF E EEE EEE E HEHEHE PEt ttt tet et 
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9/16/70 


OGO00400 
00000500 
OGCOQ0600 


OCGOG8D00 
00000900 
COO00LOOO 
00001100 
000601200 
00001300 
00001400 
00C01500 
00001600 
00001 700 
00001800 
GO001900 


00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
06002800 
00002900 
00003900 - 
60003100 
00003205 
00003300 
00003400 
00003500 
00003600 
00003700 


START 
2 CRICK AD ROK RR KK 
KKK AL KK KKK KK * * 
* BEGIN OFFICE * * INITIALIZATION * 
* SALES Se ieee ae ee * AND * 
* COMPUTATION. #* * HOUSEKEEPING * 
Te I RK KK I IK aK * % 


AK ME HE eR Ae Ae a A OK KK KK A 


Loop V 
KK OG PKRKKEKREK 
*SET UP LOGOP* 
* COUNT POINT * 
TO NEXT 


* SALESMAN. * 
*x x 
Ke fe ale ok ake ois oi ok ok ok XK 


* * 


ADD V 
of KC 2 tk tok a tak i ok k 


Be ee a aK AA 2 2 a a a a aa 
* * 

*INITTALIZE FOR * 
Tea SUMMARY LOOP. : 


* * 
MR A A a oo eK KK XK 


V 

Me Xe eK BB KK eK Ke KKK 

* x 

* ADD MANAGER'S # 
+-->*TOTAL TO OFFICE* 
xx TOTAL. * 

* * 

EO KC IR OK Re eo kK OK KK 


V 
HEC 3 KEK 


(ee) 
© 
*ADD SALESMAN! S x * * 
x TOTAL TO x * POINT TC NEXT* 
+-->* MANAGER'S  * * MANAGER. * 
* TOTAL « * 
* * * x 
OK AK i XK i oi 3K aie ok a fe He ok OK ok XK ok KK oe KK a KK KK 
V V 
o Xe o* 6 
2°... 03° &, 
x LAST &. J *, 
NO .* SALESMAN *. NO .* LAST x, 
<- *, FOR THIS .* +-— *, MANAGER FOR .* 
* MANAGER? «* * OFFICE 2? .* 
* x x, ox 
x. 4X *, . * 
* YES * YES 
eo ey V 
or * KKK KE Bo Ke KK HK HK KK 
NO .* LAST x, *TAKE A STORAGE * 
+-- *5 MANAGER FOR .* =<—+ x DUMP x 
* OFFICE 2? .* * x 
x, ox Re Xe ke ok Xe ake ake he i ok ak ok oe KOK 
ey 9 ¥ 
x 


CHART LOOPTAL 
PAGE ©QO1 OF CO1 


LOOPS TROUBLE ANALYSIS PROBLEM 1. PAGE 3 
LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/16/70 
Cs Pe ie ca ScGl arias Tatas 61k sar ayaa dee Wes Sie wie Www oe Rie es AS One oe be wits Ge eaidrd sym ewaaay. OO003900 
65 * 00004000 
66 * EACH BLOCK IN THE TABLE REPRESENTS AN 8-BYTE NUMBER WHICH 06004100 
67 * CONTAINS THE GROSS SALES FOR EACH INDIVIDUAL SALESMAN. (THE 00004200 
68 * NUMBERS ARE IN PACKED DECIMAL FGRMAT.) 00004300 
69 x 00004400 
70 * EACH SALESMAN IS IDENTIFIED BY TWO NUMBERS, SEPARATED BY 00004500 
71 * A COMMA, THE FIRST IS THE NUMBER OF THE MANAGER 00004600 
72 * FOR WHOM THE SALESMAN WORKS, AND THE SECOND NUMBER IS THE C0C047CO 
73 * SALESMAN'S NUMBER IN HIS MANAGER'S TERRITORY. 00004800 
74 % 0000490 
75 * | TOTAL tf GROSS SALES BY SALESMAN NUMBER 0cvo05000 
16 * tenance . t= + 00005100 
77 x | MANAGER 1 f f (1,5) | c00052G0 
78 * tana n a + t------- - 00005300 
79 | MANAGER 2 | f (2.5) | 00005400 
80 * $----------- + $------- - 00005500 
81 * | MANAGER 3 { { (3,5) | 00005600 
82 * +----------- + t------- a 00005700 
QZ % | MANAGER 4 | 1 4,5) | CC005800 
84 * $---~~------- + tu------ a zp OP 0059900 
85 * | MANAGER 5 { } (545) |  — ¢* — GHO06C0D 
86 * +----------- + t—-----—— ae an ~~ * 00006100 
BT * { OFFICE { A fi #,f ° 9100006200 , 
© 88 * acta a rasa ‘ Pa aon — 900063CC0 :. 
as 89 * ro te Ys. 90006400 | 
D0) Fie ead bre ene Cate alewe O46 S Pew a ESR Ds esos saws seme’ Weul beeen detaaecas, COGG6500 
7 } ie + of \ ; 
= BS Po = 
COSCIA 417C 0005 00005 92 fea Oa R75 a INITIALIZE REGISTERS. | OC00670C 
COOOLE 4180 C052 00058 93 LA (RB, TOTMGROL: ° POINT TO FIRST MANAGER. 6C006800 
000022 1868 94 LOOP LR R6yRB © | | INITIALIZE GUTER LOOP. 0c006900 
900024 4166 0008 00008 95 aa R6,8(R6) POINT TG FIRST SALESMAN FOR MGR. 00007G00 
900028 FATT 8C00 6uCO Go000 000C0 96 ADD !\_p®AP 0(8,R8)10(8,R6) ADD A SALESMAN'S TOTAL TO MANAGER'S OCOCT1OO 
00902E 4166 0608 coo0s8 =o ER + R6,8CR6) POINT TO NEXT SALESMAN. 00007290 
; 900032 465C Co22 00028 ‘98. — BCT R5'sADD —-- REPEAT FOR ALL SALESMEN. 00007300 
ne, 009036 4188 0C30 00030 99 ph “HS,48RBD POINT TG NEXT MANAGER. 00007400 
\ NCCC3A 4670 CCIC Q0C22- “BOO —-. BCT = RT,LOOP REPEAT FOR ALL MANAGERS. 00007500 
| OCOO3E 4170 COC5 00605 1091 LA R745 INITIALIZE FOR SUMMARY LOOP. 00007600 
C00042 4160 CC52 00058 10 LA R6,TQTMGROL - POINT TO FIRST MANAGER. OCOOTTUD 
000046 FA77 8000 6060 cococ 00000 103 AP AP 0(8,R8) ,008,R6) ADD TOTAL TO OFFICE TOTAL. OOOCT8CO 
O00004C 4166 9030 00030 104 LA R6448(R6) POINT TO NEXT MANAGER. 00007900 
009050 4670 C040 00046 105 BCT RTyAP REPEAT FOR ALL MANAGERS. 00008000 
909054 9900 106 DE H'cor TAKE A DUMP TO SEE ANSWERS. 000081006 


L6 


LOQPS TROUBLE ANALYSIS PROBLEM 1. PAGE 5 

LOC OBJECT CGDE ADCORIL ADDR2 STMT SOURCE STATEMENT FOBAPR70 9/16/70 
122 * OCOO09TCO 

L235 THESE CONSTANTS REPRESENT THE TOTAL GROSS SALES OF THE 25 00009800 

124 * SALESMEN DESCRIBED IN THE PROLGGUE TQ THIS CODING SAMPLE. 00009966 

125 * 00010060 

009058 126 DS OD ALIGN FOR READABILITY'S SAKE. 06010100 
000058 0COIDGOIOGGGO00C 127 TOTMGROIL DC PLE'O* TOTAL FOR MANAGER NUMBER 1. 00010200 
128 * | THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 1. 00010300 

009060 990090601127403C 129 DC PL8*11274.03,10163.19,6441.78+9437.62,26619.18' 00010400 
130.0% 00010500 

090088 IO000000CIGCTOOC 131 TOTMGRO2 DC PES*C? TOTAL SALES FOR MANAGER NUMBER 2 O0CG10600 
132 * THESE ARE SALESMEN 1 TQ 5 FOR MANAGER NUMBER 2. CC010700 

9000290 090000000264833C 133 DC PL8*2648.33,9177.54,6122.10;% 1543. 7145596.44! 0061CG800 
134 * 00010900 

CC20B8 9000CKCCOGCGUGEC 135 TOTMGRO3 DC PLS'C* GROSS SALES FOR MANAGER 3. C0011000 
136 * THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER. 3. 000111090 

2f90C GO 000000062346159C 137 DC PL8* 23461 .59,17596.71,3377.48,6781. 54, 31766. 53! 00011200 
138 * 000113C0 

VCIDEB DOCIOSOGOGTGOCCOOC 139 TOTMGRO4 DC PLo*O* TOTAL GROSS SALES FOR MANAGER 4. 60011400 
14C * THESE ARE SALESMEN 1 TO 5 FOR MANAGER NUMBER 4. 00011500 

VOU SFO CO09C0GI1967736C 141 DC PL8°19677.36,8871.59,9433.17,5761.08,11989.67' 00011600 
142 * 00011700 

CO9118 COGOCOGLULEUONDDC 143 TCTMGRO5 DC PL8*O! TOTAL SALES FOR TERRITORY 5. 00011800 
144 * THESE ARE SALESMEN 1 TQ 5 FOR MANAGER NUMBER 5. 00011900 

000120 900000000551563C 145 DC PL8*5515.639 2292.62 1360.4 72,12357.11514145.92! 0C012000 
146 * 00012100 

000148 cICICCGCTCUGCTOOOC 147 TOTOFFIC DC PL8*O? TOTAL GROSS SALES FOR THE OFFICE. 00012200 
0G0150 148 SAVEAREA DS 18F 00012300 
149 END 600012400 


SYMBOL 


LOOP 


R9 

* SAVEAREA 
TOTMGROL 
TOTMGRO2 
TOTMGRO3 

w@ TOTMGROS 

N TOTMGROS 

| TOTOFFIC 
| 


; 


LEN 


0C0G6 
00006 
00002 
00001 
00001 
00001 
00001 
90001 
090G1 
00001 
C6001 
00301 
00001 
C9001 
00001 
00001 
C0901 
00001 
00001 
09001 
00004 
00008 
00008 
C9008 
0OCUSE 
COCO08 
00008 


NO STATEMENTS FLAGGED 
*STATISTICS* 
*OPTIONS IN EFFECT* 

192 PRINTED LINES 


CROSS-REFERENCE 


VALUE DEFN REFERENCES 
000028 00096 0098 
000046 00103 0105 
COGO22 00094 0100 
000000 00001 
0OCO000 00003 
000001 00004 
OOGCOOA 00013 
COOCOB 00014 
OOGCOC 00015 0019 O002G 0021 
COOQO00D 0016 0019 0023 0024 0025 C026 0026 
OCGOOE COO1? 0019 
OCOCOF 00018 GO22 C023. 0024 C025 
GCO0002 00005 
OUG003 GOOC6 
OCG004 O000CT 
000005 GG008 0098 
OGG006 ICOCOYI 0094 0095 0095 90096 0097 O097 0102 0103 0104 0104 
OOO0CO? OG010 0092 0100 0101 0105 
OOCCU8 00011 0093 0094 9096 60099 0099 0103 
occuL9 OC012 
000150 00148 CO22 
000058 OUl12T 0093 0102 
00vU88 00131 
O0OG0B8 00135 
GOCCE8 00139 
OCC118 GO143 
000148 0u147 
IN THIS ASSEMBLY 
SGURCE RECORDS (SYSIN) = 124 SOURCE RECORDS (SYSLIB) = 25 


LIST, NODECK, LGAD, NORENT, XREF, NOTEST, ALGNy OS, LINECNT = 55 
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F44—-LEVEL LINKAGE culTOR OPTIONS SPECIFIED MAP,LETsLIST,NCAL 


VARIABLE OPTIONS USED — STZE=(45056,6144)- DEFAULT OPTIGN(S) USED 
TEwS00C ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
NESTEDTA OC 198 
UTILITY 198 5AC 
PRINT LFA PCHKRETN 456 
ENTRY ADDRESS 198 
TOTAL LENGTH 738 
HKG O DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


£6 


ii od 
fa 
te be 


ae 
00.017188 O0000000 


FeP. REGS. O.COD000 40C6A1 32 00.01A268 00000000 - Q0.000000 00017568 

REGS 0-7 FFFFFF2ZE 000367F8 COOLA53C 00000000 00015230 00015F7A 0002A218. 00000005 

REGS 8-15 OO002ZA120 OQ000000C 0001A548 00000000 6FOZAQ0CE O0002A218 OO0OC TD4 0002A218 

a a : {fh a 
969000 COO0D00C OCO0G000 00000000 00000900 -© “OOC2ZAR0CS GCOO0G00 FEO040080 ADOCAISC aca indswess sean es eHa one wed tke act 
909020 90040003 SGUQGA3E IFFC5S0007 EFO2ZA0F6 OQOOOFFOG OOOO0000 FED40130 B0000AD06 Fee ccc veecE sce ecHecaccas (As eeweer 
000040 OOOCOOCG 2000C000 A0S014D0 00005970 O2CO36A4 OOO09GSEC CO040000 DODO T4SEOIB Keer accccvvacsecsccsene oe Srerereca e 
000060 COC40000 OCOUTBCB COO400CO 00007588 OOO0GO00O O0012D1LO OOO4ZO00N DOOOTSIA Feces eeeHocevececccssees eoeccee® 
O2A0CO 4OCCOTFE 96204128 90ECDOOC 95CO041F0 C14A50FD OOO8BS0DF OOO41 BDF DTO3ZBD00B8 * seceeceeceee rc Nevecee eeePo ee * 
O2A0E0 DOO08417G 00054180 C0521868 41650008 ‘dL FAT#8000 60004166 C0084650 CO0224188 *eeccccsscccccesens o oe ae ee ee 
O2A190 90304676 CO1C4170 00054160 CO52FAT? 8JOC6000 41660030 467C0C040 DOD0600C 3 Fe.cccr.erscrcecvccvce oe oo ee0e* 
O2A120 92000002 > 7541264C, 00000000 1127403C COOCQ00O 1016319C OCOOD00D O644178C Kec ccncccccevae eave oe cenenea® 
02A140 IGG000CG €943762C OND0D000 2661918C OGOO00000 COCOD00C ADDDOQOONN 0264833C Kea cccvseccseee oe coor eee * 
O2A16C Q9O0000CU O917754C ACCODDNONND 0612210C OCQ0000G 07543 71C AOQUDOCTO 0559644C FX weccecccroercccccssecs °° eveoceet 
O2A180 JOCQ0IVOG YJOGOGOOC OCOCODVCD 2346159C OJ000000 LIS9G6TIC ODDOQNOOYD O337TT4BC Fe ccccccccscccscece ee eee ee as 
OZA1A0 OCUVUDUTEG FV678154C OOCDNCOO 3176653C CO9000000 OO00000C ONDNN000N LIGETI 3ZOC Fe cecreveerseavcace oe esc eeee® 
G2A1CS QOCGUI00 C887159C AGCOIONC 094331 7C OOGOO000 O576108C ODQODDIGO LIIPBIG6TC Kee ccccervecevsecvses e* oeeecee® 
O2A1LE0 JOCCCCCL GIIDIOCOC 99009000 0551563C OGOOIOCO G229262C COOGOI0NG OT36OT2E Feseseceeeeeosecees aed eee awe 
OA2A2G0 COUGIGGC 1235711C OCOUSCIG 1414592C YOSCICIO ovooococ foTisi8 10, co036768 eee a ee ee eee ee ee aor Oe ee eas 
e2a225 OGLGOQ0IG GAGAD2Z2C3 CO2494FE 02030028 S4FE9LC4S (7CO447105S945855FO G4DA9D2Z0C  KseceecKeccceKevcee ee erg t rer ee 
O2A247 (U2 fC5EF BD203CC24 S94FE9QL1CC 80564740 S46A0503 TOLGOSGEFE 478094 7 58FO9S4DE 2 vig 9g aie 6 Pa cs wwe ae el ee ve hie eS t4eeOwa 
O2A269 9CECDOCC C5COC4FG C7uc4lio COQ1LO9511 OFG2Z2A304 TFFFUAODE S8B8BOOCLYU DLLIOBOTSH Fee eeee eOe ee eccvcece o* coves oe® 
O2AB826 4A009BDE 4uC50000 47F095C6 48609BEE BAGQNOOL 477C969E 48609CZE 416690001 Keene cee eGeFe ccc ecscces cocesee® 
. . e fics aN? os ee 
( 2A213 . 4 ie 
3 2A) ae 


fe oe oe oe ake ke oe oe akc ke ae 2K oe a ake he ae a 2k a a a a a 2 ge a ke Re a aig i fe Re 2h 2 ae Re a ie a a Oe 2 aie oe 2 2 2 a ac ee a aK a eC A OK a aK eR A AC RE RR A i A KC AE HE CE RE A RE a 2 eK OK KK 


SSSSSSSSSS 


— SSSSSSSSS$SS$S 


SS 


SSS 
SSSSSSSSS$ 
SSSSSSSS$ 
SSS 
SS 
SS SS 
SSSSSSSSSSSS$ 
SSSSSSSSSS 


* 


TTTTTITTTTTT 
TTT TTTTTTTT 
TT 


Cocococcecga 
090 IOCO000000 
00 00 
00 OG 
00 QO 
00 00 
00 CC 
0 00 
00 00 
00 CO 
oo0o000000000 
oooggo0g00cgd 


RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 


RRRRRRRRR 
RRRRRRRRRR 
RR 
RR 
RR 
RRRRRRRRRR 

RRRRRRRRR 

“RR 
RR 
RR 

RR 

RR 


9999999999 
999959999999 
99 
99 
99 
999999999999 
999999999999 

99 

99 
99 99 
999999999999 
9999999999 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA _ AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 

AA AA 
AA AA 


GGGGGGGGGG 
GGGGGGGGGGGG 
GG GG 
GG 
GG 
GG 
GG GGG6G 
GG GGGGG 
GG GG 
GG GG 
GGGGGGGGGGGG 

GGGGGGGGGG 


EEEEEEEEEEEE 
EEEEEEEEEEEE 
EE 
EE 


EE 


EFEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
EEEEEEEEEEEE 
EEEEEEECEEEE 


TTT TTT TTT TTT TTT T STS STCCCT LCCC SCL TCSCS SCC CCCLS CSCS OCTOSSLCCLCCSSCCSSSCLCCLSSSTSSOSS SSS OSL LE Let tet tte Sse tt tt ss tot se st et eS Se Se 


SYMBOL TYPE ID ADDR LENGTH LD ID 


STORAGE $D Gl Geovoud OCOTIE 
PCHKRETN ER O02 


4 ae ae : t, a 
~ 4 : fet } "ye j 
. : 
. A 
¢ . 


96 


™. 
4 
Fadl 
“~ ae 
‘ a eae 
pr NMR 
@ f gh e \f Ae 
a ww t: ” 
i iad . 
4 < et & ey 
‘ 
é 


EXTERNAL SYMBOL DICTIGNARY 


14.19 


PAGE 1 
9/16/70 


DATA STGRAGE AND RETRIEVAL TECHNIQUES. . PAGE 1 
LOC OBJECT CODE ADDR1 ADDR2 = STMT SOURCE STATEMENT FO8APRTO 9/16/70 
CC0030 2 STORAGE CSECT OGO00200 
3 COPY MHMBEGIN 00006300 
900000 4 ‘RO EQU 0 00000700 
COCcOO1 5 Rl EQU 1 00000800 
O0C002 6 R2 EQU 2 00000900 
OCC003 T R3 EQU 3 00001000 
CO39004 8 R4 | EQU 4 00001100 
000005 9 RD EQU , 00001200 
CO0G006 10 R6 EQU 6 00001300 
005007 11 R? EQU ¢ 00001400 
0900008 12 R8 EQU 8 00001500 
C00009 13 R9 EQU 9 00001600 
OCOOOA 14 R10 EQU 10 00001700 
600008 15 Rll EQU 11 00001800 
COI00C 16 R12 EQU 12 00001900 
COO00D ivf R13 EQU 13 . 00002000 
OOOOOE 18 R14 EQU 14 00002100 
COOO0F 19 R15 EQU 15 00002200 
O0G090 9XEC DCOC Q000C 20 STM R149R12,12(0R13) SAVE THE CALLER*S REGISTERS 00002400 
C90004 95C0 21 BALR R12,0 ESTABLISH PROGRAM BASE 00002500 
000006 22 USING *,R12 LET THE ASSEMBLER KNOW. GO002600 
OCVGCE 41FC C73E C9744 23 LA RL5_,SAVEAREA ADDRESS QF MY SAVE AREA 00002700 
COX00A 5OFD OCC8 09008 24 ST R15,8(R13) BACKWARD CHAIN” 00002800 
CQOOOCE 50DF O0C04 00SC4 25 ST R13¢4(R15) FORWARD CHAIN 00C02900 
© CO0012 18DF 26 LR R13,R15 | ESTABLISH MY SAVE AREA 000030006 
“009014 D703 DCO8 DOG8 OVCC8 00008 2t XC ~ 804,R13),8(R13) ! TERMINATE THE FORWARD CHAIN 00003100 
28 * END OF STANDARD ENTRY LINKAGE CONVENTIONS. 600003200 

29 


PRINT OFF 00000400 


DATA STORAGE AND RETRIEVAL TECHNIQUES. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


He # F 


SOURCE STATEMENT FO8APRT70 


ME AA HC AE A A RR I I aR a Re a a a a aK a a aR ae a aK aK ak ak 
* DATA STORAGE AND RETRIEVAL STUDY PROJECT * 


FH ACRE He HE HE HK ee CA KE KC Ke CC Ee OC A a ee a a oe eo oe 2 i oe ee OK OK OK aK 


KEEFE EEE EEEE EERE EEE EEE EEE EERE EEE EEE EEE EEE EEE EE EEE EE EE EEE EE EEE HEP Ett Et 


* 
* 
* 
* 
* 
* 
* 
+ 
oc 
x 
* 
of 
x 
xe 
* 


THIS PROJECT CONTAINS DIAGRAMS AND CODE SAMPLES ILLUSTRATING 
SOME OF THE MORE COMMON DATA STORAGE AND RETRIEVAL TECHNIQUES. 


THESE SAMPLES ARE INTENDED TO BE STUDIED DURING THE WORK~SHOP 
SESSION FOR THE STORAGE AND RETRIEVAL TOPIC. | 


EACH CODING SAMPLE WILL BE PRECEEDED BY A DIAGRAM DEPICTING 
THE FORMAT OF THE TABLE TO BE DISCUSSED AND MANIPULATED BY 
THE CODING SAMPLE. FOLLOWING EACH SAMPLE, THERE ARE SOME 
QUESTIONS CONCERNING THE CODE THAT WAS USED. THESE ARE 

TO BE ANSWERED IN THE TIME ALLOWED; THEN THE ANSWERS WILL 
BE DISCUSSED BY THE CLASS. | 


EEEEEEEREL EEE EE EE EEE EEE EEE EEE EE EEE EE EEE EEE EEE EEEE EEE EEE EEEE EEE Ete eet et 
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00001100 
00001200 
00001300 
00001400 


00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00063100 


LOC 


000000 
«© 000000 
© 900006 

000006 

000007 

000009 

00900C 

O0000C 


SERTAL SEARCHES. 


OBJECT CODE ADDRL ADDR2 STMT 
58 
59 
60 


61 


SOURCE STATEMENT 


HH % 


KEEL EF EE EEE EEE EE EE EEE EEE EEE EEE FEE EEE EE EEE EEE EEE EEE EEE EE EE EEE Ete tte 


st oH He 


HM HH 4 HH tH 4 Ht OH 


3¢ 


DATAITEM 
MANNUMBR 
FUNCTION 
INDICATR 
AREANMBR 
BR ANCH# 
NEXTITEM 
ITEMLEN 
x 


se oH OH HO ee 


+ + 


*K 
x 
* 
* 
*K 
* 
* 
ae 
2. 
# 


FO8APRTO 


ICICI ICR A RO a IO aK OK a a ac 2 
* SERIALLY QRGANIZED DATA * 


b- 4 > me eee a ome ti em ee A A AD ema ED NRE RD ERED 


TEE IR OK HE HE A CK CO Ae oe IK OK A OK OK OK OK 


THROUGHGUT THIS PROJECT, THE DATA WILL BE A 12~-BYTE RECORD, 
CONTAINING A 6+BYTE MAN NUMBER ( WHICH IS USED AS THE 


ARGUMENT) AND A FUNCTION WHICH CONTAINS AN [INDICATOR BYTE 
DESTIGNATING DOMESTIC OR W.T.C.e. EMPLOYEE, A 2—-BYTE AREA 
NUMBER, AND A 3~BYTE BRANCH OFFICE NUMBER. EVERY 

DATA ITEM LOOKS LIKE: 

e) 6 T 9 12 (BYTES) 

fe nn ee tom $—-— = $-------— + 

{| MAN NUMBER [IND{AREA #1 B. QO. #f{ 

$m a a oo +——————-=— + 


THE DATA ITEM IS DESCRIBED BY THIS DUMMY SECTION. 


DSECT DUMMY SECTION FOR MAN NUMBER DATA ITEM. 
DS CL6 MAN NUMBER (ARGUMENT? . 

DS OCL6 FUNCTION PORTION OF DATA ITEM. 

DS CL1 DOMESTIC / WORLD TRADE INDICATOR. 

DS CL2 AREA NUMBER 

DS CL3 BRANCH GFFICE NUMBER. 

DS OC 

EQU NEXTITEM~DATAITEM LENGTH OF A DATA ITEM. 


THE DATA BEGINS AT LOCATION #TABLE® AND TAKES UP AS MUCH 
CORE AS IS NECESSARY. THE NEXT AVAILABLE EMPTY SPOT 

IN THE TABLE IS POINTED TO BY THE FULL~WORD ADDRESS CALLED 
"POINTER®. THE VALUE TO BE SEARCHED FOR [S PLACED IN 
"SARGUMNT!. 


‘TABLE? 
tome nnn t ta anne ae + 
| Deen toe = t+ | DATA [TTEM # 1 { 
$e ean + Hm ee ee nr tt 
*POINTER® | 1 DATA ITEM # 2 { 
| ooo -+ 
1 Y990)00900090209000)9 
1 (CCOCOCCCOECEEOCCECEC 
{ foe nn ea a ne ee nee ee 
j { DATA ITEM #N { 
V ae eee ae ee ~+ 
®SARGUMNT & fare > f LST UNUSED SPACE | 
er Ce 
P MON NG. | i f 
Be ees ee cree me ae Be ae eae of he ne cen eee cae te gre woken ete AG AES cE IU EES wn 
icamem 7? BYTES ---e FF 


Bae hn She eke a Ba hn de Bil SR athe SRS Si Bie ten oS Bo Ty ae gh ithe tte 1 a de Ceti fio tke ho ee bes 
ba oon Be lp oe Ay a 4s a a oe co a i Bede ne de AL Geog tes ge Be be he 
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00C03300 
00003400 
00003500 
00003600 


00003800 
0C003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
Oc0C4900 
00005000 
00005100 
0000520 
00005300 
00005400 
00005500 
000056C0 
00005700 
00005800 
00005900 
00006000 
0Q006100 
00006200 
00006300 
00006400 
00006500 


~00006600 


00006700 
00006800 
00006900 
090Q7000 
00007100 
00007200 
CO00T300 
00007400 
00007500 
0000 T600 
Q0007 700 
OO0COTSOS 
OCQ07T9GO 
OO00kCIAD 
00008190 
90008200 
OCGO8S0G 
00908406 


AMAT 
Pad MAID ry 
Amey 


rm 
ee a van 
od LSA 


WS 


8 


INSERT SER TAL 
MK eK AD ek eK ek eK OK 
we KK AL KKK KK KK * * He OK AG KK ROK EK OK 
| * *xPOINT TO START * x x 
. START ge a. OF TABLE . : START SEARCH : 
We AC A he aK i Xo oe eK A ok * * Me a eee eo ok eo KK eK 
epimers, ae 
V 
INSERTLP .*. RETURNG 
2 *, MEK KG Me eK OK KKK 
o* x, KK KK BK KK KK KK EK K x 
* IS THIS A *. *RETURN, CODE = * *POINT TO START * 
Ae ates ae Se a >*. DUPLICATE ? . =e 4. c++ * OF TABLE. * 
x. ox * % * x 
X. Pe 3 3 Re eK eK a ee KK x x 
*,. .* Ae ie he eK fe OK RC EE eK Xk OK 
* NO 
V V 
7%, SERIALLP .*. 
KC) HR OK C2 x, C4 xe 
ot * o% * 5 .* *, 
*POINT TO NEXT* NO .*IS_ THIS AN *. o*1S THIS THE*. YES 
* ITEM IN THE *<---<--- *. EMPTY SPACE ?.* 4+-->*. ITEM I WANT? .* ~-+ 
* LIST. * * o* *, 2 * 
* * x, x K XxX 
Me AR AE oie KK *, . * x, 6X 
* YES | No 
V 
V o¥, 
MK KK KD) D AE A OK OK As 2K KK OK 04 x, 
* ENTER ITEM IN * * *. 
* THE TABLE AND * NO .* 1S THIS THE*. 
*SET POINTER TO * - *, END OF THE .* 
*NEXT FREE BYTE.* *, TABLE ? .* 
x * x, ae 
hoki kk kkk kok ake kak kok ok ee oe 
; YES 
em ee ee ee ee ee ee ed 
\* aa aaa a an am 2S See SaaS + 
RE TURNO 
KKK DKA KK KK 
*RETURN, CODE = 


LOL 


LOC 


000000 
C00000 
OQ0G2A 


OO002E 
000032 
000038 
00903C 
000040 


000044 


000048 
OOOO4E 
000052 
000056 
000058 
OCO005A 
OQO005E 


000000 
C09060 
000060 
090064 
OOO006A 
O0006E 
000072 
000076 
OO00TA 


SERTAL SEARCHES. 


OBJECT CODE 


4TFO. 


41FO 
D505 
4780 
41FO 
59F0 
4740 
D208 
41FO 
50FO 
1BFF 
O7FE 
41FO 
O7FE 


4110 
D505 
4780 
4110 
5910 


4740 


47FO 


C078 


COAA 
FOOO 
CO54 
FOOC 
Ci22 
CO2C 
FOQOO 
FOOC 
Cl22 


Q004 


~100G 00000 


1600 00000 


C132 CG000 


OOOTE 


000B0 
00000 
QO05A 


-0000C 


00128 


00032 


00000 
0000C 
00128 


00004 


Q000B0 
00138 
00056 
O000C 
00128 
00064 
COO5A 


ADDR1 ADDR2 STMT 


129 


130 


~ SOURCE STATEMENT 


* 
x 
* 
Ae 
* 
* 
oo 
* 
* 


¥e 


STORAGE 


INSERT. 
INSERTLP 


RETURNO 


RETURNG 


SERT AL 


SERIALLP 


FO8APR70 


FCCC OI I Gi ok aa io oki a aa oR aoa aia ica rok ak kak ake ai ak fe a ai 8c ca ak a aR a ak fe fe kak 


IN ORDER TO ADD A NEW ITEM TO THE TABLE, WE PLACE IT'S 


ITEM TO 


RETURN CODE = 4 


IF THE ITEM IS ALREADY IN THE TABLE$ = 0 IF NOT ALREADY IN. 


BRANCHING 


TO *SERIAL* 


SEARCHES FOR THE ITEM WHOSE NUMBER IS 


IN "SARGUMNT". A CODE OF O IS RETURNED IF THE ITEM CAN BE 
A CODE OF 4 IS RETURNED IF IT CANNOT BE FOUND. 


FOUND » 
4 ROR RO A I a ICR tk i ai ka aOR II ROR I IR a I RO Ck a a a a a aK ac a a oe a ok 


RESTART THE 


CSECT 
USING 
B 


DATAITEM,R15 
TESTCODE 


R15,TABLE 
MANNUMBR yO(RL) 
RETURNG 
R15,NEXTITEM 
R15,POINTER 
INSERTLP 


DATAITEM(ITEMLEN) sO(R1) YES¢ ENTER THE ITEM 


R1IS5,NEXTITEM 


-R15_POINTER 


R15,R15 
R14 
R1594 
R14 

R15 


DATAITEM,R1 

* 

RlyTABLE 
MANNUMBR,»S ARGUMNT 
RETURNO 
Rl,e~NEXTITEM 
R1,POINTER 
SERTALLP 

RETURN4 


CONTROL SECTION. 


BRANGH AROUND RGUTINE 


SEARCH FOR A DUPLICATE. 
FOUND ONE, ERROR RETURN 


END OF USED TABLE SPACE ? 
NG, CONTINUE SEARCH. > 
IN 


) THE TABLE 
POINT TO NTXT FREE SPACE. 7 


NORMAL (CLEAN) RETURN. 


ERROR RETURN. 


THIS ROUTINE LOCATES AN ITEM IN THE 
TABLE. 

IS THIS THE ITEM ? 

FOUND, RETURN TO CALLER. . 


END OF THE USED TABLE SPACE ? 
NO, COOP TO END OF TABLE. 
NO MATCH FOUND, RETURN ERROR CODE. 


PAGE 5 


9/16/70 


00010400 


00010500 
ADDRESS IN REGISTER 1 AND BRANCH TQ -fINSERT*. THIS WILL ADD AN. 
THE TABLE IF IT IS NOT ALREADY IN. | 


00010600 
00010700 


- 00010800 


00010900 
00011000 
00011100 
00011200 


00011400 


00011500 
00011600 
00011700 


00011900 


00012000 
00012100 


00012200 
00012300 
00012400 


00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 


00013400 


00013500 
00013600 
00013700 
00013800 
00013900 
00014000 
00014100 
00014200 


SERTAL SEARCHES. | | — PAGE 6 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT | FO8APRT0 9/16/70 
169 *G€GEGEEECEEEEEEEEEESESE EEEEEE EEE EEE EE EGEEEEGEEEEE EEEEEEEEEEEEEEEEEEEEEEES 00014400 

170 * THIS CODE TESTS THE SERIAL DATA HANOLING ROUTINES BY ADDING 00014500 

l7il * A NEW ITEM TO AN EXISTING TABLE, TRYING TO ADD A DUPLICATE, 00014600 

172 * AND SEARCHING FOR AN IFEM THAT IS IN THE TABLE. 00014700 

173 *G&EESEEEEEEEEEEEEEEEEEEESE GEE GEESE EEEEEEEEESEEEEGEEEESESEEEEEEEEEEEEESEEEE 00014800 

COOOTE 4110 C126 ~0012C 174 TESTCODE LA Rl» ADSERIAL | 00014900 
000082 45EO C028 OOO2E 175 BAL R14, INSERT GO INSERT A NEW ITEM 00015000 
CQ0086 47FF C084 OO08A 176 4B *+4(R15) 00015100 
COOO8A 47FG CO8A 00090 177 B *+6 : 00015200 
OOO008E 0000 178 DC H*'Q? DUMP IF INSERTION FAILS. 00015300 
000090 4110 CG6C2 coocea 179 LA R1L,TESTDATA TRY TO INSERT A DUPLICATE 00015400 
000094 45E0 C028 COO2E 180 BAL R1L4sINSERT . 00015500 
000098 47FF C096 G009C 181 B *+4(R15) | 00015600 
COOOo9C O7CG 182 NOPR 0 00015700 
OOOO9E 0001 183 DC H*1* | DUMP UNLESS I[ GET A DUPLICATION ERROR 00015800 
OOOOAO0 45E0 CO5A OC060 184 __ BAL R14,SERIAL SEARCH FOR AN ITEM THAT IS IN TABLE. 00015900 
OO00A4 D505 C132 1000 06138 00000 185 CLC SARGUMNT,O(R1) 3 00016000 
OOOOAA 478C C138 OO13E 186 BE SER TALOK — 00016100 
OOOOAE 90002 187 DC H'2* DUMP IF WE CAN*T FIND IT. 00016200 
O000BC F2F6F4F8F3F3C4F1 189 TABLE DC C*264833D16021° GEEEEEEEEEEE EEE EEE GCEEEEEEEEEEEEEESEREEE 00016400 
OOSOBC FIFSFIF6OF4F2C4F1 190 DC C*' 157642011106! & THIS [S THE TABLE AND TEST DATA & 00016500 
@ 0000C8 F2F2F5F6FILFIE6F1 191 TESTDATA DC C*22561 W1494T* & FOR THE SERIAL STORAGE AND & 00016600 
© 090004 FOFSF5SFIF6F3ZE6FO 192 DC C*985163W01628! & RETRIEVAL ROUTINES. & 00016760 
CODOEO FOF4FLIF6FTF3C4FO 193 DC C*541673D002825' GEEEGESEEEESESEEEECESEEEEEEEEEESESESEEEEE 00016800 
COOCEC 4040404040404040 194 TABLEMPT DC SCL12* * 00016900 
000128 OOQOOO00EC 195 POINTER DC AC TABLEMPT) 00017000 
00012C FVFTFLFSF4F3E6F1 | 196 ADSERIAt DC C*771543W19667T' 00017100 
060138 F2F2F5F6F1FT - 197 SARGUMNT DC C*225617'8 00017200 
OG013E 198 SERIALOK DS OH 00017300 


200 3 OO IO OC A i ak algo ioiotaak tea totic dete totetarc ak ak seated ak teak te ak de ak ak ak ak tote §=0001 7500 


201 * . 00017600 
202 * ANSWER THESE QUESTIONS ABOUT THE SERIAL STORING AND SEARCHING 00017700 
203 * ROUTINES ABOVE. (USE THE CODE TO GET YOUR ANSWER.) 00017800 
204 * 00017900 
205 * 1. HOW MANY TIMES WAS THE CLC “INSERFLP®™ EXECUTED WHEN 00018000 
206 * "ADSERTAL™ WAS INSERTED IN THE TABLE ? 00018100 
2OT * 00018200 
208 * 2. WHICH INSTRUCTION TESTS FOR THE END OF THE TABLE ? 00018300 
209 * 00018400 
210 * 3. WHY IS THE BASE REGISTER FOR “MANNUMBR" DIFFERENT FOR 00018500 
211 * INSTRUCTIONS “ENSERTLP®™ AND "SERIALLP" ? 00018600 
212 * 00018700 
213 * 4. HOW MUCH DATA WOULD GET MOVED IF I WROTE: 00018800 
214 * Ae MVC FUNCTIQN,sADSERIALt+6 ? G0018900 
215 * B. MVC INDICATRyADSERIAL+6 ? 00019000 
216 * 00019100 
217 ***keEXe AT THIS TIME, DISPLAY THE BLUE SIDE OF THE “ANSWER CUE". 00019200 
218 * 00019300 


2.19 EO oO IG i ii oR toi i lok uakai ak ai uiai ok ak ak ak akak aki akckak ak kok dotocacdotcacck 00019400 


; g 


SERIAL SEARCHES. . . eos | PAGE 7 
LAC OBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT 7 a FO8APRTO 9/16/70 
DOL KRRRRKRKK KEK KK KK FIO CIC IC CR ITOK RSI ak aR a a a acai a a ak ak ak ke ak a ai ak kc ak ak a a aca ak ak ak 00019600 
, 222 * . . 90019700 | 
: 223 * ANSWERS FOR THE SERIAL TABLE HANDLING ROUTINES. © 00019800 
224 * . | 00019900 
225 * Ll. "INSERTLP™ WAS EXECUTED 5 TIMES, BECAUSE THERE WERE 00020000 
226 * ALREADY 5 ENTRIES IN THE TABLE. | 00020100 
227 * a . | 00020200 
228 * 2. THE INSTRUCTION: * C ~~ R1L5,POINTER * TESTS FOR THE © 00020300 
229 * END GF THE TABLE, AND THE INSTRUCTION: * BL INSERTLP * 00020400 
230 * ACTS ON THE RESULTS OF THAT TEST. | 06020500 
231 * e . -- - §0020600 
232 * 3. BECAUSE THE * DROP R15 * AND * USING DATAITEM,RI * 00020700 
233 * PSEUDO—INSTRUCTIONS CAUSE THE ASSEMBLER TO CHANGE BASE © 00020800 
234 * REGISTERS FOR ALL SYMBOLS IN THE “DATAITEM" DUMMY SECTION. 00020900 
235 * . | 00021000 
236 * 4. A) 6 BYTES, THE LENGTH OF "FUNCTION. : 00021100 
237 * B) 1 BYTE. THE LENGTH OF "*INDICATR®. Ni | : 00021200 
238 * : 00021300 
DBD HRA OK A RE He OK RE EK OK KE He A Oe RE OC KE Ke AE OK CE I AE I Re OK ERK KH KK KKK OOOZ 1400 


EOL 


DIRECTLY ORGANIZED DATA. | | | | = PAGE 8 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT . FO8APRT0 9/16/70 
241 * FER COR SOR ROI ICR ICA IE RIOR ICC HE RC OK aK 00021600 
242 * * DIRECTLY ORGANIZED DATA TABLES * 00021700 
243 * Eo eee eee He Hs * 00021800 
244 % 


MHA KK KK KK KKK RR KK KEK 00021900 


246 KEEEEEEE FEE EEE EEEER EE EEE EEF EEE EE EEELE EEE EEE EEA EEE FEF EEE Et ete e tet etettet+ 00022100 


247 * 7 00022200 
248 * AS YOU HAVE SEEN, THE SERIAL SEARCH IS SIMPLE TO CODE AND 00022300 
249 * QUITE WORKABLE. IT IS, HOWEVER, A BIT ON THE SLOW SIDE AS 00022400 
250 * FAR AS PROCESSING TIME IS CONCERNED. MAYBE THERE IS SOMETHING 00022500 
251 * FASTER«e. : | 00022600 
252 * 00022700. 
253 * LET'S CONSIDER THE "DIRECT* FORM OF STORAGE AND RETREEVAL,; ~ 00022800 
254 * WHICH GOES BY THE CARDINAL RULE: "A PLACE FOR EVERYTHING 00022900 
255 x AND EVERYTHING IN IT®S PLACE", 00023000 
256 * 00023100 
257 * FOR THE SAKE OF ILLUSTRATION, LET US ASSUME THAT THERE 00023200 
258 * ARE GNLY 1000 EMPLOYEES IN THES COMPANY AND THAT THEIR 00023300 
259 * MAN-NUMBERS RANGE FROM 1 TO 1000.. I KNOW THAT THIS ISN*T 00023400 
260 * TRUE, BUT BEAR WITH ME.. 60023500 | 
261 * a 00023600 
262 * IF IT WERE TRUE, WE WOULDN'T NEED TO SEARCH FOR ANY ONE ITEM. 00023700 

- 263 * RATHER, WE COULD STORE IT IN IT*S OWN UNIQUE STORAGE LOCATION 00023800 

g 264 * WHICH WAS EQUAL TO "TABLE'+#(12 X (MANNO-1))+ AND WE®D HAVE 00023900 
265 * A TABLE THAT LOOKED LIKE: 00024000 
266 * 00024100 
267 * "DIRECTAB? NOTICE THAT EACH DATA ITEM IS IN 00024200 
268 * tot POSITION IN THE TABLE BY THE MAN 00024300 
269 * }000001 DATA FOR MAN #1 [| NUMBER THAT IT CONTAINS. IN A 00024400 
270 * $----- ~------------------- + TABLE LIKE THIS, IT IS NOT REALLY 00024500 
271 * {000002 DATA FOR MAN #2 | NECESSARY TO HAVE THE ARGUMENT IN 00024600 
272 * $----------— —-------------+ EACH DATA ITEM, SINCE EACH ITEM 00024700 
273 * ¥0929000902990900909029009) WILL BE LOCATED BY IT'S UNIQUE 00024800 
274 * COCOCECOCOCOOCOOOOCOCCCOOOE ADDRESS (WHICH IS A DIRECT 00024900 
275 % $---~--------~-------------+ FUNCTION GF IT'S ARGUMENT) AND 00025000 
276 * [001000 DATA FOR MAN #1000} NOT BY SEARCHING THROUGH THE 00025100 
277 * $~--~---~----~-------------+ TABLE FOR IT'S ARGUMENT. THE 00025200 
278 * | <------ 12 BYTES ------->] MAJOR ADVANTAGE OF SUCH A TABLE 00025300 
279 * IS IT'S SPEED AT LOCATING DATA. 00025400 
280 * | 00025500 
ZBL KEEEEEEEEEEE EE EE EE EEE EEF EE EEE EEF EEE EEE EEE EEE EEE EE EEE EEE EE EEE Et tee t tt ett 00025600 


DIRECTLY ORGANIZED DATA. | | | - | PAGE 9 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT | FOS APR70 9/16/70 


ZEB KEFEEEEE FER EEE EER EE EE EEE EEE EEE EEEEE EEE EER EEE EEE EEE EE EEE EEE Het t 4+ tt+tet+t+ 00025800 


284 * : 00025900 
285 * AS I SAID BEFORE, YOU KNOW THAT WE EMPLOY MORE THAN 1000 00026000 
286 * PEOPLE, SO LET'S SEE WHAT HAPPENS WHEN WE USE A MORE 00026100 
287 * REALISTIC FIGURE IN THE SOLUTION OF THE LAST PROBLEM. 00026200 
288 * THE FIRST THING WE MUST CONSIDER IS THAT THERE ARE 1,000,000 00026300 
289 * POSSIBLE SERIAL NUMBERS IN OUR MAN-NUMBERING SCHEME. 00026400 
290 * THIS MEANS THAT IF WE WANTED TO BUILD A DIRECT TABLE FOR 00026500 
291 * OUR DATA ITEMS WE®VE BEEN USING, WE NEED ABOUT 12,000,000 00026600 
292 * BYTES OF CORE FOR OUR TABLE. PRETTY UNREASONABLE, ISN'T IT ?? 00026700 
293 * IT ITS ESPECIALLY UNREASONABLE WHEN YOU CONSIDER THAT WE 00026800 
294 * EMPLOY SIGNIFICANTLY FEWER PEOPLE THAN THAT, SO MOST OF THE 00026900 
295 * TABLE SPACE WOULD BE WASTED.... 00027000 
296 * 00027100 
297 * THAT*S TOO BAD;y BECAUSE THE DIRECT SCHEME WOULD HAVE BEEN 00027200 
298 * QUITE FAST. C0027300 
299 * 00027400 
300 * FORTUNATELY, THIS [IS AN OLD PROBLEM AND SOME OLD BODY 00027500 
30] * FIGURED OUT AN OLD SOLUTION TO THE PROBLEM. 00027600 
302 * 00027700 
303 * LET*S ASSUME THAT WE HAVE 200,000 EMPLOYEES TO WORRY ABOUT. 00027800 
304 * THIS MEANS THAT 4/5-THS OF OUR SERIAL NUMBERS ARE UNASSIGNED, 00027900 
305 * AND THAT WE WOULD NEED ONLY A 200,000 POSITION TABLE, 00028000 
306 * RIGHT?? TRUE ENOUGH, BUT, THERE [S SOMETHING ELSE WE HAVE 00028100 
- 3207 * TO CONSIDER. WE WANTED EACH MAN NUMBER TO TELL US WHERE THE 00028200 
4 308 * ITEM GOES IN THE TABLE ON THE BASIS OF THE NUMBER ITSELF, AND 00028300 
309 * THAT'S NGT GOING TOG WORK TOGO WELL WHEN WE TRY TOG CRAM 00028400 
310 * 2007000 NUMBERS RANGING FROM 1 TO 1,000,000 INTO OQUR 200,000 00028500 
311 * - ENTRY TABLE AND STILL ACCESS THEM WITHOUT A SERIAL SEARCH. 00028600 
312 * 00028700 
313 * O.Ke2???, WE NEED TO TRY TO MAKE EACH MAN NUMBER FIT INTO 00028800 
314 * A RANGE OF NUMBERS FROM O TO 199,999. THERE IS A VERY EASY 00028900 
315 * WAY TO DO THIS, CALLED "MODULO DIVISIONS BY 200,000. 00029000 
316 * . 00029100 
317 * FOR THE NON—-MATHEMATECALLY ORIENTED, (OR NON-SELF-CHECK 00029200 
318 * KEY-PUNCH TRAINED), MODULO DIVISION [S JUST LIKE ORDINARY 00029300 
319 * DIVISION, EXCEPT THAT WE THROW AWAY EVERYTHING BUT THE 00029400 
320 * REMAINDER AFTER DIVISION. THIS TECHNIQUE, CALLED *HASHING® 00029500 
321 * LOOKS LIKE: 00029600 
322 * . 00029700 
323 * QUOTIENT(WHICH WE JUNK) + REMAINDER(A NUMBER FROM OCO29800 
324 * eee hese 0 TO 199,999, 00029900 
325 * 200,000) MAN NUMBER WHICH WE KEEP) 00030000 
326 * _ : . : — 00030100 
327 * SG. NOW EVERY MAN NUMBER HASHES! DOWN TO A NUMBER FROM O TO 00030200 
328 * 1994999 $ WHICH, WHEN MULTIPLIED BY THE DATA LENGTH (12 BYTES 00030300 
329 * IN THIS EXAMPLE) GIVES US THE ADDRESS AT WHICH THE ITEM IS TO 00030400 
330 * BE STORED. 00030500 
ok 


BRL FREER EF EEE EF EEE EE EEEEEE EEE EEE EEE EEFEEE EE EE HEEE EEE EEE EEE EEE EEE EEE E+ E+44. 00030600 
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DIRECTSH 
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EF SEARCH* 
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LOL 


LOC 


JOO13E 


000142 
000144 
9057146 
00014C 
000150 
009152 
000156 
000158 
CCO1LSC 
CCOL6C 
C90162 
009166 
eOGC1l6c 
C00170 
CO0174 
9C3176 
060178 
OOG17C 


TOGITE 
OCO0182 


000186 
C00188 
00018C 
000192 
000198 
OOC1IOA 
000290 


DIRECTLY GRGANIZED DATA. 


OBJECT CODE 


47FO C292 00298 
1BFF 

1821 

F275 C28A 100C 00290 00Ca0 
4F10 C28A 00290 
1B00 

5D00 C182 00188 
1810 

8900 000z 00002 
891C 0003 00003 
LA1O 

4111 C194 CC1OA. 
D505 1009 C186 00000 0018C 
477G C172 00178 
449F C18C 00192 
LBEF 

O7FE 

41F0 0004 90004 
O7FE 

41FG 0006 090006 
47F0 C140 00146 
0000 

00000014 

4040404064046 

020B 1000 2000 OG000 00000 
07CO 

4040404046404040 


ADDR1I ADDR2 


STMT 


346 
347 
348 
349 
356 
aot 
352 
353 
354 


355. 


356 
357 
358 
359 
360 
361 
362 


364 
365 
366 
367 
368 
369 
370 
371 
3¢2 
373 
314 
375 
376 
3277 
378 
379 
38¢ 
381 


383 
384 


386 
281 
388 
389 


390 
391 
392 
393 
394 
395 


SQURCE STATEMENT 


FO8APRT0 


PAGE 1l 


9/16/70 


KEE EFEEEFE EEE EERE EEE FEE EE EE EE EE EEE EEE EEE EE EEE EE EEE EF EF EF ESE EE EH ete tet + t+ ©) 00032100 


BEEN 


HH MH 3 He He He HH OK OHO 


B 


DIRECTST SR 
LR 

DIRECTS2 PACK 
CVB 

SR 

D 

“LR 

SLL 

‘ [sue 

AR 

LA 

CLC 

BNE 

EX 

SR 

BR 

ALRDYIN LA 
BR 


DIRECTSH LA 
B 


*EEEEEEEEEEEEEE EES EEEEEEEEE SEE EES EEEGEEEEEESEEESE SE EEEEECEGESEEEESE GEGEE 
THESE ARE THE CONSTANTS USED BY THE DIRECT STORAGE AND 
RETRIEVAL ROUTINES. 
* EGE EEEEE GE EEE GEEEESEESESEESEE GEE GEEEEEE GE EEE EEEEGEGEEEEEEESEEEESEEE SEEEE 


t 4 


+ 


3 


F20 DC 

BLANKS DC 

SELECT MVC 
NOPR 


DIRECTAB DC 
DOUBLE DS 


BRANCHING TO 
PASSED. ON RETURN, 


OR A SEARCH ARGUMENT, 


FOR PURPOSES OF ILLUSTRATION, 
BEING QUITE LAZY, 
TQ A 20 ITEM TABLE; 
TALKING ABOUT. 


DIRECT 


R15,yR15 


R2sR1 
DOUBLE, MANNUMBR 
R1,DNUBLE 

RO,RO- 

ROwF20 

R1,ROQ 

R022 X 

R1,3 a 

R1,RO 
RLyOIRECTABC(RI De 
MANNUMBRy, BLANKS 
ALRDYIN 
RO,SELECT{(R15) 
R15,R15 

R14 

R1554 

R14 


R15,6 . 
DIRECTS2 


Ff2ce 
6c! ' 


*DIRECTSH!* 


I*M GOING TO RESTRICT THE TABLE 
RATHER THAN THE 200,000 ITEM ONE WE'VE 


IN THE TABLE, 


BRANCHING TO *DERECTST® CAUSES A DATA ITEM TO BE ADDED TO 
THE TABLE (PROVIDED IT IS NOT ALREADY IN THE TABLE). 
OF O ITS RETURNED IF THE ITEM GETS INSERTED, 
LOCATES THE ITEM WHOSE ARGUMENT IS 
REG 15 CONTAINS © IF FOUND, 
REGISTER 1 IS USED TO PASS THE ADDRESS OF EITHER A DATA ITEM 
DEPENDING UPON THE DESIRED OPERATION. 


A CODE 
4 IF IT DUESN'T. 


JUST FOR THE SAKE OF 
*DIRECTAB® 


AND? 


FEEEELEFEFELE FEE EE EEE EE EEE EE EE EEEEE EEE EEE EEE EEE EE EEE EEL EE EE EEE EEE EEE HT 


BRANCH TO THE TESTING CODE. 
SET UP STORE INDICATION 
CONVERT "MAN NUMBERS TQ AN ADDRESS 
BY USING MODULO 


DIVISION BY 20 (THE MAXIMUM NUMBER 
OF ITEMS OUR TABLE wWILt HOLD). 


IS THIS SPACE EMPTY ? 

NG, DUPLICATE, RETURN. 

EITHER INSERT THE ITEM OR NO-OP. 
GGOD RETURN, SET CODE = 9. 


SET UP ERROR RETURN CODE. 


SET UP SEARCH INDICATOR. 
GO SEARCH TABLE FOR ITEM. 


NUMBER OF ITEMS IN THE TABLE 


MANNUMBRCTTEMLEN) ,O(R2) 


0 
20CLi2' * 
D 


4 IF NOT FOUND. 


00032200 
00032300 
00032400 
00032500 
00032600 
00032700 
00032800 
0C032900 
00033C00 
00033100 
00033200 
00033360 
00033400 
00033500 
00033600 
00033700 


60033900 
00034000 
00034100 
00034200 
00034300 
00034400 
00034500 
00034600 
CO003470C 
00034800 
00034900 
00035C00 
60035100 
00035200 
00035300 
C003540C 
09035500 
00035606 


00035800 
00035900 


00036100 
00036200 
000363090 
00036400 


00036500 
00036600 
00036700 
00036800 
00036900 
00037000 


80L 


DIRECTLY QRGANIZED DATA. PAGE 12 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT0 9/16/70 
397 *&EEEEEEEEEESEEEEESEESSESESEEEEEEEES EESEEEEESESEEEESEEESESEEEEEEEEEEEEEEE 00037200 

398 * THIS CODE TESTS THE DIRECT STORAGE AND RETRIEVAL CODE ABOVE. 00037300 

399. -* IT ADDS 3 ITEMS TO THE TABLE AND THEN RETRIEVES ONE OF THEM. 00037400 

400 *&GEEE EE EEE GEEEEEEEEGEEEEGEEEESES CE GEEEEEEEEEEEE GCEEEEEESEEEEESEEEEEEEES 00037500 

000298 4110 C2DC OO02E2 401 DIRECT LA R1l,ITEML FIRST ITEM TO BE INSERTED 00037600 
COO029C 45EO C13C 00142 402 BAL R14,DIRECTST GO0037700 
O002A0 47FF C29E COZA4 403 B *+4(R15) 00037800 
OO02A4 47FG C2A4 OO2AA 404 B *+6 00037900 
OCO2A8 0003 405 DC tS! DUMP IF IT DOESN'T GET INSERTED. 00038000 
OCO2AA 4110 C2E8 OO2ZEE 406 LA R1l,ITEM2 SECOND ITEM TO INSERT. 00038100 
COOZAE 45E0 C13C C0142 407 BAL R1L4,DIRECTST 06038200 
0002B2 47FF C2Bu O02B6 408 B *+4(R15) 000383600 
COO2B6 47FO C2B6 O002BC 409 B +6 00038400 
OO002BA 0004 410 DC H'4! DUMP IF IT DOESN*T GET INSERTED. 00038500 
SC02BC 4110 C2F4 OO2FA 411 LA R1L,ITEM3 THIRD ITEM TO INSERT. 00038600 
OCO2C0 45E0 C13C 00142 412 BAL R14,DIRECTST 00038700 
OCO2C4 47FF C2C2 O02C8 413 B *+4(R15) 0003880C 
CO02C8 47FO0 C2C8 OO2CE 414 B *+6 00038906 
9002CC 0905 415 DC Ht 5? DUMP IF INSERTION FAILS. 00039C00 
OPO02CE 4110 C300 90306 416 LA Rl,«SEARCHI1 ITEM TO BE SEARCHED FOR. 00039100 
OO0G2D2 45E0 C178 OO1L7E 417 BAL R14,DIRECTSH 00039200 
COG2D6 D505 1060 C300 00000 00306 418 CLC MANNUMBR y» SEARCH] IF THE RETURNED VALUE DOESN#T MATCH, 000639300 
2002DC 478C C306 0030C 419 BE DIRECTOK THEN TAKE A DUMP. 00039400 
JO02EO 90006 420 BC H'6 0.0039500 
Q9002E2 FIFIFLIFIFLFIESF] . 422 ITEM] DC C*1iliLiwillii' SEEEEEESEEEEE EEE GEEEEEEEEEEEEEEEEEEE 00039700 
OOO2ZEE FLF2F3F4F5F6C4F1 423 ITEM2 DC C*123456D0123455 & THESE ARE THE TEST DATA ITEMS & 00039800 
QOG2FA F4F4F4F4F3F1C4F4 424 ITEM3 DC C'4444310444448 & FOR THE DIRECT DATA TEST RQUTINE.& 90039900 
009306 FLFIFIFIFIFL 425 SEARCHI1 DC CV LltEelLii* "EEEEEEEEEGEEES EEEEEEEEEEEEEEEEESESEE 00040000 
GD 1 FRA OK RK AK A A a CC OK oe HE I RE IC IK AES OO IE OK KE OC IS AE IK AK I KE AS OK OK HK KKK 6 O040200 

428 * 00040300 

429 * ANSWER THE FOLLOWING QUESTIONS CONCERNING THE DIRECT STORAGE 00040400 

430 * AND RETRIEVAL ROUTINE ON THE PREVIGUS PAGE. (USE THE CODE TO 00040500 

431 * FIND YOUR ANSWERS. 00040600 

432 * 0G040700 

433 * L.WHAT ARE WE DOING WITH THE INSTRUCFION SEQUENCE: 00040800 

434 * LR R1l,RO 0004090C 

435 * StL RO2 00041000 

436 * SLL R1l,3 00041100 

437 %* AR R1,RO 0004120C 

438 * 00041300 

439 * 2. WHAT HAPPENS WHEN WE EXECUTE THE ™ EX RO,SELECT(RI5) " C0041400 

440 * INSTRUCTION WHEN WE ARE TRYING TO: 0C041500 

44] * A. INSERT "ITEML"  ? 00041600 

442 *% B. LOCATE "SEARCHI" ? 00041700 

443 %* 00041800 

AGG HEA KK KE KE AE EO ER RK A AE EO ER A A IE OK EE OK A I OE A AE AR AK OK KK AK KK KAA ~OOO4G1LINO 


60L 


DIRECTLY ORGANIZED DATA. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
00930C . 462 


PAGE 13 

SOURCE STATEMENT FO8APRT70O 9/16/70 
SCC iC i IC aI oii loi acick a a ickckok ick kick iciok tok aoto ik teak tok tick 00042100 
* ANSWER THE FOLLOWING CONCERNING THE OUMP ON THE NEXT PAGE: 00042200 
* 00042300 
* 1. AT WHAT POINT IN THE PROGRAM DID WE TAKE THE DUMP ? 0004240C 
7 00042500 
* 2. WHAT WAS THE RETURN CODE ? 00042600 
* 00042700 
* 3. WHY WAS THIS RETURN CCDE GENERATED ? 00042800 
* 00042900 
* 4. WHAT STORAGE ADDRESS DUES MAN NUMBER 444431 "HASH* TO IN 00043000 
* QUR DIRECT TABLE "DIRECTAB* ? | 00043100 
a 00043200 
mR WHEN YOU HAVE FINISHED THESE, DISPLAY THE RED SIDE OF THE 00043300 
* "ANSWER CUE". 00043400 
* 00043500 
HE AE ACE A A ee AE 2 a aK A A IE EE A I EK A A A I AR A a A A I EC OR a aK a OE ok aK aE a ek KKK 00043600 


DIRECTOK DS OH 00043709 


FeP. REGS. OC.0000C0 CLO0G00C 00.12C002 02010970 FF.O40001 5000AC16 00.0C0000 00010730 
REGS 0-7 OOGGOQ02C QOO5ACDE OOO5SADBA GOC00000 COO1LABS8 OOOIBOE8 O0001D140 0001BA48 
REGS 8-15 OO0OOLDCAG GO0C0000 O00100C8 900000000 6FCSAAC6 0005B204 8FO5AD84 00000004 
009900 9CO0GEGCG 00000000 O0TNLODD 00000000 OGO5AACO COCGCOD00 FFO4O008O ADDOAIZC = Kea cnccvccce vc cccvrcseccccesevssee® 
200020 FFO5C001 4007EA2C FFB50001 6FO5AD8E QOOOOFFOO OOO00000 FEOQ4OOOF BDDDDALE Fe cee cove cecc veces eccccvcvssevee® 
000040 00C7CD98 O80000CG 00001468 00005920 O2CC31A4 ODOO0IGEC CO04000N ODDOT4EIB Keeees seve cece vcccvrcccvecsvscceese® 
O00060 OCC4G00C QO0C7TBC8 00040000 00007588 OO0000000 OOO12D1O ACN4ONNN OCOOTSIA Fever eeeHeevcccccevcvecesesccsesser 
O5AACO 9OECDOCC C5COU41FO C7Z3E5CFD CO085CDF COC418DF D703D008 DOOB58BFO CTBADZOL Fa eee ee eOGeese cece eeePeceesceIGeKe * 
O5SAAED FOCCCO22 47F0C024 OTFESTFO COT841F0 CCAAD505 FOOOLOOO 47800054 4LFOFOOC *0 2.00 Deere ee One eDe eNeGn ween eee OC 
C5ABO0C 59FOC122 4740C02C D20BFO0O0 LOOO4IFO FOOCSOFO C1221BFF OTFE4LFO OOO4OTFE *.0A. e 2 eK Dee e000 ce eONe cee ce een ee ® 
J5AB29 4110CuAA 05051000 C1324780 C0504110 100C5919 C1224740 CO5SE4TFO CO5S4411L0 Few eeNe we Newer sere eceANee seetcvee® 
O5AB4C C12645E0 CC2847FF CO8B447FO CO8AD00N 4110C0C2 45E0CO28 47FFCO96 OTOO0OCL FAewervec see Da seve eeBecreveesesee® 
O5AB60 45EOCO5A D5U5C132 160604780 C1380002 F2FOF4F8 F3F3C4F1 FOFOF2ZFL FLFSFTF6 eee eNeAee ce Ae oe 264833D0160211576% 
O5AB80 F4F2C4FLi FIFLFOF6 F2F2F5F4 FLIFTEOF1 FG4FOF4FT7 FOFBFSFL FOF3ZE6FO FIF6F2ZF8 *420D1110622561 7W14947985163W0162 8% 
O5ABAC FOF4FIFO6O FIF3C4FO F2F8F2F5 FITFTFIFS5 F4F3E6F1l FOFEF6FT 40404040 40404040 *541673002825771543W19667 ** 
O5ABCO 40404040 46404040 40404040 40404040 40404040 40404040 40404040 40404040 * * 
O5ABE0 40404040 40404040 OCOOSABBe® FTFTFIF5 F4F3E6F1l FOFE6EF6FT F2F2F5F6O FIFT47FO * eoee ll 11 543W1966/225617.0% 
O5AC 09 C2921bFF 1L821F275 C28A1000 4FILOC28A 1BOO5D00 C1821810 89000002 B91LCOQO00S *FBe eee e®eBe eee e Bee we eNocvecceneee® 
O5AC2CE 1A104111 €C19405C5 1000C186 4770C172 44QFC18C IBFFOTFE 41F00CC4 OCTFE4SLFO Fe ee eNeNo ew eNo we Nhe ee Neve ee eDe eee 0% 
O5AC49 JUC647FG C14C00000 00000014 40404040 404CD20B 10002000 07004040 40404040 *...0N weeeee Keecesec * 
DSAC60 40404040 40404040 40404040 40404046 40404040 40404040 40404040 40404040 * * 
O5AC890 40404040 40404940 40404040 46404040 40404040 40404040 4040404C 46404040 * * 
O5ACA0 40404U4G 404064040 40404C4S 404040406 40404040 40404040 40404040 40404040 * * 
O5ACCSG 49404U40 40404040 40404040 40404040 40404040 40404040 40404040 4C40FIFI * 11* 
O5ACEO FIFIFIFi E6FIFILFI FIF1404C0 40404040 40404040 40404040 40404040 40404040 *11l1l1W11111 * 
O5AD99 40404U4C 40464°%40 454040460 49404040 40404040 40404040 4040F1F2 F3F4F5F6 * 123456* 
= 05AD20 C4F1lF2F3 F4F5404C 40404040 40404040 40404040 40404040 40404040 40404040 *D12345 * 
© 054040 40404446 40404040 40400504 00490000 JOOCO000 0444431F 4110C2DC 45E0C13C * Eee cove ceseveeebe ee Ae*® 
O5AD6C 4TFFC29E 47FO0C2A4 900034110 C2E845E0 CLZC47FF C2BC47TFO C2B60004 4LLOC2ZF4H *..B ee 0B. ee oe BV ee Nn ee Be eB e oe ee B4* 
ISAD3C 45ECC13C 47FFC2C2 47F0C2C08 OC054119 C3G045EO C178D505 LODOC3ZCO 478CC306 Fe eAe ee BB eOBHe eee Cee sAeNe ew eCee ele 
O5ADAO0 OOO6FIFIl FIiFiFLlFl E6FIFIFL FIFIFlFe F3F4F5F6 C4FIF2F3 F4F5F4F4 F4F4F3F1 *..111111W11111123456012345444431% 
O5ADCO6 C4F4F4F4 F4F4F1F1l FIFLFIF1l 47FOC42E 1821F275 C28A1000 4FLOC28A LBOOCSDOQ *D44444111111.00...2.Be eee eben eo  ® 
CS5ADEU C42A8900 JOU241F0 C38A1LAFO 581FCC0C0 12114770 C33841FF OOOL4S7FO C356D505 FD 00 oe OC ec eUa weer ewe eCe reece eC eNe*® 
C5AESO 10052000 4780C37A 41FC1LCOC N2020333 106C5810 C3821211 477003238 D202FO000 Kee eee Cee Ce eK eCoe es eCeoese el eKe Oe * 
Q5AE20 C36756FQ C3861R81F D20B1C00 200907102 1OCC1LOOC 41FFCOOF SCFOC3286 IBFFOTFE *C. eC a eKee ee Pec cccrer ee Dees ee® 
D5AF4C 41FCUCO4 ufFEGOCO COB000TO CII5AE78 OICAOGOGO BDOOCTCINO BDODADDINO OOOSOOCO KeVesee vcs e nerves csscrseesesecee® 
O5AE6C BOSCCOGSG SGuc0G00 900CIQ0CT ACUCOOOY OOCCONIO GOCCOQDOS 40464049 40404040 Keer rrr ere seevecscescscves * 
SORES. 4O4U454U 4940404C 40404C4O 40474040 40404040 40404040 40404040 40404040 * x 
COAFAS 40404040 456404040 404940420 40494040 494604040 40404040 40404040 404C4U4C0 * ad 
S5AECC 404040F4 FOFUFOFO FIF8SFCFOG FOFOFLES6 FIF2F3F4 FOF6FOFO FOFCKFS&C4 FBF2F5F6 * 4CCO001L8000G1W1 2345600006) 32 56* 
~SAEEC F8F4FGFC FUFOFIC4 FOFBFIF6 F5000CU2 927030040 41100403 45ECU3CGA 4TFFC43A *8400CCLESIB TES. ce eee we eVDe wre Cee eo e® 
S5AFO00 47FOC44C OUGT4116 C40F45EU C3CA4TFF C44C47F0 C4520008 4110C41B 45E0C3GA *.0D 2 ee eDe wee ee De eDDe ee ee Dew Ce% 
C5AF 20 4TFFC45E 47F0C464 00094110 C3FD45EC C32CA47FF C47CCVQ0A OCTOGOL1L4 4LICCTBE *. Dee GD ee eee Coe e Cee eDewsveveveire® 
O5AF40 162148F2 GuulG6FO 4CFOC7T°4 41AFC4AA 48F 19902 COFO4CFO CT96LAAF 48FIL0004 = Fee ete ee Oe OGe ee Deel oe eOe0Ge eee lee *® 
O5AF6O C6EFOLEFF LAAF481A OCOCO0OCB 47FLC612 C0440025 FFETOO3ZF OOLTFFEF GO3400CC FpeCe eevee rece eUFe cee veXecneesseee® 
O5AF80 FFEGQQ038 GC1L6FFFB CO3DO001E FFFE6E003A GOOCFFFL GCO2BO000D FFF9CO38 ODOLOFFDC eee e cece ccreeebvvccelescveDeesese® 
O5AFAO JOS 6C618 FFFCGS3C OCLEFFFE 70439025 FFE5S03F CCLOFFF4 003300C0B FFELOC37 eee eeeecce reer ee Veree ota veeeeee® 
CHAFCO ICLYFFFB 06290025 FFFCOC44 JO27FFEC CC41LCCLA FFEFOO32 OOOBFFEU OO3BOOILC scree revevcce vere ccseccssssesseer 
GOAPEC FFF90042 JO23FFF2 OC260020 FFETOC4S QOOLOFFEE 00350000 FFDFO039 OOLBFFFO *.Ge eee eZee a eXe ee vevsvccse ves eed 
C5B800C JO3SCCOolL+ FFF6G94E OC25FFE9 903D0015 FFF50035 OCOEFFDD O0C380C18 FFFBO03ZD Fee ee eb ee eee eve eda ce verscesecee® 
SoBO0ZO OOZ20FFF3 0G3A002A FFDDO049 COLAFFEE eG52CC2C0 FFECCO4C OOZOFFFL O003Z3001L4 KeeerevvcceccrvevesesseevesseleseeX 
O05B04C FFECOC41 OO2Z3FFET 00400018 FFF29035 CJODFFDF 00340016 FFFE0O03D OOLFFFF5 ever ee aXe cooler eccsessccceesesd® 
358 06C IOBATOZA FFDDGC35 OO2ZBFFDB 60349028 FFEQQ0038 OO2ZAFFOD 0033G028 FFE2Z0042 *Kceaceeccccvrecsvcvecesccevessescsse® 
05808C QO24FFE6 OC3FGO01B FFF1003B COCBFFDB 003240016 FFFEOQC3D OOZOFFFG OO4EQDQOT Kee eWereceloe ws vececceseeveseQeeve® 
C5BOAC FFE70635 Jo21FFFO OC2A00G2 FFD90038 OO2Z1FFFY7 003C0022 FFEFCO4S4 OO2ZOFFES FeXe eee eDe ree eReeenelaovevecesers eV 
O5B0C C OO3FO0O1?7 FFEFO034 OOOCFFCC 00380016 FFFBOC3D OOLEFFF6 47FOC64C LBO1L4E1L4EG Kec ceecr acer cesseceseesOeUFesee * 
O5RO0E0 90644150 06604125 C6728850 00010505 20006000 47800646 47400638 13551A25 Keceere eee eve eNeerecesFae Fore en® 


LLL 


0581006 
058120 
O5B14C 
O5B160 
958180 
O5B1A0 
05B81C0 
O5B1E0 
05B200 
O5B220 
05B240 
058260 


O5B82C 


10554640 
C65E0CCC 
FOSFIF2F1 
F4F8E640 
FO2FTFO6OF5 
40404040 
F1F2C440 
F8F8FOF9 
OTFEO5EF 
OCC5E5A8 
4040404C 
9CECDUCC 


50461010 


C62441F0 
4110C 678 
FOFLFOF4S 
40404040 
FOF9E640 
FSFOFLFT 
4040404C 
F3F2C440 
58FO916A 
GC0061C38 
4B404040 
O5C004F0 


4340A008 


OOO407FE 
45E0C616 
F3F8E640 
FIF4F6F7 
40404040 
F8F3C440 
PHP TPLES 
40404040 
00066F68 
00000000 
40404040 
07004110 


12444780 


18121BFF 
4TFFCO66A 
40404040 
FOF 20440 
F 3F 3F3F4 
40404040 
F3F2C440 
FOFLFOF2 
00000000 
CQ000000 
404B4040 
CO1d0sil 


885C4820 


O7FE4110 
00CD0700 
FOFOFBFE 
40404040 
F 8F2C440 
F5FOFIF4 
40404040 
F3F4C440 
00060840 
00459000 
OOO5B51E 
OF05B304 


AQQOES420 


C67245E0 
47F0C 732 
FTF 30440 
F2F6F4F8 
40404040 
F5F2E640 
FEFOFOFS 
40404040 
0O00648E8 
COC5COF4 
00010018 
TFEFOAOE 


BAGVE4 780 


C61L647FF 
F2F6OF4F8 
4040404C 
F3F3C440 
F4FLF3F7 
4040404C 
F2FOE640 
58DD0004 
000635E0 
F5F1C940 
COO200BA 
58B00010 


81TFCO620 


C65847F0 
F3F3F5F5 
FIF2F1LF3 
40404040 
F3F3E640 
F6FTF8F9 
40404040 
9BECDOOC 
00061038 
40404040 
QOQO6EB4C 
911CBO074 


SAZ20B010 


Keen Fe eDecrccccvcccceFec che ees e0* 
FEF ee eee ec eae oF ee ee 0 0 0Ge 26483355* 
*512101043 8W 098673D 1213* 
*48BW 146792D 264833D * 
*276599W 333482D 413733W * 
* 551783D 599452W 6189* 
*12D €71532D 800320W x 
*880932D 910234D eecccereee® 


ey ee ee Ue eee, 60 wee Oe eoeoeVYoceceece*® 


Fe eVecccsenccvscvcsesesselEFae5ll ** 
* e e Tere ee eae ee eae A * 
* 


* 


creeCer. eee ee Cee ee OST ee eee oe 


% 6 eee Coeenereresneeseceseeceenssex 


~a 
= 
N 


DIRECTLY ORGANIZED DATA. 


OBJECT CODE ADDR1 ADDR2 


STMT 


464 
465 
466 
4617 
468 
469 
470 
471 
472 
473 
414 


476 
477 
478 
479 
480 
481 
482 
483 
4A4 
485 
486 
487 
4.88 
48° 


SOURCE STATEMENT FO8APRTO 
BO IO I COR IIR IOC I I OO I II A a IC aC aC a 383i ak 3 2 6 a RK a a a ak a 2 a ok 
ANSWERS FOR THE DIRECT STORAGE AND RETRIEVAL ROUTINE. 


Ll. MULTIPLYING REGISTER 1 BY 12 TO GET THE PROPER DISPLACEMENT 
IN THe TABLE *DOIRECTABS. 


2- A) THE DATA ITEM "FITEM1® GETS MOVED INTO THE TABLE. 
B) NOTHING (NOP). 


HHH HH HH H 


x 


COI ROK IG III IR IK 2a IR RK kK RE RK OR KK OK aK oi aio ak oi ak ak ok akc ak ak 


He a 3 ea a Ae aR a oe i ee a I RR RC a RE AR Oe aR aK Ae a aK a a a a a AC A a 2 oR a aK KC a a a cK a 2 aK oe a ok 
° ANSWERS FOR THE DIRECT STORAGE ROUTINE CUMP. 
1. WE WERE TRYING TO INSERT *ITEM3* INTO THE TABLE. 
THE RETURN CODE WAS 4. 


3. THE SPOT WE WERE TRYING TO USE IN THE TABLE ALREADY 
CONTAINED A DATA ITEM. 


4. XtoSAEDE! OR *STORAGE*+X#O21E* OR &DIRECTAB*+X!' 84". 


Se ee 
N 
e 


FCO OO IEC 2 i I I Ok ka a a ak a ik ak akc ak ak oka af kak ke a a a a 2 ae a a 
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00643900 
00044C00 
00044100 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044800 
00044900 


C0045100 
00045200 
00045300 
00045400 
00045500 
00645600 
00045 7C0 
00045800 


| 00045900 


CO046C000 
GO0046100 
00046200 
00046300 
00046400 


ELL 


DIRECT STORAGE ... WITH SYNONYMS. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
491 
492 
493 


494 


496 
497 
= 498 
499 
500 
501 
502 
5C3 
504 
505 
5 06 
507 
508 
509 
516 
511 
312 


514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
— 532 
533 
534 
535 
536 


% 


HoH 4 


a i i a i i i i i ec 


SS A A A AN SRR SS I A NY SAS EE SE AS SN OD SY TS SS LS TL LD SS ST I ce GS SE AA SY AE RE OY NN SE A SE SI AU SURINDER SR SURGE SORE meni 


KAEEEE EE EEE EE EEE EE EEE EER EE EEE EEE EEE EEE EEE EEE EEE EEEE EE EEE EEE EEE EEHE TEE ET 


Dd 
* 


% % H 4 


at 


SOURCE STATEMENT 


H 3H 3 se He HOH OH HH OH HH OH OH 


FO8APRT70 


BEAR I Ae CB IC IC IK IE OK OR I OE AC OC CO A NRE AK OE IK OK OE OK OS EK OK 
* DIRECT DATA STORAGE WITH SYNONYMS. 


Kee eee XK 
we 
~« 


BR I IORI ak kik a ak ke a ak akc a ak akc a ak ak 


Ame Oe ste atte ene eee ete ee SOD EE enn ED “EEE eee cet ee wee SE Se ON SEE ee EE SIND AED COTE ED eR ce SEEN UND SED enthaly “ENED EUS cathe SHEE SOND ID END coe ORE ema: sents em we th aS SID SAD SD come GND SUE See cD AEE AERO ERED SEED EP AED CD OE EE eS ee ED we 


SYNeONYM /*SIN-E-NIM/. N (ME SINONYME, FR. §L SYNONYNUM FR. 
GK SYNONYMCN. FR. NEUT. QF SYNONYMOS SYNONOMOUS ¢ 
FR. SYN=- #+QNYMA NAME) 1. ONE OF TWO OR MORE WORDS 
OR EXPRESSIONS OF THE SAME LANGUAGE THAT HAVE THE 
SAME OR NEARLY THE SAME ESSENTIAL MEANING IN SOME 
OR ALL SENSES: 2: A SYMBOLIC OR FIGURATIVE NAME: 
METONYM 3: A TAXONOMIC NAME REJECTED AS BEING 
INCGRRECTLY APPLIED OR INCORRECT IN FORM. —- 
SYNeONYM.LIC /SSIN-E-NIM-IK/ OR SYN.ONYM.E.CAL /SI-KAL/ 
EDJ- SYN.ONYM.IT.TY /-NIM-ET-E/ N. 


COURTESY OF: WEBSTER*'S 7TH NEW COLLEGIATE DICTIONARY 
Ge & Co MERRIAM COMPANY, 1967. 


AS YOU CAN SEE, OUR "HASHING? TECHNIQUE CAUSES US TQ DEVELOP 
*"SYNONYMS®, WHEN TWO DIFFERENT NUMBERS "HASH TU THE SAME 
ADDRESS. SO, WE NEED TO DO SOMETHING TO CORRECT THIS FAULT 
IN GQUR SCFEME. ONE OF THE METHODS OF HANDLING THIS PROBLEM 
IS TO PLACE THE *SYNONYM* IN THE NEXT FREE SPOT IN THE TABLE 
AND "CHAIN® THE ORIGINAL AND IT*S SYNONYM TOGETHER BY AN 
ADDRESS VALUE, SO THAT WE GET: 


S sieeadien danas haetnaeieeeiemnaataetieen hones +t + . 
| HASHED ITEM # 1 {O0CGOO! O'S INDICATE ABSENCE OF A CHAIN. 
$2 rn a er wre nr oe at—<—-———— + 

| HASHED ITEM # 2 fo tema te——>+ (CHAINING 
¢-----~---~---~------ +-----~ + | POINTER.) 
9990099909000 0000000000000) | 

CC OOCOCOCOCOCECCEECC CEC CECEC( { 

st te ee re ee ne oe ne too + V 

| SYNONYM FOR # 2 {| OOCQO00 [<-—+ 

f eadnaetes teeaneseeheshenienanenienenen aa woe fe me + 

[<---~- 12 BYTES -~-->|<-3-->| 


PAGE 15 


9/16/70 


00046600 
000467C0C 
0G04680C 
00046900 


00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 
00048000 
00048100 
00048200 
00048300 
00048400 


00048500 


00048600 
060648 700 


0C048900 
00049000 
00049100 
006049200 
00049 300 
00049400 
00049500 
00049600 
00049700 
00049800 
00049900 
00C5C000 
G00501006 
00050200 
00050300 
00050400 
00050500 
00050600 
00050700 
0005080C 
00050900 
00051000 


HEEEE EE EEE EEE EE EE EE EE EEE EEE EE ERE EE EEE EEE EE EEE EEE EEE EEE E+ EHH Hee tte ttee+e+ ONOC51100 


VLL 


DIRECT STGRAGE «.. WITH SYNONYMS, PAGE 16 
LOC OBJECT CODE ADDRI ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/16/70 
5 ZB KEEFE EE FEE EEE EEE EEE EEE EEE EE EE EE EEE EEE EE EEE EEE EEE Hee te ttt tte tete ete t+ettet+e++ C0051 300 
539 * 00051400 
540 * SINCE WE ARE GOING TO USE POINTERS TO LOCATE THE "CHAINS", 00051500 
541 * LET'S MAKE THE CHAINS SEPARATE. AND, SINCE WE ARE GOING TO 00C516G0 
542 * POINT TO SYNONYMS, WHY BOTHER PUTTING THEM IN THE MAIN 00051700 
543 * TABLE?? INSTEAD, LET*S RESERVE A TABLE TO "HASH*® INTO, AND 00051800 
544 % FILL IT ONLY WITH POINTERS. THEN, WE*LL USE A SEPARATE AREA 00051900 
545 % TO CONTAIN THE CHAINS OF DATA ITEMS. 00052000 
546 * 00052100 
547 * EACH. DATA ITEM HAS CHANGED SLIGHTLY NOW, IN THAT WE HAVE 00052200 
548 %* ADDED A 3-BYTE ADDRESS FIELD TO THE END OF THE STANDARD 00052300 
549 * DATA. | 00052400 
550 * 00052500 
551 * OUR TABLE WOULD LOGK LIKE THIS: 00052600 
552 % 00052700 
553 * "HASHTAB® "CHAINS?! 00052800 
554 * +t tana n $$ = = tt 00052900 
555 x J teen tan ----->1 200000) DATA ITEM [| 9 #--+------>+ G0053000 
556 * $--------+ $-----<+-------- ---+------ + 00053100 
557 * | OOGOCO0OI +----->{|400009] DATA ITEM {O0COOCOI 00053200 
558 $--~-~---+ | $---=-- + -----~-- == t= -+ 00053300 
559 % po teen tena =) -----> 1 860002] DATA ITEM {000000} 00053400 
560 * t--------+ $-—==--+-----~----- +------+ V 00053500 
561 * 1900000001 16COOOC! DATA ITEM |000C001<------+ 00053600 
562 * t—-----+- + | tant $= --- + (POINTS TO 00053700 
563 * 1oCCO0G00 | +-->] | THE START 00C53800 
564 * t--=-----+ Jo | tena ena ------------+ © OF THIS 00053900 
565 * yyvddd0ND) i ot J (€ FREE AREA) | LINE.) 00054000 
566 * COOCOCEOC boo | teeea--------~------------ + GOC54100 
567 * $—-~--+~-- + ptod 60054200 
568 > eS ee | 00054300 
569 * +—--------+ t 000544C0 
570 * [COUCO000 fo PDDDDDDDDDDDIDDDDIIDIDIDIDDD 00054500 
571 * +--------+ PC EC EC CECOCECECEECOOCCECECEE 00054600 
572 * yovvvdddDD Jo te -------------------- + 00054700 
573 % COCOOCEEE 00054800 
574 * $--~-----+ | eK NOTE exe THE FIELDS SHOWN IN 000549C0 
575 x } THE FIRST COLUMN OF 'CHAINS* ABOVE ARE 00055000 
576 * ™NXAVAIL! } THE SIX BYTE MAN NUMBERS USED FOR 90055100 
577 *(ADDR. +----- ---+ | SEARCH ARGUMENTS. 00055200 
578 *OF 1ST J +----+------->+ 0005536C 
579 *UNUSED ++------- + 00055400 
580 *BYTE IN 'CHAINS*.) 00055500 
SRL * 90055600 
QQ KEE EHE EEE EEE EEE EEEEE EE EEE EEE EEE EE EEE EEE EEE EEE EEE Eee eet tee e tet te tet ett 00055700 


CHART SYNONYMS 
PAGE 001 OF OO1 


HASHIT 


% 
% 
tt 2 <t 
eet WwW 
HEO UY © 
+ kFcOWY 
the Iw 
% Oak LW 
Huw a 
Nara 
IZeE”"OQ 
+O OWMa 
e*OZT 
% 
% 
3 36 36 HO Ht 
aN 
1 
( 
| 
{ 
{ 
' 
( 
3t St Ht 
3 + 
4 + 
+¢ + 
% Ba 
% * 
+ Fr 
% ao 
%* << + 
+ fe 
sa WY % 
<{ t 
% % 
* % 
% Sia 
+ # 
% 3 4 


ce 
uu 


YH 4 
¢ + 
+ MN it 
% 4 
3 WW 4 
#O + 
% © + 
%O * 
% ° 
%* cO 
tz % 
Ov ag 
* D> * 
se + 
a WwW oa 
% ox xy 
% de 4 

Aw 


3 36 HE FE ot 4 
% + 
+ = * 
3% ULitu + 
He + 
%* moO + 
%* qt # 
% WR % 
% x 3 
Me fe LS S 
ce xr % 
O Lhe + 
tou + 
He te 
Ke Get * 
He ue aia 
Bote Te 5 HEE Ek ae 4 Lu 
AN % %* a 
| + Mm > 
| * ag *« Oo 
| <<—— of 
% 3 3 
| 
O41 
a 
* 
ee 
% + 
e e 
% <t 4 WY 
e Ce e Lh e 
* W + > % 
wz ° e 
ULI sony Fe eee > I 
TT <f e e 
N er % N 
aa) WO bg oO 
HWY ars 
© pa e 
tt +” 
o @ 
st a 
Cc 
QO 
—! 


115 


3 Ht 4 
% % 
a %* 
+ * 
% WwW 4 
*#O 4 
+O * 
%O % 
% « 
eo et 
(AZ Sg 
‘ed OF % 
> * 
3 pe * 
3 LW % 
% oO * 
3 tt 4 
A 
| 
' 
1 
| 
| 
~Y I 
uw | 
> 
% + 
* ¢ HZ tt 
% et wm = 
elu e + wv os 
% oY % ws? + 
r- * O % Rw 
CO *z % Zee + 
WY ° Se pete EH 
bent Heme OH UMUC CCH: 
T uw ® * aru 
aed aoe 4% N x + 
pent e OQ ruw 
x” 4 * w2zt * 
emt % «o fF 4 
3% 4 * O * 
os te kt 
+ % 
AN 
t ! 
( ( 
' 
v 
! { 
| { 
| Y 
1 % 
| [  ) 
| x 
t e ® 
! * UW + 
{ om) e re e 
{ =z * & ay 
| e 7 ° 
+ % ele * 
° Cj<at e 
a T % 
(am) [any Gp) ° 
a * 
elt} e 
+ 4 
e ¢ 
% 3¢ 3e 4 
WY % WN 
iL! | %* mom 
>I % a 4 
+———> + ae 
$e 4 tt 


SLL 


CI S2 


OC034C 
000352 
JC9356 
900358 
60935C 
o99362 
DONS 6 
5003.68 
0053 6F 


CO041 5 
SO00421 
30642 D 
399436 


DIRECT STORAGE 


ABJECT CODE 


47FO 
1621 
F275 
4F10 
1800 
5990 
B9CO 
4LEC 
LAFO 
581F 
1211 
47TTC 
GLEF 
4TFC 
N505 
4780 
4LEC 
D202 
581C 
1211 
4770 
D202 
58FO 
181F 
D208 
D702 
41FF 
5GFO 
1BFF 
O7FE 
41F0 
O7FE 


JOO 


C42E 


C286A 1CCU 


C2eA 


52918 4,810 5073, 
990003686 


NICOGGOCVICCOO 


Cc) > 


@ ©) 


mo 


ADDR1 


G 


49404 94040404040 


FGF CRORCFUFL 
FAFOFOFOFCFIE6F1 
FOF OFOFOFOFOC4F3 
F4FOROPCFOFIC4FS 


c09206 
2003 0D4¢ 


ADDR2 


C0434 


UC33E 
cocel 
GeO35C 
SCC 
00389 
COCOC 
OCCoCc 
C0388 


OG33€ 
0038D 
00328C 


GG000 
0900C 
OOCOF 
CO3RC 


COCO4 


WITH SYNONYMS. 


STMT 


567 
598 
599 
600 
601 
6C2 
603 
604 
605 
6C6 
607 
6 08 
6C9 
619 
611 
612 
613 
614 
615 
616 
617 
618 
619 
62C 
621 
622 
623 
624 
625 
626 
627 
628 


630 
631 
632 
632 
624 
635 
636 
637 
638 
639 
64C 
641 


642 


SOURCE STATEMENT 


HASHIT 


i GOP 


ENTER 


DUPE 


WORD 
NXAVATL 
HASHTAB 
CHAINS 
CHAINPTR 
CHAINDLA 
SEARCH2 
ITEMLA 
ITEM2ZA 
ITEM3BA 


F200000 


B 

LR 
PACK 
CVE 
SR 

D 
SUL 


CHAINTST 
R29R1 
DOUBLE»MANNUMBR 
Rl ,DOUBLE 
RO,kKO 
RC,F200000 
ROy2 
R15,HASHTAB 
R15,RO 
R1L,O(K15) 
Ri,ygkl 

LOCP 
RL5S,l(RL5) 
ENTER 


FO8APRTO 
BRANCH AROUND THE IN-LINE CUDE. 
CONVERT THE *KEY* TO AN ADDRESS 


USING MODULO DIVISION BY 
200,000. 


CHECK FOR THE EXISTENCE OF A CHAIN. 


KK *K Xx 


REFERRED TO IN QUESTIUN 3. 


MANNUM ER sMANNUMBR-DATAITEM(R2) SEARCH FOR THE ITEM. 


DUPE 

R15,CHAINPTR 
WOKD+1(32) ,CHAINPTR 
Ri,»WORD 

R1,R1 

LOOP 
C(3sR15)_,NXAVAIL 41 
R15 yNXAVAIL 

R1,R15 


DATAITEMCITEMLEN)D,C{(R2) 
CHAINPTRO3)_9CHAINPTR DICTIONARY, 


R15,CHAINDLN(RL5) 
RISs+NXAVAIL 
R15,R15 

R14 

R154 

R14 


Fro? 

AC CHAINS) 
1GFfO! 

19999GF "08 

75c" 3 
2925C00C' § 
DATAITEM#ITEMLEN 
ITEMLEN+3 
cl4coocls 
C*800CC1W12345" 
C'6C6006D32568" 
C'400SC1D98765' 


F'20C000! 


* REFERRED TO BY QUESTION 2. 
* * & DITTO. # * * * FO * OX 


3 


x x 
p> 4 le 


ava 
3t 
% 


INSERT CHAIN POINTER. 


INSERT THE DATA ITEM IN THE 

AND INDICATE END OF 
CHAIN. POINT "NXAVAIL® TC NEXT FREE 
BYTE IN THE TABLE. 

RETURN CODE = G_, NORNAL RETURN. 


DUPLICATE, SET ERRGR RETURN CODE. 


GEESEEEEEESESEEEEESEEEEEEEEEESEEEEEEEE 
& TABLES, CONSTANTS AND TEST DATA 6& 
& USED BY THE DIRECT STORAGE & 
& ROUTINES (SYNONYM CHAINING & 
& VARTETY). THE TOP 199,990 WORDS & 
& OF THE "HASHING® TABLE ARE FAKE, & 
& BECAUSE IT FALL QFF THE END OF & 
& MY MACHINE AY 512K, AND, BESIDES & 
& THAT, YOUTLD GET A HERNIA PACKINGE 
& AROUND A 512K STORAGE DUMP.... & 
EEEEEEEEEEEEESESEE EEEEEESE GEGEEEEEEESE 
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OCO57200 
00057300 
00057400 
00057500 
00057609 
00057700 
COO578C0 
90057909 
O0058&CU0 
COO581C90 
OCO58200 
00058300 
0058400 
00958500 
00058600 
00058700 
COC588CC 
OGC58900 
000590C9 
00059100 
C0059200 
00059300 
00059400 
000595006 
900596C6C 
90059700 
C00598006 
COU599C00 
O00600CC 
QGQ60106 
CO0E0 200 
00060 3U0 


0G060500 
VOO6G6OC 
0G060 700 
OOCEDBOC 
SCG60900 
COQ61900C 
OCD61 LOU 
VODVE1L20U 
CU0E1L S00 
GO0C614C0S 
OCG61590 | 
00061600 


OSOELICO 


DIRECT STORAGE ... WITH SYNONYMS. PAGE ie) 


LOC OBJECT CODE ADDR1 ADDR2 STMT  SQURCE STATEMENT FOBAPRTO 9/16/10 
644 * G66 SEEEEGE EEEESEE EEE BELLE EEE EEE EEE EEE SEE EEEEEEE EEEEEEEESEELEEEEBESEERE GOU61LEOL 

645 %* THIS CODE TESTS THE CHAINING EXAMPLE. IT ADDS THREE DATA OUU62L06 

646 * ITEMS, ONE OF WHICH IS A SYNONYM, AND IT RETRIEVES UNE OF CC06210¢ 

647 * THE ITEMS JUST AODED. 06062260 

648 *EEEEEEEE EEEEESEEEE EEE LAE EEE EERE ELE GEG EEEREEEGES SEEEE EEEEESE BEGELERESEE 20062320 

660434 649 CHAINTST DS OH 0906240C 
000434 4110 C463 CO4C9 656 LA RlyITEMLA EIRST ITEM TO BE ADDED. ocoe25o0 
000438 45EC C3GA 00310 o51 BAL R14,HASHIT COG62460C 
99543C 47FFE C43A C0440 652 B £+4(K15) OC0627CC 
C6440 4750 C440 00446 653 B *+E 56C62 800 
900444 9007 654 DC H' 7! DUMP If INSERTION FAILS. COC62906 
090446 4110 C40F 00415 655 LA RLyITEM2A SECOND ITEM TO SE ADDED. UL063090 
90044A 45FC C30A 0031¢ 656 BAL  R14,HASHIT arn 
J09446E 47FF C44C C0452 657 B *+4(R15) 00063206 
090452 47FO C452 50458 658 B +6 00063390 
900456 2008 659 DC H' gt DUMP LF INSERTION FAILS. 00063460 
CO6458 4119 C418 C0421 660 LA RL, ITEM3A THIRO ITEM TO BE ADDED (SYNONYM). CC06350C 
0C0045C 45E0 C30A 00319 661 BAL R14,HASHIT 06063600 
209460 47FF C45E SU464 662 B #44(R15) CC6063TCO 
C00464 47F9 C464 00464 663 B *+6 C 0063800 
C00468 3209 664 DC H®oF DUMP IF INSERTION FIACS. 0CC63900 
900468 4110 C3FD C0403 665 LA R1l,SEARCH2 ITEM TO BE LOCATED OCO64u00 
SO0C45F 45EQ C30A CO310 666 BAL  R14,HASHIT CO00641C6 
999472 47TEF C47C 00476 667 B *+4(R15) 06064200 
=l0l2476 GOCA 668 DC ig ore DUMP [TF NOT FOUND CCU6439C 
SO00478 O70C 649 NOPR 0 C006440C 
OC947TA JECLS 670 DC nhac TAKc A DUMP JUST TO StE WHAT THE CQO06459C 
671 x TABLE LOOKS LIKE IN STORAGE... 06064600 

673 UI RO IO CIC IG IOI ia dai Ck a a IO gC aa koi vedo a kokakdaktot dak gcciek CCOG4GS OC 

674 * | 0006490C 

675 ***NOTE: THE COMMENTS FIELUS OF THE INSTRUCTIONS REFERRED TO IN THESE  0C065C0UG 

676 * GUESTIONS HAVE ASTERISKS ( * JS IN THEM. GoveE5160 

677 * 00065200 

678 * ANSWER THE FOLLOWING QUESTIONS CONCERNING THIS CURE AND THE UC 465300 

679 * TARLE THAT IT USES (TABLE ON THE PRECEEDING PAGE}. OC0E540C 

680 * 66065500 

681 * 1. WHAT HAPPENS IF I REPLACE THE " MVC  WORD+1(3),CHAINPTR 00065600 

682 * & L 21,WORD ™ INSTRUCTIONS WITH ™ £ ®&1,CHAINPTR=-1 " ? 00065700 

683 * | CO065 x00 

684 * 2. WHAT 1S THE REASON FUR ADDING 1 TO REGISTER 15 BEFURE 06465900 

685 * BRANCHING TG "ENTER" 2? * * SEE NOTE ON THE INSTRUCTION.  G0066090 

686 * 0606610C 

6 RT AERO oa oak ack a Rk Ia I EK a RR CE air a aka aka aC a aR a ak aK kc akc ae aie ae ale a ote akc ae ak ake ae oe abe aie ake aie ok akc ate ake ak sak ae ak ake ek OOOb62C00 


SLL 


DIRECT STORAGE ... 


LOC 


OBJECT CODE ADDR1L ADDR2 STMT 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 


WITH SYNONYMS. 


SOURCE STATEMENT FOB APRTU 


HK AK CK eC AE A A OIE 2 OK OC RO Ee OK OK RE A AS OC OC I OE I OK AE AS A RE EO RE OK OK OK OK IE AE EE BE AE OK AK FE OK 3 


* ANSWER THESE QUESTIONS ABQUT THE DUMP ON THE NEXT PAGE. 

** Ll. HOW MANY "CHAINS"™ ARE THERE CURKENTLY IN "HASHTAB" ? 

x 

* 2. HOW MANY DATA ITEMS ARE THERE IN EACH "CHAIN" ? 

SHREK X WHEN YOU FINISH THESE, OISPLAY THE WHITE SICDE OF YOUR 

* "WANSWER CUE". 

ok 

BEIGE OI CII IO IOI GOI a I IK ROR A GK Ao III a a XE ao aI Ig akc afc ai afk aft aI aI aig ae aka a akc fe ake aie akc ole 
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9006640C 
9096650C 
CO0E6600 
CCO066 100 
OCGE65EOU 
9006690G 
0C06 7000 
C0067100 
COV67T2ZC0 
CO0673C°0 
00067400 
OCG6 7500 


6LL 


FP. 


REGS 0-7 


REGS. BeTS 


€09000 
799020 
O0004C 
009060 


O5AACO 
O5AAE0 
O5ABCO0 
CSAB20 
O5AB4C 
O5AB60 
O5AB80 
C5ABA0 
O5ABCO 
O5ABE0 
O5AC 900 
O5AC20 
O5AC40 
O5AC60 
O5AC80 
OSACAO 
O5ACC9O 
OSACEO 
O5AD00 
C5AD20 
O5SAD40 
C5AD60 
U5AD80 
5 ADA0 
C5ADCO 
O5ADEO 
Z5AE00 
O5AE20 
C5AE40 
O5AE6C 
O5AE89 
O5AEA9 
Q5AECO 
OS5SAEEO 
O5AFO00 
O5AF20 
O5AF40 
O5AF60 
O5SAF8O 
O5AFAD 
O5AFCO 
OSAFEO 
C5B000 
05B020 
O5B040 
053060 
C5B080 
O5BCAC 
eoeUGG 
C530E0 


REGS. 


OC .000G0G GGO09OGC0G 


CCOUOC004 COC5AE96 OOC5AEC3 GoCOOCOND 
COG1IDCAOD 9G000000 O0001DCC8 00000000 


0000060C 
FFB50003 
00001360 
0004060C 


9CECDCGC 
FOCOC022 
59FCC122 
4LLOCOAA 
C12645E0 
45ECCO5A 
F4F2C4F1 
FSF4F1F6 
40404046 
40404040 
C2921BFF 
1A1C4111 
000647F OC 
40404046 
40404040 
40404040 
40404046 
FLFIFIF1 
40404040 
C4FLF2F3 
49464040 
4TFFC29E 
45ECC13C 
JO06FI1F1 
C4F4F4F4 
C42A5900 
106C2600 
C3875 8FG 
41FOG064 
ICODSOGG 
F2F3F4F5 
FOF 50000 
4C404CF4 
F 8F4F OFC 
47F 60440 
4TFFC45E 
182148F2 
O6FCLEFF 
FFEOCO38 
06360018 
GO1LSFFFB 
FFF90042 
003C0U14 
OO20FFF3 
FFECOO41 
OC3ZA00ZA 
0024FFE6 
FFET0035 
OC3FUC1T 
00644150 


OvurvrGo000 
6F007588 
O&C000CO6 
O0007BC8 


JV5CO041F0 
4 7FOC 024 
4740C 02C 
D5051000 
CO2847FF 
D505C 132 
FIFLFOF6 
F7F3C4F0 
40404040 
40404040 
1821F275 
C194D505 
C1400000 
40404040 
40404046 
40404040 
40404640 
E6FiF1F1 
40404040 
F4F54040 
404049046 
47FOC2ZA4 
47FFC2C2 
FIFiF1lFl 
F4F4F1F1 
JGO241F0 
478CC37A 
C386181F 
O7TFEQOOC 
aogc0G00C 
G5AE96F6 
00404040 
FOFOFCFO 
FOFOFILC4S 
COC74110 
41F0C 464 
OOGOG6FC 
LAAF481A 
GOL6FFFB 
FFFCOO3C 
00290028 
QO23FFF2 
FFF6004E 
Ou3AU002A 
OG23FFE? 
FFDDO035 
OO3FOO1B 
VO2ZLFFFO 
FFEFCO34 
00604125 


00000000 
FFB50001 
00001358 
06040000 


C73E50FD 
O7TFE47FO 
D20BFOCC 
C1324780 
CC8447F0 
10004780 
F2F2F5F6 
F2F8F2F5 
40404040 
0005ABBB 
C28A1000 
1060C 186 
cc000014 
40404040 
40404040 
40404040 
40404040 
F1F14040 
40404040 
40404040 
40400504 
00034110 
47FOC2C 8 
E6FIF1F1 
FLIFIFIFL 
C38A1AFO 
41FC100C 
D2CB1000 
0005AE96 
OCC5AE87 
FOFOFOFO 
40404040 
FLIF8FOFO 
FOF 8F 7F6 
C4CF45E0 
00094110 
4CFOCT94 
000G00CB 
O03D0C1E 
OOLEFFF6 
FFFCOO44 
00260020 
O025FFE9 
FFDD0049 
00400018 
OO02BFFDB 
FFF1003B 
002A00C2 
OOOCFFCC 
C6728850 


00.-12C0C2 02010970 


00000000 
4FO5AF3C 
00005920 
00007588 


C008 50DF 
CO7T841F0 
100041F0 
C05904110 
CO8AI000 
C1380C02 
FIFTE6F1 
FIFITFLFS 
40404040 
FTFTFLE5 
4FLOC28A 
47700172 
40404040 
40404040 
40404040 
40404040 
404040 
40404040 
40404040 
40404040 
00400000 
C2E845E0 
00054110 
FIFLF1F2 
47FOC42E 
581F 0000 
92920383 
2000D 762 
OOO 5AEA5 
00000000 
F6C4F 3F 2 
40404040 
FOFOFLE6 
F5000000 
C30A47FF 
C3FD45E0 
41AFC4AA 
41FO0C612 
FFF60903A 
00430925 
CO2TFFEC 
FFE 70049 
OG3D0015 
OOLAFFEE 
FFF 20035 
00340028 
OCOBFFDB 
FFD90038 
GCO38COL6 
00010505 


FF.O400C1 5000AC16 


00.000000 0001D730 


OOCLAB98 ODOOIBOE8, 00010140 0001BA48 
6FO5AAC6 0005B204 8FO5AF32 00000004 


GIO5AATO 
COOOFFOO 
O2CO3BA4 


00000000 


00041 8DF 
COAAD505 
FOOC50OFO 
100C5910 
4110C0C2 
F2FEF4F8 
F4FOF4F7 
F4F3E6F1 
40404040 
F4F3E6F1 
1BOO5DC0 
440FC18C 
4040D20B 
40404040 
40404040 
40404040 
40404040 
40404040 
40404040 
40404040 
0g0aCcCA00 
C13C47FF 
C30045E0 
F3F4F5F6 
1821F275 
12114770 
10€CC5810 
100C1LO0C 
O00CTOCG00 
00000000 
F5F6F 800 
40404040 
FIF2F3F4 
00030040 
C44C47F0 
C30A47FF 
48F 10002 
00440020 
OOOCFFF1 
FRESCOSE 
OO41001A 
COLOFFEE 
FFF50035 
00520020 
OOODFFDF 
FFEOOC38 
00340016 
OO21FFF? 
FFFBOO3D 
20006000 


00000000 
00CO00000 
0000996C 
00012D10 


D703D008 
FO001000 
Ci221BFF 
C12241740 
45E0C028 
F3F3C4F1 
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ACI RI AC CII I CIC ICC AICI III I IO iota ar ok ai tot ak ak tek aa ak a a 
ANSWERS TO THE DIRECT STORAGE ROUTINE (WITH SYNONYMS). 


L. A "SPECIFICATION" EXCEPTION WOULD OCCUR BECAUSE OF A 
BOUNDARY ALEGNMENT VIOLATION OF THE LGAD INSTRUCTION. 


2- TO MAKE THE SHASHTAB® ENTRY APPEAR THE SAME AS A 3-BYTE 
CHAIN POINTER TO THE "ENTER* ROUTINE. 
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FER RR A CR A oR RAR KOK ok AR a a OR a oe ok ke a a a ok a ak ok ok aa ok a ok 
ANSWERS TO THE DUMP FCR THE DIRECT STORAGE ROUTINE. 
1. THERE ARE CURRENTLY 2 CHAINS. 


2e THERE ARE 2 [TEMS IN THE FIRST CHAIN, AND 1 IN THE SECOND. 
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* DIMENSIONED DIRECT STORAGE. (ARRAYS) * 
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THIS ROUTINE EXTRACTS THE TEMPERATURE FROM AN TABLE THAT 
CONTAINS THE NATIONAL HIGH, AVERAGE, AND LOW TEMPERATURES FOR 
ANY DAY OF LAST YEAR. 


THE TEMPERATURES ARE BINARY HALF~-WORD QUANTITIES IN A THREE- 
DIMENSTONAL ARRAY, WHICH MAY BE LOGICALLY ILLUSTRATED AS: 


t~--—HIGH 
4+—=— 1ST m~+--- AVERAGE 
| +—---—LOW 
+~-2ND.- 
#-=-3RD.. 
+—---— JAN. ~~~ +~--4TH.. 
j 4—-—5 TH. 
t-—--FEBeoe + coc 
| + eee 
t+-~--MAR ce + eee 
TEMPER TR~~~—+-—--APReee + «ee t-—-—-HIGH 
t~-—--MAVe.ee +-31ST—-~t+-—-- AVERAGE 
team IU Ns ese +-~-L OW 
+ eee 
+ eee 
+ eee 
+ eeoc0e +-~1ST..e 
4t—-—--—-DEC mem m te 22ND. 
+--3RD... 
+ eee 
+ eee 
+—31ST... 


IN CORE STORAGE, THIS WOULD APPEAR AS: 


| HIGH | AVG. | LOW | HIGH | AVG. [| LOW [.....f AVG. | LOW | 
+—----= +------ oe + —— +------ t— 6 er tonne $----- + 
<----- DAY 1 -----~- > <---~ DAY 2 ------- > <=..e-- DAY 31 ---> 
fna------ J ANU AR Y ~------------------ eos eee --DECEMBER=—> 
{-~-~----~---- ‘'TEMPERTR # ==--=---- eee eee ee etm maa > 
+0 #12X31X3X2 


ANY ENTRY IN THE TABLE IS REFERENCED AS FOLLOWS3 
TEMPERATURE(CMONTH,DAY, TYPE) WHERE TYPE = HIGH, AVERAGE, OR LOW 
ACTUALLY, THESE VALUES ARE REPRESENTED NUMERICALLY, SO THAT 
THE LCW TEMPERATURE FOR SEPTEMBER 29TH [S TEMPERATURE 9,29, 3) 
AND IS LOCATED BY THE FOLLOWING FORMULA: 


ADDRESS = "TEMPERTR® + 186(MONTH-1L) + 6(DAY-1) + 2¢0TYPE-1) 
iy 


edeiatieecengeit ear eeeie eee or eer eee 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR/0 9/16/70 
TSO. Kase aS S23 S255 = ——= 3S 5 55 555522 25> 55 == 5 = SS SS SS Sa SS SS SS SS SS a ee SS Se SS SK = OOO: (6406 

7190 % 00076500 

791 * NOTICE THE PARAMETERS BELOW FOR THE AVERAGE TEMPERATURE FOR 00076600 

192% JAN. 24TH. THEY ARE CONTAINED IN A LIST OF THREE HALFWORDS OCO76700 

C23: REPRESENTING MONTH, DAY, AND TEMPERATURE TYPE, RESPECTIVELY. 00076800 

794 * 00076900 

199 S25 S323 335355 53255555 SSS Ses S225 SS SSS 45 S255 S55 SSS S552 5S SSS S52 555== “O00TTOO0 

CO047C 4110 C78BE 00794 797 LA Rly=H' 1424,2' AVERAGE TEMPERATURE FOR JAN. 24TH. 00077200 
000480 1821 199 ARRAY3D LR R2,9R1 00077400 
000482 48F2 O00C JO000 80C LH R15,0(R2) GET MONTH NUMBER 00077500 
000486 O6FO 801 BCTR R150 OGO77600 
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817 PRINT OFF <-~ I DID THIS JUST TO MAKE YOU LOOK IN THE DUMP 00079200 

830 * TO FIND YOUR ANSWERS. 00080500 

831 * ( I HAVEN'T BEEN A PRACTICING FINK 00080600 

832 * MOST OF MY LIFE FOR NOTHING....-) O00807CO 

833 * 000808 UC 

834 **NOTE ** ONLY THE FIRST TWO MONTHSS DATA TS ACTUALLY IN THE PROGRAM, CQOQO8C90G 

835 **eeKRKRRKTHE REST OF THE TABLE HAS BEEN LEFT OUT TO CONSERVE SPACE. 90081000 

BB THR FE ee a EK i i RK EK KE CE AE SC CE I EAE OC OK I 2K OK A ARC CE OK IE RE OK EE A AK 2 00081200 
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B39 os USING THE CQDE ABOVE AND THE DUMP THAT FOLLOWS, ANSWER THESE. G0081400 
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841 * Le. WHAT WOULD THE PARAMETERS LOOK LIKE IF YOU WERE TO TRY TO OO0U81600 

B42 * FIND THE HIGH TEMPERATURE FOR AUGUST 23RD ?? COQ817C0 

843 * | 06081800 

844 * 2 USING THE ADDRESS OF "TEMPERTR* FROM THE DUMP, AT WHAT 000819C0 

845 * STORAGE ADDRESS WGULD YOU FIND THAT HIGH TEMPERATURE FOR 90082000 

846 * AUGUST 23RD ?? 0C082100 
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848 * 3. WHAT WAS THE AVERAGE TEMPERATURE FOR FEBRUARY 12TH 277? 000823900 
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85G *eekRKRKX WHEN YOU HAVE ANSWERED THESE, DISPLAY THE GREEN SIOE OF THE 00082500. 
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852 CSO CR IO IG IOC ii gio ok icici oki dak tok 00082700 
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DIMENSIONED STORAGE. 


LOC OBJECT CGDE ADDR1 ADDR2 = STMT 
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ANSWERS FOR THE THREE-DIMENSITONAL ARRAY PROCESSING ROUTINE. 


1. THE PARAMETERS FGR THE HIGH FOR AUG. 23 WQULD LOOK LIKE: 
DC H*8,23,1! 


2. THAT WOULD BE FOUND AT X'OSBI70A' OR 'TEMPERTR'+X#059A'. 


3. THE AVERAVE TEMPERATURE FOR FEB. 12 WAS X*O002ZB* OR 43 
DEGREES. 


be Sle gle le le oe she le he ole he she He Se ole ote ale ote oe oe ee ke oe te he ale He he He ae ie Se ae he Se ae oe oe ae ote ete se he he Se se he ae he he he he he ee le ee ok oe He! 
KARAS AE AK AK NK BK OK AS AE OK AS AE OIC IK OE AIS OK KE KK AK IE IK AK OK 2K Ne i oe OK IK AK OK OIC AK OK AE 2c OC AE KE EK IE AK OK AE OE IK OK OE A AK AK AE OK OK KOE OK 


SInbE 


® 


BO I I ak ie aca ake ak ake ak ae fe ie ate a ok oa a ak akc ak ak fc ae akc a a a ak ac ok fee ak ak Xe ate ate ofc ak a ok ak ac ak ak fe ok ai oak ak ok kek teak 609083000 


00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
00083800 
00083900 
00084C00 
00084100 
*** Q0084200 


Arcakerm fo @.?. 


Epc DBASE Re 
Aber, 0ie 
oA STO 


BoA 


BINARY SEARCH ROUTINES. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
869 
870 
871 


872 


874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
8 86 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
960 
9OL 
902 
993 
G04 
905 
906 
907 
908 
9c9 
910 
21d 
ie 
913 
G14 
915 
916 
917 


a a a: a a a a a a a a a ec 2 


eH HH H 


SOURCE STATEMENT 


FO8APRTO 
Terr TET TTT TTT TTT TT Woe 2, 
* BINARY SEARCHES. * 


MEARE ACK OK a A KK OK a OK OK OK 


KEEREEE EE ER EE EEE FETE EEE FEE EE EEE EEE EEE EEE EEE EEE EE EE EEE EEE EE EEE EEE EE EEE ET 


% 


% 
Ww 


a ee ee es 


LET US LOOK AT ANOTHER FAST SEARCHING TECHNIQUE WHICH REDUCES 
THE NECESSARY NUMBER OF COMPARISONS TO FIND A DATA ITEM. THIS 
PARTICULAR SEARCHING TECHNIQUE, CALLED "BINARY SEARCH® 
RELIES UPON THE DATA ITEMS IN THE TABLE BEING IN ASCENDENG OR 
DESCENDING ORDER BY THEIR ARGUMENTS (KEYS). | 


THE PRINCIPLE USED IS THIS: 


IN AN ORDERED (SORTED) TABLE, WHEN A COMPARISON OF SEARCH 
ARGUMENT TQ TABLE ARGUMENT IS MADE, THE DIRECTION OF SEARCH 
FOR THE NEXT COMPARISON IS ESTABLISHED BY THE RESULT OF THE 
COMPARISON. THAT IS TO SAY THAT IF I COMPARE TWO ITEMS AND 
FIND THAT THE SEARCH ARGUMENT IS LOWER THAN THE TABLE 
ARGUMENT, THEN THE ITEM THAT IT*M SEARCHING FOR CIF IT EXISTS) 


EXISTS AT A LOWER ADDRESS IN THE TABLE THAN WHERE I AM NOW 
LOOKING. VISUALLY, IT LOOKS LIKE THIS: 

‘SORTED? (ASCENDING TABLE) 
A (COMPARE IS +———-=--— $—~----~--—--~+---- + 
{ HIGH, ITEM 'pt+----— >|]LOUWEST | i 
] MUST BE | SSeS Sc ic aaa a aaa B 
1 LOWER IN "Bt +---->+----— >] LOW { | 
| THE TABLE.) | | t——----- + $—~ -—--—~—-- - -- + + 
| | tEt+----- >{IMEANER | | 
+ a 1 4t—-—- $e we eee ee + 
START HERE ----------- >+--—--------- >{MEANEST] i 
+ AY] t-——-- » sieatheatatencnetieeentmnestetenneeendaeen + 
| f tpty--—-—- >| MEANER f { 
! €COMPARE IS i ] +——---~— ton wan + 
{ LOW, ITEM © C §4+—---——>+----=>( HIGH | { 
{ MUST BE | $a en Ha et 
| HIGHER IN. 'Gl+—----- > {HIGHEST ] | { 
V THE TABLE.) ; +------- $—— + +--+ + 


"SORTEDND® (TOP OF TABLE). 


THE LETTERS IN THE DIAGRAM MAY BE USED TO FOLLOW THE LOGIC 
OF THE SEARCH. WHEN SEARCHING, WE COMPARE FIRST AT "At, IF 
THE SEARCH ARGUMENT IS LOWER THAN THE TABLE ARGUMENT, THEN 


THE NEXT COMPARE IS AT *B*3 IF THE SEARCH ARGUMENT WAS 


HIGHER, THEN THE SECOND COMPARE WOULD HAVE BEEN AT ‘Cf. ETC. 


EEEEEEEEEEEEE EEE EEE EEEEE EE EEL EEEEE EEE EERE EEE EEE EEE EEE EEE EEE EEE EEE EE HET 
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00084400 
00084500 
00084600 

00084700 


00084900 
00085000 
00085100 
00085200 
06085300 


-00085400 


00085500 
00085600 
00085700 
00085800 
600085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 
00086960 
00087000 
06087100 
00087200 
90087300 
00087400 
00087500 
00087600 
000877GO 
06087800 
00087900 
00088000 
00088100 
90688 200 
06088360 
0CC88400 


06088500 


00088600 
00088700 
00088800 
00088900 
00089000 
00089106 
00089200 


BINARY BIS EARCH 
HK KK AD KK KK KK KK HA AD KK KKK KK 
KH KK A] KKK KK KK KK * x * x 
* BEGIN BINARY * *HOUSEKEEPING — * * REDUCE * 
* SEARCH ¥ see >* INITIALIZE * ——>+—-———> *REMAINING TABLE 
* * * REGISTERS. * A 2 BY HALF. * 
oe KK fe ok KK KK OK KK KK x * * * 
ME OK RE KOK 2K ie oi oe ee a ee he He KE OK KK KK OK 
KK KK 
* * 
* AZ x 
eee SROH <TAB 
V 
FOUND o*, LCR 
B3 *, HEB 4k KK KKK 
KKK BD KK OK XK ok * *, x MAKE * 
* FOUND, RETURN * YES .*IS THIS THE*. NO_> * INCREMENT * 
* CODE = 0. Rl Sega KX. ITEM ? 0 *® ——--+---—>* NEGATIVE T9 * 
* * x, . * * SEARCH * 
KR KK KK KE OK *, eon * BACKWARDS * 
*,. 4x OK KK KK OK KK 
* NO_< 
Qn tr nnn ne t 
LOW 


62L 


+ 


V 
HK AK C3 RK 
* 


* ADD INCREMENT * 
* TO CURRENT x 
*TABLE ADDRESS. * 
wh * 

x 


* 
Sot Kk tok ak kc ok kok ok akc ak 


V 
.*, 
D3 x, 
aK aK ox x, 
* * NG .* LOCPED 5 x, 
* AB *<€--- *. TIMES YET ? .* 
* * *, i 
KK x, ie 
x, ok 
* YES 
NOE NT RY | 
KKAKEZ ARR KK KK 
%K NO MATCH, * 
* een CODE = = 
RO OK IHR Ka AOR HOR EK 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRT0O 9/16/70 
931 DROP Rl 00090600 
009000 932 USING DATAITEM,R2 00090700 
000618 47FC C64C 00652 933 B BYBINARY 00090800 
COO6IC 935 BINARY EQU * 00091000 
OOC61IC 1861 936 ; LR R6,R1 | 00091100 
OOO61E 4140 CCO4 00004 937 LA R494 LOOP COUNT. 00091200 
000622 4150 C60 00069 938 LA R596 INCREMENT 00091300 
000626 4125 CoT2 C0678 939 LA R2,SORTED-12(R5) INITEAL COMPARISON (MID-POINT). 0009140C 
CO062A 8850 OCOL 00001 940 BISEARCH SRL R591 HALF LENGTH OF INCREMENT. 00091500 
90062E D505 2900 6G00 00000 00000 941 CLC MANNUMBR »MANNUMBR=~DATAITEM(R6) IS THIS THE ITEM ? 00091600 
000634 4780 C646 0064C 942 - BE FQUND YES, RETURN. O0C0917CO 
000638 4740 C638 O063E 943 BL LOW NO» SEARCH BACKWARDS IN TABLE. G0091800 
0C063C 1355 944 LCR -LCR R5,R5 * * * * REFERRED TO IN QUESTION 4. 0009190C 
OQ063E 1A25 945 LOW AR R2_,R5 GENERATE NEXT COMPARE ADDRESS. 00092000 
090640 1055 946 LPR R5~eR5 00092100 
007642 4640 C624 CO62A 947 BCT R4,BISEARCH CONTINUE SEARCHING. 000922090 
000646 41F0O 0004 C0004 948 NOENTRY LA R1594 ENTRY NOT IN TABLE, ERROR RETURN. 00092300 
O0C64A O7FE 949 BR R14 00092400 
90064C 1812 950 FCUND LR Rl,k2 00092500 
OOO064E LBFF 951 SR Ri5—eR15 00092600 
00C650 OTFE 952 BR R14 | OCO927C0 
oo 
2 954 *GEEESEEESEEEEEE EE EEEEEEEEEE EEEEEEEEEGEEEEEEEEEEEEEEEEEEEESEEEEEEEEEEEE OCO9Z2900 
95.5% THIS CODE TESTS THE BINARY SEARCH ROUTINE ON THE PRECEEDING CCO093000 
956 * PAGE. IT TRIES TO LOCATE TWO ITEMS, CNE CF WHICH IS IN THE 00093100 
eee aes TABLE, THE OTHER OF WHICH IS NOT IN THE TABLE. 0C0932C0 
958 *&GEEEEEE FEEEEEESEEESEEEEEEEEESEEESEEEEEEESES EE EE GCEECEEE EEE GEEEEEEEEEEEEEE GO093309 
909652 4110 C6?2 C0678 959 BYBINARY LA R1L,BINARYL ADDR. OF ARGUMENT TO LOCATE. 00093400 
C99656 45E0 Cél6& 0061C 960 BAL R14¢BINARY 900693500 
OCO65A 47FF C658 OO65E 961 B *+4(R15) 00093606 
OO065E 47F0 CE5E 00664 G62 B *+6 00093706 
000662 OCOC 963 DC H'1l2* DUMP IF NCT FOUND. OC09380C 
G00664 4110 C678 © OO67E 564 LA R1l,NOTINTAB ADDR OF ARGUMENT WHICH IS NOT IN THE 00093909 
900668 45EO C616 OOC61C 965 BAL R14,BINARY TABLE. 00094000 
COG66C 47FF C66A 00670 966 B *+4(R15) 90094106 
Q9967G 909D 967 DC sue Seo ay TAKE A OUMP [TF [T THINKS [IT FOUND IT. 0009420C 
CCO67T2 DTCC 968 NOPR 0 090094300 


OCO474 47FCG C732 09738 969 B BINARYOK 00094400 


LEL 


LOC 


CO0678& 
COO67E 
C00684 
000690 
SO069C 
COO06A8 
0006B4 
oco0éCe 
COCé6CC 
000608 
COO6E4 
OOC6FO 
COQI6FC 
090798 
S00714 
000729 
yOOT2C 
990 728 
000738 


BINARY SEARCH ROUTINES. 


NBJECT CODE 


F2F6F4F 8F3F3 

FOFOSFSFIF2F1 

FOFLFOF4F3F8E64C 
FOFOF8BF6FI(F3C446 
FLIF2FLF3F4F8E64C 
FIF4F6F 7F9F2C440 
F2F6OF4F8F3F3C440 
FO2F7F6F5FOFSE640 
F3F3F3F4F 8F2C04406 
F4FIF3F7F3F3E640 
FOFSFLIF7F8F3C440 
FSFOFSF4F5F2ZE640 
FOFTF8FOFLF2ZC440 
FVFTFLFOF3F2C440 
FEFCFOFZF2FCE640 
F8FEFOFOSF3F2C440 
FOF LFOF2F3F4C440 


ADDR1 ADDR2 


STMT 


971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 


SOURCE STATEMENT FO8APRT70 
BINARY] OC C*264833° &EEEEEESEEESESEESESEESEES ES EEEEESEEESS 
NOTINTAB DOC C*555141" & THIS IS THE TEST DATA AND THE é 
SORTED DC CL12"'040438W'l By & BINARY TABLE USED BY THE BINARY & 

DC CL12'098673D" f-1, & SEARCH ROUTINE ON THIS AND THE & 
DC CL12*121348W'3 ff & PREVIOUS PAGE... & 
DC CL12"*146792D"'Y 36 §S&EEEESEEEEESESESESSEEESESESESESEEEEESE 
DC CL12*264833p0I5S 4 
DC CL12*276599W'’ fo 
DC CL12*333482D'"'} 32 
OC CL12"413733w't & 
DC CL12*551783D"4 % 
DC CL12"*599452W*ly 
DC CL12*678912D"y 
DC CL12"*7715320h 
DC CL12'8C0320W'h 
DC CL12'880932D?4 
DC CL12'*910234D8tly 
SORTEDND EQU * 
BINARYOK DS OH 
Bee ACE He AC fe ae ake 28 aft ae ok ale akc ofr ae akc ake Ne ake ate ae ie ae ate ah ae fe afc ofc ate ae ae ae ake oe fe ate ah oe a ote ofc a ate abe ade oe oh ok a fk ke iC ak fe aE ae ake a oc ok ake ae ke ak ok 
x ANSWER THESE QUESTIONS ABOUT THE CODE AND BINARY TABLE 
x ON THE PRECEEDING PAGES. 
* 1. HOW MANY COMPARISONS MUST BE MADE TO LOCATE MAN # 098673 ? 
* 2. WHAT IS THE MAXIMUM NUMBER GF COMPARISONS THAT WOULD BE 
* MADE TQ FIND ANY ENTRY IN THE TABLE ?? 
x 3, WHAT WOULD BE THE ADDRESS IN REGISTEK 2 THE THIRD TIME 
x THAT WE EXECUTED "BISEARCH', [F WE WERE SEARCHING FOR 
* MAN NUMBER 800320 2? 
* 4. HUW MANY TIMES WILL WE EXECUTE THE 'LCR® INSTRUCTION WHEN 
* SEARCHING FOR MAN NUMBER 264833 ?? 
eek WHEN YOU HAVE REACHED THIS POINT, DISPLAY THE YELLOW SIDE OF 
* YOUR “ANSWER CUE", 
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00094600 
00094 700 
00094800 
00094900 
00095000 
00095109 
00095200 
00095300 
00095400 
CC095500 
00095600 
00095700 
00095800 
C0095900 
C009609C 
00096190 
00096200 
00096300 
00096400 


00096606 
00096700 
00096800 
00096900 
COO9TOD00 
00097100 
00097200 
00097300 
00097400 
CQOG97500 
Q009T7T6COE 
Q009T7T00 
00997800 
00097900 
O0G098000 
00098100 
0CG98200 
00098300 
0009840C 
00098500 
0CG98600 


BINARY SEARCH ROUTINES. 


LOC OBJECT CODE ADDR1 ADDR2 SQURCE STATEMENT 
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HE AE RAC A A ole hee 2 aK Re ee a OK A RE I EK I EO 2 I A I I AE OK OK OK I KK KKK «=OOOIBBOO 


ANSWERS FOR THE BINARY SEARCH ROUTINE. 
THERE WOULD BE THREE COMPARISONS MADE. 
NO MORE THAN FOUR COMPARISONS. 
*SORTED* +X*9C* 
WILL BE EXECUTED TWICE. 


BK AK AE SK AC a Xe CK OK A ie 2 a i Re Oe RE a i HK OK A CK OC i I I OC EC OK OI 2 EK Cie RE OK EE CC I AE OE OK OK EK CK OE AK OK 


R13 44(R13) 
R14eR12,12(R13) 


SAVEAREA DOS 


=V(PCHKRETN) 


06010018C0L2 =H'1924,2' 


00098900 
0c099000 
00099100 
06099200 
00099300 
00099400 
00099500 
00099600 
00099700 
00099800 
00099900 
00100000 


00100200 
00100300 
00100400 
00100500 
0C1006C00 


cel 


PAS.ID 


Ol 
O1 
O1 


REL.ID 
Ol 
Ol 
O2 


FLAGS 


oc 
OC 
1C 


ADDRESS 


000128 
0063 8C 
000790 


RELCCATION DICTIONARY 
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SYMBOL 


ADSERTAL 
ALRDYIN 
AREANMBR 
ARRAYOK 
ARRAY3D 


BINARY 


BINAR YOK 
BINARYL 
BISEARCH 


BLANKS 


BRANCH# 


BR14 


BYSINARY 
CHATNOLN 
CHAINPTR 


CHAINS 


CHAINTST 
NATAITEM 


DIRECT 


DIRECTAB 
NOTREC TOK 
DIRECTSH 
DIRECTST 
DIRECTS2 
= QOUBLE 


£ nye 
ENTER 
FOUND 


FUNCTION 


F20 


F290000 


HASHIT 


HASHTAB 
INDICATR 


INSERT 


INSERTLP 
TTEMLEN 


ITEML 
ITEMLA 
ITEM2 
ITEM2A 
CTEM3 
ITEM3A 
LCR 
LOOP 
LOW 


MANNUMBR 
NEXTITEM 
NOENT RY 
NOTINTAB 
NXAVATIL 
POINTER 
RETURNC 
RETURNG 


RC 


LEN 


00012 
OCO04 
00002 
GOCcl 
COCC! 
CICC1 
GOCCzZ 
00006 
COCU4 
20001 
009003 
000uU2 
0C 004 
COU0L 
coca. 
O3CUl 
00002 
JICO1 
03004 
00012 
89002 
07004 
Q0992 
99906 
COC OS& 


VALUE 


OCO12C 
00C178 
GCGO0T7 
0c0618 
00C486 
OCVE1C 
y00738 
OOC678& 
UCGE2A 
00018C 
GUucCO09 
000028 
000652 
OCOGUF 
JOULCC 
vC0368 
600434 
JOUI0 
vU0298 
UGC19A 
vGU30C 
OCCITZE 
ulG142 
000146 
oCcC29u 


00004 COC 


CCOU6 
C0002 
OGCU6 
90004 
00004 
CCoG2 
00004 
00001 
JOCU4 
09006 
C0001 
Q0012 
C0012 
CUOLl? 
00012 
COOLe 
COC1! 
00002 
OGGC& 
QUCU2 
NO09C6 
0001 
ON004 
CUCUE 
JO90C4 
CICU4 
Orerei er 
OCCC4 
COCG1L 


2OOO G 


IMO ODAOE 
ine 
m 
he 


() 
> 
oO 
Ne, 


rOOoo¢coona 
VOOM Oc 


G0G646 
GUC6TE 
vuCl38C 
CGC128 
OGC056 
CGLU5A 


a a 


Crea erenere, 


DEFN 


00196 
G038C 
00083 
002853 
00799 
00935 
00989 
90971 
00949 
06391 
COO0R4 
00033 


00959 


00637 
00636 
90634 
00649 
cooTg 
00491 
00394 
C0462 
00383 
00364 
C0366 
00395 
OG62T 
o0618 
0095¢ 
oGC8l 
0039C 
00642 
OG598 
00632 
CE082 
00144 
00145 
CU0d6 
06422 
J0639 
00423 
06640 
00424 
G0641 
00944 
00611 
00945 
00080 
U0CBD5 
00948 
30972 
06631 
66195 
vG153 
Q0155 


00004 


REFERENCES 


0174 
0376 


0815 


G960 
0969 
0959 
0947 
0375 


C031 
0933 
0623 
G613 
C631 
0597 
3086 
0362 
O2374 
0419 
0417 
0462 
6384 
0366 
0612 
0610 
C942 


0369 
0602 
0651 
0V604 


0175 
0149 
O15C 
0401 
0650 
0406 
0655 
0411 
066C 


0608 
0943 
0145 
CQ86 


0964 
0618 
C148 
0163 
C146 
C368 


0965 


9032 


C6i4 


0141 


C656 


C180 


C392 


617 
C162 
C147 
C619 
C152 


O167 
C368 


CROSS~REFERENCE 


C622 


C150 


0412 


C599 


0661 


0621 


03 66 
0151 


624 
0165 


0369 


0622 


C159 


G60U 


0666 


C636 


0375 
0164 


0370 


O6ll O621 
0637 

0392 0418 
0371 0373 


0636 


0599 


O377 


C932 


O611 


0O6ul 


0941 


Q611 


0601 


0941 


06C2 


O94] 


C6 


n 
ee 


3 


C605 
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SEL 


SYMBOL 


R1 


R2 
R3 
R4 
R5 
R6- 
R7 
R8 


R9 


SARGUMNT > 
SAVEAR EA 
SEARCHI 
SEARCH2 


SELECT 
SERTAL 


SERTALLP 
SER TALOK 


SORTED 


SORTEDND 
STORAGE 


TABLE 


TABLEMPT 
TEMPEPTR 
TESTCODE 
TESTDATA 


WORD 


COOL 
SO001 
o9001 
CICel 
O0GO1 
OO0c01 


O9C91 


OOGul 
CO006 
00004 
GOU06 
OO006 
90006 
OoCGl 
CO3L6 
CUG12 
Q0001 
CO001 
COC12 
90012 
CO9C? 
COCG4 
OIVI1L2 
COCV4 


a ae 


OCC UG2 
uC Guc3 
SOCUU4 
Geucoes 
OCG006 
VUCUGT 
UCQO0U8 
YELULD 
OUC138 


¥ 


>c) 
~d 
+ 
> 


0306 
1G 403 


Cod? 
€ 


ooocadc 
Cc: 
Oo 
Cc 


136 


~ 
wo Ww 
OO o 


OOoraaondrgornroanre © an 
m 
IOC 


On 
co m 


Oomonrmrnoocka Oca 
Oooornmraa a 


WOOF OGG 
fos) 
©) 


Om 


88 


DEFN 


OC 006 
oCCO? 
GOCO8 
OGCS9 
vuGld 
Co011 
VGO12 
CCO13 
OU197 
Gid30 
6v425 
0u638 
GU392 
UG160 
00162 
00198 
cO9t3 
00988 
CO0G2 
00189 
00194 
OG816 
00114 
OG191 
GG63C 


REFFRENCES 
0145 0150 
0374 C401 
0655 G66ec 
0803 0807 
0020 cCo2l 
0020 6024 
0020 6033 
0651 0656 
CO23 6024 
0157 0176 
C606 C6C9 
0662 C667 
5948 0951 
0365 ©6392 
6937 6947 
0938 0939 
0936 C941 
0162 9185 
C023 

0416 C418 
0665 

C377 

0184 

0166 

0186 

0939 

0140 

6144 0161 
0195 

3803 

0142 

0179 

0614 0615 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
SOURCE RECORDS (SYSIN) 


*STATISTICS* 
*OPTIONS IN EFFECT* 
1152 PRINTED LINES 


LIST; 


NQDECK, 


LOAD, 


CROSS~REFERENCE 


0159 0161 0164 0165 OQO174 0179 0185 
0406 0411 0416 0598 0600 0606 0607 
0665 O797 O799 C864 0808 0812 0931 
0811 0812 

0022 1028 
0625 0026 0027 OGC27 1027 %41027 1028 
0154 C156 C175 0180 0184 0379 0381 
0661 C666 C949 0952 0960 0965 10628 
0625 0026 O©0C3G 0031 O141 0144 0147 
0181 0364 0364 0377 0378 0378 0380 
0609 0613 0618 0619 Q620 0623 90623 
C800 C8C1lL C802 wuv803 0804 0805 0806 
C951 C961 0966 
C598 Cé6li 0621 CG799 Q800 G932 C939 
0940 C0944 0944 0945 0946 65946 

1006 SQURCE RECORDS (SYSLIB) 
NORENT, XREF, NOTEST, ALGNy OS, LINECNT 


0365 
0607 
0936 


0402 
1029 
0148 
0383 
0624 
O8U7 


0945 


C370 
0616 
0959 


0412 


0152 
C408 
0625 
U8C9 


0372 
0616 
0964 


G417 


0153 
6413 
0627 
O81C 
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C373 0374 
C620 0650 
0626 0628 
0153 Q155 
0604 90605 
0652 0657 
C810 vell 


9EL 


F44—-LEVEL CINKAGE EDITOR OPTIONS SPECIFIED MAP yLETsLIST yNCAL 


VARIABLE OPTIONS USED — SIZE=(45056,6144)— DEFAULT OPTION(S) USED 
TEWOOOO ENTRY UTILITY | 
MODULE MAP. 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME 
STORAGE 06 T9E 
UTILITY 7A0 5A0 
PRINT 802 PCHKRETN A5E 

ENTRY ADDRESS TAO 

TOTAL LENGTH D40 
AKG O DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


LOCATION 


NAME 


LOCATION 


LEL 


SSSSSSSSSS$ 
SSSSSSSSSSSS 
SS SS 


SSS 
SSSSSSSSS 
SSSSSSSS$S 
SSS 


SS SS 
SSSSSSSSSSSS 
SSSSSSSSSS 


TTTTUTTITTTT 
TTTTUTTITITT 


000 COOGNO0CH 
9000000c000G 
O00 00 
Q0 00 
00 00 
00 OO 
00 OC 
Q0 00 
00 ale) 
00 CO 
'o]8ieleleleleis)eiaiele 
O00000000000 


RRRRRRRRRRR. 
RRRRRRRRRRRR 
RR RR 
RR RR 
RR RR 
RRRRRRRRRRRR 


RR 
RR 
RR 
RR 
RR 
RR 


RRRRRRRRR 
RR 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 

99 

99 99 
999999999999 
9999999999 


EFEEEEEEEEEEE 
EFEEEEEEEEEEE 
EE 

EE 

EE - 
EEEEEEEE 
EEEEEEEE 


EEEEEEEEEEEE 
EEEEEEEEEEEE 


TTUTTTTTTTTT 
TUTTUTTTTTTT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


etek ete ok ok i ote oe ea af a a ok a ak oe ac ae oe afc aie ate af oc tic a ate afc ae ae ake ie a a ce aK a CC fe 2 2 ae Re a 2 AE EO aR aR aR aR A aR RE RR RE Re EC CE I A AC I EC AE HE I EC He Me eee He A I He I He Ae ee HK KK 


EXTERNAL SYMBOL DICTIGNARY PAGE 1 
SYMBOL TYPE ID ADDR LENGTH LD ID 12.13 9/17/70 


DIRECTTA SD O11 GO0000 OC021C 


wh 
Ww 
eo 


LOC 


000000 
€ 00000 
000004 
000006 
000006 
OOD00A 
OOCOOE 
00012 
900014 


OBJECT CODE ADDR1 


9CEC 
05C0 


41F0 
5 ODF 
50FD 
18DF 
D103 


DUCC 


C1CE 
0004 
OCO08 


DGO8 DGGE V0008 


ADDR2 


OO0OC 


091D4 
00004 
00008 


C0008 


SOURCE STATEMENT FO8APRT0 
DIRECTTA CSECT 
STM R14,R1i2,12(R13) SAVE CALLER'S REGISTERS. 
BALR R12,0 SET UP MY BASE. 
USING *,R12 
LA RI5,DIRECTSV ADDRESS OF MY SAVE AREA. 
ST R1I3,,4(R1L5) CHAIN SAVE AREAS. 
ST R15,8(R13) 
LR R13,R1L5 
XC 8(4,R13),8(0R13) TERMINATE SAVE AREA CHAIN. 


“% 


STANDARD SAVING CONVENTIONS COMPLETE. 
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00000100 
00000200 
000003090 
00000400 
0000050C 
00000600 
00000700 
00000800 
00000900 
00001000 


=~ 
£ 
io) 


STORAGE AND RETRIEVAL TROUBLE ANALYSIS PROBLEM 1. 


LOC 


OBJECT CODE ADDR1 ADDR2 STMT 
13 
14 
15 


16 


18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
3C 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


56 * 


ad 
58 
59 
60 
61 
62 


SOURCE STATEMENT FOBSAPRIO 


BEAR 2 AR A A A AE AE A A I ARIS A AOE a aK i aK 
* STGRAGE & RETRIEVAL T/A PROBLEM 1. 


SO a a a ee ae” ee er nee aus 


AOC I IC AU ka KK aK a a a 3 


to 4 4 
3 
Set Ht 3k 


3 


KEEEEE EE EE EE EE EE EE EEE E EERE EEE EE EEE EEE EEE EEE EEE EE EEE EE EE EEE EEE EEE EEE Ht 
oe 


THIS ROUTINE CHAINS 12-BYTE ITEMS INTO A TABLE USING THE 


* 

* DIRECT STORAGE TECHNIQUE. IT USES "HASHING® TO LOCATE THE 

* ADDRESS CF THE CHAINING POINTER. IT PERFORMS MODULO DIVISIUN 
* OF THE ARGUMENT BY 20, WHICH GIVES IT AN ADDRESS IN *HASHTABS, 
x WHICH CONTAINS POINTERS TC THE CHAINS OF SYNONYMS. 

x UNFORTUNATELY, THIS PRUGRAM DOESN'T APPEAR TO HAVE WORKED AS 
* IT WAS INTENDED. YOUR JOB, SHSULD YOU DECIDE TO ACCEPT IT, 

* IS TO FIND THE ERROR IN THE PROGRAM GR THE DATA THAT MADE 

x THE PROGRAM FAIL. AS ALWAYS, SHOULD YOU BF CAPTURED OR 

x KILLED.... 

x THIS IS THE TABLE USED IN THE PROGRAM. 

x "HASHTABE "CHAINS! 

x ETO: + +—--—-— $a t—-—------— + 

x [0 t+ +--+ +----------- >12000GC1 DATA ITEM | 9 t---~+t---->+ 

* $—-——-—-~—=— + t——-———— $ ae $—-—-—-—-—~—— + 

* | 00000000] +--=-->1400009] DATA ITEM 100G0OCCC] 

* +——-—-—-~=-— + ] a $+ ——— $—— + | 

** J 0 #----+----- )----- >18CG0021 DATA ITEM 100000000] 

* t————-- = + | +—--—---— + -—— t———— = = — + V 

# (oococo000| 16CGOCOl DATA ITEM 1CCOUGOU00{<----+ 

* +--~--~-- + +-----~ $-—--------- $-------- + (POINTS TO 
* {oo0000c00 | | +-->] | THE START 
x $—------- + | o| 0 teee----+------------------- + MF THIS 
* ydd300000) 1 ¢ ¢  € FREE AREA ) } LINE.) 

x COCOCECEE Poof teeee----------------------- + 

x toanaeennt foto | 

* | 0 tewant---->t 

= +-------- + i of ; ! 

* erexelereroreren ee EE PED ERE ESSERE PP EE ER EEE PEE EED) 

x toa--n-- + Po CEECECE CECE CCE EC CECCECECOECE 

* yyvvddddD) Jo +--+ ---------------- ~~---~+-+ 

* COO CCOCECE 

* $—a + + 

- 

* "NXAVAIL® { 

*(ADDR. +-------- + 

*OF LST | 9 te=-t—------->+ 

*UNUSED  +-------- + 

*BYTE IN ®CHAINS*.) 


* 
78 
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00001300 
0C001460 
O00CL50U0 
0000160C 


0CO018C0 
0000190C 
OOGO200C 
00002100 
000C2200 
00002300 
OC0024G6C 
OC002500 
OCUD2600 
OCO027CC 
00002800 
00902900 
00003000 
000031C0 
600032C0 
00003300 
000G340C 
06C03500 
00003600 
OGCO3700 
OUUC 3800 
00063900 
O0CU40C0 
OVCO41 00 
00004200 
0G004300 
00004400 
00004500 
OLO0460C 
00004700 
00004800 
OG0O0490U 
OOCO5CUC 
COV0510C 
GC005200 
OC0053CC 
00005400 
60005560 
00005600 
O0CO0C5 700 
00C05800 
06005900 
QuGOQ600C 
OOVCH1LOC 


KEE EEFEEE EEE EEE EE EEE FE EE EEE EEE EEF EE EEE EEE EEF E FEE EEE EEE EEE TEH Ee Het et tet OOO0E20O 
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LOC 


C00000 
OC000L 
000002 
000003 
000004 
OC0005 
000006 
000007 
000008 
000009 
OOOO0A 
00000B 
OOO009C 
00000D 
COOOO0E 
COOOOF 


OBJECT CODE 


ADDR1 ADDR2 


STMT SOURCE STATEMENT 


64 RO 
65 R1 
66 R2 
67 R3 
68 R4 
69 R5 
70 R6 
71 RT 
72 R8 
73 R9 
74 R10 
75 R11 
76 R12 
77 R13 
78 R14 
79 R15 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


OON AUF WNP OO 


FOBAPR/O 
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60006400 
060006500 
00006600 
00006700 
90006800 
00006900 
OOCOTGSO 
00007100 
00007200 
00007300 
000074C0 
00007550 
00007600 
COCOTTOO 
00007800 
00007900 


crL 


HAS HM AN# 


eo ee A] ea 2K EK OK XK ok 


* 
* GET ADDRESS * 
*OF NEXT ITEM IN* 
* THE CHAIN. 


Me A 2 ee A KK 


NOENTRY 


* 
* 


+ A OO ORD ER AED ER ED CeO NEED etm aE ene PD SEP AD ED END END ae SD SAD tah GE Ge amy GEE caam AP athp GES CUD MED aD GD ab whe aD cm ae 
fo OK A Da eto tok 
* CONVERT MAN # 
| * NUMBER TO AN * 
------- >*ADDRESS IN THE * 
: HASH TABLE. : 
rrr r rrr rrr TTT TT 
V YES 
Ke ENTER 7 
B2 x, *, FOO B Gack k dodo tok 
ok *, x x * 
.*° DOES A *. NO SEARCH *. NO | *ENTER THE ITEM * 
# CHAIN EXIST 2.# --—---->#. OPERATION 2. ----~-->¥ IN THE TABLE. # 
me, a "ey * * * 
xk. Ok x, ok FICC EGR aI tGk fe tok 
* YES seek ak 
x 
* BZ * 
x x 
KK 
V 
{OOPIT c2°°"s DUPLICAT 
.* "xe, Trier Ttrrte rs. 
e* FIND THE *. YES *RETURN, CODE = * 
e ITEM ? ° seuneamanetemtenee aki 4. * 
x, . x x 
x, w* TTT T TTT CT TTT 
ke Ok 
«NO 
V 
tok D2 RK 
* 


He aK BS 2k aa eo a a ak 
RETURN, CODE = 


AE A CC KK oe 8 aK Ak ok 24k 


x 
x 
* 


STORAGE AND RETRIEVAL TROUBLE ANALYSIS PROBLEM 1. PAGE 5 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/70 
NOOOLA 47FO CITA 00180 81 B CHAINTST BRANCH TO THE TEST CASE CODE. . 00008100 
000000 82 USING DATAITEM,RS5 00008 200 
OOCOLE 1821 83 HASHMAN# LR R2eR1 00008300 
C00020 F275 C172 1000 C0178 00000 84 PACK DOUBLE,0(6,R1) CONVERT THE MAN NUMBER TO AN ADDRESS 00008400 
000026 4E1C C172 00178 85 . CVD R1,DOUBLE USING MODULO DIVISION BY 00068500 
OO0002A 1B00 86 SR RQ,RO 20. 00008600 
00002C 5D00 C1l6A 00170 87 D ROsF20 00008700 
000030 8900 0002 00002 88 SLL RO+2 00908800 
060034 4150 COA2 OO0A8 89 LA R5 yHASHTAB ADDRESS OF THE HASHED ADDRESS TABLE. OCO08900 
000038 1A50 90 . AR R5_RO ADD THE HASHED DISPLACEMENT. 00009000 
00003A 5815 00060 00000 91 L R1,0(R5) GET THE CHAIN PTR, IF SUCH EXISTS. 00009100 
OOOO03E 1211 92 LTR R1,R1L CHECK FOR THE EXISTENCE OF A CHAIN. 00009200 
000040 4770 C046 O004C 93 BNZ LOOPIT YES, SEARCH FOR END. 00009300 
000044 4155 OO001 00001 94 LA R5,1(R5) NO, FAKE THE ADDRESS OF A CHAIN PTR. OO0CC9400 
000048 47FO C064 O0O06A 95 B ENTER AND GO ENTER THE ITEM IN CHAIN. C0009500 
00004C 0505 5000 2000 0G000 00600 96 LOOPIT CLC MANNUMBR yMANNUMBR~DATAITEM(R2) SEARCH FOR THE ITEM. 00009600 
000052 4780 C090 00096 97 BE DUPLICAT DUPLICATE FOUND, EXIT. 000C9700 
000056 4150 500C OOCOC 98 LA R5_yCHAINPTR 00009800 
O0005A D202 C09B 500C OO0AL OO00C 99 MVC WORD#103),CHAINPTR GET ACDRESS OF NEXT ITEM IN CHAIN. 00009900 
000060 5810 CCSA OOOAC 100 L R1,WORD . OCO10000 
000064 1211 1Cl LTR Rl¢yR1 . IS THERE ONE ? 00010100 
000066 477C C046 0G04C 102 BNZ LOOPIT YES, CONTINUE. 00010200 
O0006A 9180 CO96 OGC9C 103 ENTER ™ FLAG,SEARCH IS THIS A SEARCH GCPERATION ? 00010300 
OOOO6E 4710 CO8C 00092 104 BO NOENTRY YES, DON'T INSERT THIS ONE. 00010400 
=» GCO0072 D202 5600 CO9F 00600 OD0A5 105 MVC O(39R5)sNXAVAIL 41 INSERT CHAIN POINTER. 00010500 
& 900078 5850 CCIE O00A4 106 L R5yNXAVAIL 00010600 
90007C 1815 107 LR R1isk5 00010700 
QOOOTE D20E 5060 26000 00000 00000 108 MVC DATAITEMCITEMLEN),C(R2) INSERT THE DATA ITEM IN CHAIN. 90010800 
009084 D702 500C 500C CG00C OGDNDC 109 XC CHAINPTR(3),9CHAINPTR ZERQ THE CHAIN POINTER. 60010900 
QOO08A 41FO0 500F OOOOF 110 LA R15,NEXTITEM POINT TO NEXT FREE SPACE IN TABLE. O0C011000 
OOCOB8E 50FC CCIE OOCA4S Lil ST RI5yNXAVAIL 00011100. 
000092 IBFF 112 NOENTRY SR R1L5_,R15 RETURN CODE = QO, NOKMAL RETURN. 00011200 
000094 O7FE 113 BR R14 ; 00011309 
000096 41FO 0004 . 00004 114 DUPLICAT LA R1594 RETURN CODE = 4. 00011400 
QQ009A OTFE 115 BR R14 DUPLICATE, SET ERROR RETURN CODE. 00011500 
O0O009C 00 117 FLAG DC X*Qr — OCO11LTOC 
000080 118 SEARCH EQU X* Bat 00C01180C 
00009D 000900 
OOO0AN D0CCO00E 119 WORD DC aa , SEGEEECEEEEEEEEEEEEESEEEESESESEEEEGE OCCLI9I0G 
OCOO0A4 OOCOOOFS8 120 NXAVAIL DC A( CHAINS) & TABLES, CONSTANTS AND TEST DATA & GO0O1200C 
O009A8 ODDDD000CO0GGG00 121 HASHTAB DC 20 *O* & USED BY THE DIRECT STORAGE & 00012100 
OOO0OF8 4040404040404040 122 CHAINS DC g a Oe & ROUTINE. (SYNONYM CHAINING & 00012200 
000143 F4FCFOFOFCFIL 123 SEARCH2 DC C*4000C1' & VARIETY). ; & 00012300 
000149 FSFOFOFOFOFILES6F1 124 ITEMLA DC C*§8CCOCIW12345§ GEEEEEEEESEESESESESEE SES EESESEEEEEEEE OC012400 
900155 F6OFOFOFOFOFE6C4F3 125 ITEM2A DC C*600006D32568! 00012500 
900161 F4FCFOFOFOFIC4F9 126 ITEM3A DC C*400C01D98765! C0C12690 
00016D 20C000 
OCOLTS O0000014 127 F20 DC FY20° YOC12700 
C00178 128 DOUBLE DS D 0001280 


STGRAGE AND RETRIEVAL TROUBLE ANALYSIS PROBLEM 1. PAGE 6 

LOC OBJECT CODE ADDR1 ADDR2 = STMT SQURCE STATEMENT FO8APRTO 9/1T/TO 
130 *€EEEEEEEEEEEEEESESEESESEEEEEEESEEEEEEEEGEEEEEEEEEEEEESESEEEEESESEEEEEEEE COO13000 

L3i THIS CODE TESTS THE CHAINING EXAMPLE. IT ADDS THREE DATA 00013100 

132 * ITEMS, ONE OF WHICH TS A SYNONYM, AND IT RETRIEVES ONE OF 00013200 

133 * THE ITEMS JUST ADDED. 00013300 

. 134 *&GESEEE GEE GEE EEEE EEE EEEEGEEGESESEE EEE GEE EEEEEEEEESEEEEEEEEESEGESESEEEE 00013400 
000180 135 CHAINTST DS OH 00013500 
000186 4110 C143 00149 136 LA RLyITEMLA FIRST ITEM TQ BE ADDED. 00013600 
009184 45FO C018 OCOLE 137 BAL R14 yHASHMAN# C0013700 © 
CQ0188 47FF C186 0018C 138 B *+4(R15) 00013800 
CQ0018C 47FO C18C 00192 139 B *+6 00013900 
200190 9007 140 DC H' 7! ‘DUMP IF INSERTIGN FAILS. 00C14C00 
090192 4110 C14F 00155 141 - LA R1L,ITEM2A SECOND ITEM TO BE ADDED. 00014100 
990196 45EFC CC18 OOOLE 142 BAL R14_,HASHMAN# 00014200 
OOOLIOA 47FF C198 OOL9OE 143 B *+4(R15) 00014300 
COO19SE 47F0 CL1OE OO1A4 144 B *+6 00014400 
OODLA2 0008 145 DC H's8* DUMP IF INSERTION FAILS. 000145006 
COO1LA4 4110 C15B GO161 146 LA Rl,ITEM3A THIRD ITEM TO BE ADDED CSYNONYM). 6001460CG 
CCO1LAS 45E0 C018 OOOLE 147 BAL RL4,HASHMAN# 00601470G 
COOC1LAC 47FF CLAA CO1BO0 148 B *+4(R15) 00014800 
COC1BO 47FO C1B0 001B6 149 B *+6 00014900 
CCOLR4 0009 1590 DC Heo? DUMP IF INSERTION FAILS. . 00015000 
90901B6 9680 C096 vucgc 151 NI FLAG,SEARCH SET SEARCH OPERATION INDICATOR. 000151C0 
CCO1BA 4119 C130 00143 152 LA R1l»+SEARCH2 ITEM TO BE LOCATED 00015200 
OCO1LBE 45E0 C18 OOOLE 153 BAL R14,HASHMAN# 00015300 
7 OQOO1C2 47FF C1iCés 001C6 154 B *+4(R15) 00015400 
OGO01C6 OGOA 155 DC AP LCS DUMP IF NOT FOUND 00015500 
960108 0700 156 NOPR 0 00015600 
CCOLCA 5800 C004 O9GG4 157 L R134 (R13) 00015700 
COCLCE 98EC DGUC Q000C 158 LM R14,R12,12(R13) 06015800 
000102 O7FE 159 BR R14 00015900 
000194 160 DIRECTSV DS 1 8F 00016000 
9900000 162 DATAITEM DSECT 000162006 
¢€90990 163 MANNUMBR ODS CL6 00016300 
009006 164 FUNCTION DS CLE 00C01640C 
CIOOOC 165 CHAINPTR DOS CL3 0001650C 
COOOOF 166 NEXTITEM DS Oc 00016600 
20 900F 167 TTEMLEN EQU NEXTITEM—-DATAITEM 00016700 


SVL 


PQOS.ID 


Ol 


REL.ID 


Ol 


FLAGS 


OC 


ADDRESS 


OO00A4 


RELOCATION DICTIONARY 


PAGE 1 


9/17/70 


CROSS-REFERENCE PAGE I 
SYMBOL LEN VALUE DEFN REFERENCES 9/17/70 
CHAINPTR 00003 COGO0C CO165 0098 C099 0109 0109 
CHAINS C0001 OOO0F8 CO122 °&®0120 
CHAINTST 00002 000180 00135 £0081 
DATAITEM OCGGU1l O0G000 CO162 0082 C096 0108 C167 
DIRECTSV 00004 0001D4 60160 0005 
DIRECTTA 00001 OOGGU0G 00001 
DOUBLE  CO0C8 OOCL78 00128 0084 C085 
DUPLICAT 00064 000096 00114 CC97 
ENTER 00004 CO006A 06103 0095 
FLAG 00001 O00009C 00117 #4210103 O151 
FUNCTION 00006 CO0006 06164 
F290 C0004 O0G170 00127 0087 : 
HASHMAN# 00002 GOOGLE 00083 0137 0142 0147 C153 
HASHTAB 00004 OGCOA8 00121 0089 
ITEMLEN 00001 OCOOCF 00167 #20108 
ITEMIA 00012 000149 00124 0136 
ITEM2A 00012 000155 00125 £0141 
ITEM3A  COO12 000161 00126 0146 
LOOPIT GO0C06 GO0C4C 06096 0093 0102 
MANNUMBR 00006 GCOGOG CL163 0096 0096 
NEXTITEM COGOL CUSCGF 00166 0110 0167 
NOENTRY OCOCOZ CCCC92 60112 0104 
NXAVAIL 60004 QOO00CA4 06120 0105 0106 O11] 
RO 00001 OCCGCO 06064 #0086 0086 OC87? O0C88 07696 
zZR1 00001 000001 06065 0083 0084 0085 CC91 O0C92 0092 O100 O1OL O1G1 O107 0136 O141 0146 0152 
® R10 OOGOlL COCGLA 00CT74 
Ril 00001 OCOGOB 00075 
R12 00001 COOOCC CCO7T6 0002 0003 0004 0158 
R13 00001 COCCOD 00077 0002 0006 OGO? C008 0009 0009 O157 O157 0158 
R14 00001 COGGOE 00078 0002 0113 0115 O137 ©142 0147 0153 O158 0159 
R15 00001 GOCOOF 00079 0005 0006 C007 O008 O110 Oll1 O112 O112 O1L14 0138 0143 0148 0154 
R2 00001 GOG002 00066 0083 0096 0108 
R2 00001 000063 00067 
RG 00001 0G0004 C0068 
RS5 00001 000005 00069 0082 0089 0690 0091 0094 0094 O098 OLO5 0106 O1O7 
RG 00001 000006 O4070 
R7 00601 OO00CU7 C0071 
R8 00001 COCOC8 00672 
RQ 00001 005009 00073 
SEARCH  OO0COl 000080 00118 0103 0151 
SEARCH2 00006 GO00143 00123 0152 
WORD 00004 GO00AG 00119 ©6099 0100 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
xXSTATISTICS*® SOURCE RECORDS (SYSIN) = 182 
* OPTIONS IN EFFECT* LIST, NODECK, LOAD, NORENTy XREF, NOTEST, ALGN, GS, LINECNT = 55 


246 PRINTED LINES 


5 


F44-LEVEL LINKAGE EDITGR OPTIONS SPECIFIED MAPyLETsLIST,NCAL 
VARIABLE OQPTIQNS USED - 


STZE=(45056,6144)- 


TEWOOOO ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME 
DIRECTTA GO 21C 
UTILITY 220 5A0 
PRINT 282 PCHKRETN 
ENTRY ADDRESS 220 
TOTAL LENGTH TCO 
* KG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


Lvl 


LOCATION 


4DE 


DEFAULT OPTION(S) USED 


NAME 


LOCATION 


NAME 


LOCATION 


F.eP. REGS. 00.010974 OGCO0D00 00.000000 02000000 FF.2EE462 CIC5E6D3 40.404040 0001DC34 

REGS 0-7 00C0003C O0000000 00064983 QNOG00000 OOOLAZEG 00064925 0001D850 00018508 

REGS 8-15 OGO1LD?BG OO000000 O0N01D708 00000000 6F064846 00064A14 9F064A02 00000000 

000000 00000000 00000000 000900000 90000000 00064840 O0000000 FFO6ODD0D B0DDDDD0D Kecceccccccrcccesece soessecveese® 
000020 FFC40003 40006A3E FFA50001 4FO064A08 OOOCFFOO GO000000 FFA50233 BFO64ATB Fes ce ceccecccccccsccecccceseceseeX® 
000040 00001360 08000000 00001358 00005920 O2COZ6A4 OO00996EC CO0400U0 OOD0TSIB Keseccceevecccvccscccccscescsesee® 
CQ0060 0C04000G GOO007BC8 00040000 00007588 OGOCOQ000 O0O1L2Z2D1LO COO4O0GG OOODOTSIA Fever eHesecccccesvvevseesecsseve® 
064840 9OECDOOC GS5CC41F0 CICE50DF 00045GFD OOG81BDF DTO03D008 DOOB4TFO CLTALB2Z1L FesecereDbNv eevee eeeeePessee oUAeee® 
064860 F275C1l?72 100G4E10 C1?721B00 5DOOCILE6A 89000002 4150COA2 1A5G5815 OOOOL2ZALL *2eNe ee eeNec ee eNeresccccccccccees® 
064880 47700046 41550001 47F0C064 0D5055000 20604780 €CC0904150 SCOCDZ02 CODB5S0OC Feeeeee ees eNevsecvcecsceekKervee® 
0648A0 5810C09A 12114770 C0469180 C0964710 COBCD202 5SO0CTOSF SB50COGE LELOEDZ0E  Feeecce cre cececcssscKeccvsecceseke* 
0648C 0 50uu2000 D702500C S500C41FC 5CO0F50F0 COQELBFF O7FE41FO OOCO4OTFE 80000000 Fe ee ePe wee ee De ee De veve ce eQCesrvcesee® 
O0648EC O0O00G000 00664965 O00CCID00 00064938 COODDOGO COOCO00N DAONDCODONN 00064956 Fecececescesccccecesssvesessccsseex 
064900 O0CGQ00G GOGOL0C0 0C000000 20000000 O0000G00 OODDD0DN OCODDDOND OO0E494T Fev cecvccccvererveccccccesesesccer 
064920 OCOGO0CO BVVQOD000N0 000090000 COCO000G O00CCO000 COOQ00000 FBFOFOFO FOFLE6BFL  eeccceccccece ceeevecee ee SQ0000ILWI* 
064940 F2F3F4F5 QOOCOQOF6 FOFOFOFOD F6C4F3F2 FSF6F800 OOOOF4FO FOFOFOFL C4F9OFB8FT *2345...600006032568...400001D98/* 
064960 F6F50000 06464040 40404040 40404040 49404040 40404040 40404040 40404040 *65... * 
0964980 4C4C040F4 FOFOFOFO FIF8FOFO FOFOFILES6 FIF2F3F4 FSF6OFOFO FOFOF6C4 F3F2F5F6 * 400001800001W12345600006D 32 56% 
0649A0 F8F4FOFC FOFOFIC4 FOF8FTFE F59000C0 O0000014 5000D207 CO000D00 0412035EC *B8400001D9IBTE5 coerce ee sKercvcscee® 
C649C0 41100143 45E0CC18 47FFC186 47FOC18C 99074110 Cl4F45E0 COLB4TFF Cl1OB4ETFO Fe eNeeee eee Aa eCAhee ve eANvceeccches 0% 
0649E0 CL9EOCGS 411C0C15B 45F0C018 47FFCIAA 47FCC1BO CC099680 C0964110 CL3ED45EO *F*Ase ee eNe wees cAe eGAeeeccseccAheee® 
064A00 COL847FF CLICOCCCA 070058DD O0O0498EC DOOCOTFE 926B5000 COOTOF6B8 DOOCOQOOD FeeeeAeeve cere scesscevesscesescseeX 
064A20 47F0940E 12334780 94261B11 16134106 COCOOA4SE S8FOTO3BC J1LO4FO0B9 47809426 F.DeeecccccsrcecerceeseDene eVsseee® 
064A40 4150501E 5S8FCGGQ10 S8FOFC3C 91C08F089 41780946C 58204138 12334780 F46CL21L1L Fee cee ee eDD ee Deer ccecccceesesee™ 
064A60 9OECDOCC O5C004FO 67004119 CO01900511 OCFCO4B04 TFFFOAQDE S8BOOOLO DLLOBOTH Feces ee eGoeese cere sesccsescssesee® 
065020 4ACO9BDE 40050000 47F095C6 48609BEE BABCOCOL 47ICIB9E 48669026 41660001 Fee e coe eVeFe ne vcccsccerevsccese™ 


-_ 
. 
oo 


Be RR a a aK a 2 a 2 a ae 2 a ae a a a oe a aK 2 2 2 2 a 2 he 2 2 ae fe 2 a ee 2 2 2 a a a aK A MC I A a A a A a ee HC Ce he a He AK Be Re ee a he a a ae he aK Oe OK aK MRA He ME HE A He AE HE HHH HEH EK KH EE EK HK KKK 


6UL 


S5955555358 
SSSSS553S3555 
SS SS 


SSS 
SSSSSSSSS 
SSSSSSSSS 
SSS 
S$ 
SS SS 
SS SSSSSSS5S5558 
SSSSSSSSSS 


TTTTTTTTITITT 
TTTTTTTTTTTT 


OOOCOOCCCCCC 
000000G00000 
00 CQ 
00 00 
00 00 
00 a0 
00 oc 
OG 00 
00 00 
0 CO 
OOOOCOQ00000 
pd0CcooocdVCd 


RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RR 


RRRRRRRRR 
RRRRRRRRRR 
RR 
RR 
RR 
RRRRRRRRRR 

RRRRRRRRR 

RR 
RR 
RR 

RR 

RR 


9999999999 
999999999999 
99 99 
99 99 
99 29 
999999999999 
999999999999 

99 

99 
99 99 
999999999999 
9999999999 


TUTTITTTTTTTT 
TUTTITTTTITITT 
TT 


AAAAAAAAAA 


AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


2222222222 
222222222222 
22 22 


22 
222222222222 
222222222222 


eR he of ote 2 oo ok ae a ke ake oe a 2 of ake ake a afc a ac ake i Ke a a eo He 3 a Be he BB 2 2 2 OK he fe Ee A HO He ee HE HM He He He AE HC He Re HC A ERC A I A EE A OC AC AK A A 3 CE A OC AE Ae OK OK OK 


EXTERNAL SYMBOL DICTIONARY PAGE 1 


SYMBOL TYPE ID ADOR LENGTH LD ID 12.20 9/17/T0 
BINARY SD O1 OCOU0E G00470 

LOCELE™M ER 02 

PRINT ER Q3 


LOCELEM SD 04 uG0470 000040 


OSL 


LSL 


LOC 


000000 
0C0000 
00004 
C00006 
000006 
OO000A 
OOOOO0E 
900012 
000014 
909018 
0900018 
O0001C 
000020 
CO00022 
000026 
000028 
Q0002A 


DATA STGRAGE AND RETRIEVAL T/A PROJECT 2. 


OBJECT CODE 


9OEC 
05B0 


5006 
41F0 
50FC 
18DF 
4170 


41606 
4150 
1A57 
58FC 
OSEFr 
1211 
4780 


DOOC 


BOAA 
BOA6 
DOO8 
B176 


00CO 
61890 


BCSA 


BO8A 


ADDR1 ADDR2 


OO00C 


QO0O0BO0 
OOOAC 
00008 
OO017C 


OOGCO 
00180 


COCAD 


00090 


STMT 


SOURCE STATEMENT 


iy 
% 
% 
% 
% 
+ 


% te te 4 


% te % 


“tt te 


eo 4 


3 


a 3t 


* & EE EEEEEEEEEE EE EE EEE EEEEEE EEE EEE EEEEEE EEE EEE EEEEEEESEEEEEEEEEEEEEEEEEE 


+ 


+ 


*EEGEEEEEEEEGCEEEGEEEEE GESE EE GEGEEEEESEEESEESEEEESE EEEEEE SEEEEEEEEEEEEEEEEE 


BINARY 


TOP3 


BE AE KE AE EE AE CE AE A A OK AE EE OK CE Ee a a OIC OE NC OI OC CK OC IE OK OE OK AE OE NE AC Eo AE AE RE OK of EO ok aK ok OK ok ok ok 


FOR APRTO 


THIS ROUTINE PERFORMS A BINARY SEARCH ON A TABLE OF 63 
WHICH CONTAIN A FULL~WORD ARGUMENT AND 


12—-BYTE ELEMENTS, 
AN 8-BYTE FUNCTION. 
ARGUMENTS (IT WILL PASS THREE) 


A SUBROUTINE IS USED TO PASS SEARCH 


TG THE MAIN ROUTINE. THE 


MAIN ROUTINE WILL THEN DG A BINARY SEARCH FOR THE ELEMENT 
IT WILL PRINT THE 


HAVING THE SAME FUNCTION. 
FUNCTION PORTION OF THE ELEMENT. 
(*) WILL BE PRINTED INSTEAD. 
‘THIS SHOULD PRINT® 
THE PROGRAM ISN'T WORKING TODAY. 
PROGRAM DOESN'T WORK. 


ASTERISKS 
WORDS 


THE 


REMOVED, 


THIS PROGRAM WAS WRITTEN IN A HIGH=LEVEL (COMPILER) 
THE COMMENTS ON THE INSTRUCTIONS WERE ADDED 
AND WERE NOT A FUNCTION OF THE 


LANGUAGE. 
FOR YOUR CONVENIENCE, 


COMPILER. 


CSECT 
STM 
BALR 
USING 
ST 

LA 

St 

LR 

LA 

DS 

LA 

LA 

AR 


? 


@EsadCy12( aD) 


aB_ya0 


If IT FINDS IT, 


BINARY+COQ00+000006,aB 


@aDsASAVOO2+4 
AF» aSAVOO2 
aF,78(0,aD) 


@D4 aF © 
a?’,TABLE 
OH 
026,192 
057384 
A5,a7 

AF eaV2 
aE, aF 
Alyal 
08,aELO2 


SET UP THE INITIAL PARAMETERS 
FOR THE BINARY SEARCH. 


ADDRESS OF LOCEL 


GO TO THE SUBROUTINE TO GET A 


SEARCH ARGUMENT 
I- NO ARGUMENT, 


WILL BE PRINTED. 
PLEASE FIND OUT WHY THE 

WHICH INSTRUCTION(S) NEED TO BE ADDED, 
CR CHANGED TG CORRECT THE PROBLEM. 


EM 


QUIT. 


IF IT CANNOT BE FOUND, 8 
IN CORRECT OPERATION, 
UNFORTUNATELY, 


0026 
C026 
0026 
0026 
0U26 
0026 
CG26 


0031 
0032 
0032 
0033 
0033 
0034 
0035 


PAGE 1 
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00000200 
00C00300 
000004006 
00000500 
OC000600 
00000700 
O0C0008900 
00C00900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
O00C16CC 
00001 7C0 


C0001900 
00002000 
00002100 
00002200 
00002300 
COC02400 
04002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003 70C 
00003800 
0C0039C00 
00004000 
00004100 
0C 904200 
00004300 


DATA STORAGE AND RETRIEVAL T/A PROJECT 2. PAGE 2 


LOC OBJECT CODE ADDR1i ADDR2 STMT SQURCE STATEMENT ~ FOBAPR7Z0 9/17/70 
45 % RR ROK KR KK ROK KOR KR KK OK KK KK KK KR OK KK KK OK K KK OK * * * 00004500 

46 * THIS IS THE BEGINNING OF THE BINARY SEARCH ROUTINE. 00004600 

47 * IT WILL LOCATE THE DATA PORTION OF THE ITEMS WHOSE 00004700 

48 * ARGUMENT VALUE IS RETURNED IN REGISTER 1 BY THE COQ00C480C 

49 * *"LOCELEM® SUBROUTINE. 00004990 

SOQ * *# * HK RK KR KK KK RK KE RK KK RK KR KR KR KK KK KK KK OK K KF *K K K ~CKCO0500N 

COOO2ZE IBFF 51 SR aFeaF ZERG THE LOGP COUNT 0037 00005100 
000030 5SOFO BCF6 OOOFC Se ST aF eI 0037 00005200 
000034 58FO 1000 06000. 53 aDOIF7 L aF,yC(O,al) GET THE SEARCH ARGUMENT 0038 00005360 
906038 59FCG 5000 00000 54 C AF ,»O(C a5) DGES IT EQUAL THE TABLE ARG. ? 0038 00005400 
Q00003C 4780 BOC 00082 55 BC 08,FOUND YES, PRINT THE FUNCTION. 0039 00905500 
000040 4746 6042 00048 56 - BC O4¢STEP NO, GO LOGK HIGHER IN TABLE. 0041 00005696 
C00044 13F6 57 LCR ae a6 SET UP TO LOOK LOWER IN TABLE. 0042 00005700 
000046 186F 58 LR M6_9aF 0042 900U05800 
000048 18F6 59 STEP LR Fy awé& GENERATE | 0043 00005900 
GOO04A LASF 60 AR BIgaik THE NEXT 0043 00006000 
O0O004C 18F6 61 LR aF ya6 ADDRESS 0044 00006100 
OOO004E 1O0FF 62 LPR OF yar | OF AN ITEM 0044 00006200 
O90050 8AFO GOOl OOCOl1 63 SRA aFel TO COMPARE 0044 00006300 
000054 186F 64 LR a6_a\F IN THE TABLE. 0044 00006400 
000056 58FC BOFS6 OOOFC 65 L aryl BUMP THE LOOP COUNT BY 1. 0045 Q00C65006 
COOO5A 4AFG BC96 0009C 66 AH aFyaD1L : 0045 00006600 
OOOO5E 5SOFO BUF6 OCOFC 6% aDOIFE ST aF,I | 0045 CG006700 
000062 49FC B098 OOO9E 68 CH aF yaiD2 LOOPED THE REQUIRED TIMES ? 0045 00006800 
3 C00066 47CC BO2E 00034 69 BC 12,2DO9F? NO, CONTINUE SEARCHHING. 0045 00006900 
iS) JO * RK KK AK KK KK KK KR KOK KR KR KR RK KK KOK KK OK KOK K OK K OK * OGCOTOOO 
71 * NO MATCH FOUND, PRINT A LINE OF ASTERISKS. 0000710C 

T2 RRR KH KK KK KK KK KKK KK KK KK KR KK KR KK OK K KK KH K Ke * ~CCKOOTZ00 

OCOO6A D207 BUFB BOEE CO1LC1L COOF4 13 MVC OUT AREA+4+1(°08),ASTERISK 0046 00007300 
GO0070 4110 BUFA 00100 14 LA a1,QUTAREA 0046 00007400 
009074 58FO BU9JE OOCA4 75 PRINTIT L aF,yaV3 ADDRESS QF PRINT 0046 00007500 
909078 OSEF 16 BALR Q@E,aF ~§ 0046 Q00007600 
COOOTA 9240 BOFA GU100 TT MVI OUTAREA,C® ! SINGLE SPACE FROM HERE ON OUT 0046 00007700 
COCOQTE 47FO BOl2 00018 18 BC 15,TQP3 . 0047 00007806 
719 * **K eK KK RK KK KK KK KK KK KK RK KR OK KK K KK K KOK KK K K ~OCCOOTIOR 

80 * MATCH FOUND, PRINT THE FUNCTION PORTION. GCO0O08C00 

QL *& Ke KK KK KK KR KR KR OK RK OR OK KR KR KR KR KR OK OR KR Rk OK KR KK KOK RK KK * * GCOOO8LOO 

900082 41FC 5008 0C008 82 FOUND LA aF+8(0,a5) - 0048 00008200 
000086 D207 BOFB FOOQO GV101 99000 83 MVC OUTAREA+1(8),0(aF) 0048 00008300 
OSCO8C 47FO BC6E 00074 84 BC 15,PRINTIT GO PRINT THE LINE. 0048 G0008400 
85 * ke KK RK KK KOK OK KK KK KK KK KR OK KK KK OK KK KK K KK KF K * CO008B500 

86 * TODAY IS A NICE DAY, SO I'M GOING TO GIVE YOU A DUMP, JUST IN COG08660 

87 * CASE YOU MIGHT WANT ONE TO HELP DEBUG THE PROGRAM. 06008700 

88 * * * KK KK KK KOK KK KOK KOK KR KOK KK OK KK KOK K KK KK KK *K KX ~GOO08B00 

9c0c9g0 900C 89 a@ELO2 DC Heo 0051 00008900 
000092 58DC DO04 00004 90 L @D,4(0,aD) 00009000 
0090096 98EC DCOC OO00C 91 LM aE,aC,12( aD) 0051 Q0CG009100 
OOTO9A OTFE 92 BCR 15sqa@E 0051 OG0G92C0 


ESL 


BINARY aDO9FT 
KKK AD KKK KKK KKK 
for tok A] tok kok tok ak * 
* START BINARY ¥* #GET THE SEARCH # 
* SEARCH. * +--># ARGUMENT. + 
OK ee 2K oie oe ic ik oie oe i ik a ok oc x x 
3K 2 Re a i a 2g kK a ok ok ok oc 2k 
aK KK 
* *x 
* AQ * 
* * 
KK KK 
V 
TOP3 V o*, 
MARK AK RY] ook te ok a aK i ok B? x, MK AK KBD KKK eK KK ek & 
%* * x x * * 
*INITIALIZE FOR * NO_< .* FIND A *. YES * MOVE THE ITEM * 
* SEARCH. Beco $05, MATCH 2 4 —=----->4TO PRINT AREA. * 
* * =, x * * 
AK ARK OK ie ee i he i a a oi ok oe ek x, x HRB Re 2 3c ae he aye oh oe 2c ok ae ae eK 
* NO_> 
V V 
KKK KK CO] KKK KR KK KK RKC DK KK KKK ae fe He KC Fk 2K 2 aie ok ai 2k ok ok 


*LOCELEM " * * x x 
a * SET UP FOR * *MOVE ASTERISKS * 
* GET SEARCH * * “BACKWARD * +-->*T0 PRINT AREA. * 
* “ARGUMENT. = #* * SEARCH.  * # * 
x x * x * 
BOE doi doi dk tok dokok SOR kK kok ak FOI IO ICRI SK koa a aca ok 
f--4------+ > 
+=+ 
V 
o*, STE 
Dlx. SRD 2 ok i kk 
J x, * x 
.* GET AN *. YES * GENERATE NEW # 
*e ARGUMENT ? . -~+ *TABLE ADDRESS. : 
x, o* | x x 
x, ye V FOS OR HHA RGR 
* 0 sok K 
xx * 
* AQ * 
* x 
KKK 
V 
o*. 
V E2 x, 
fototok EDokdoidk tok .* *, 
*TAKE A STORAGE * NO .* LOOP ENOUGH*. YES 
* DUMP . x to~ kl TIMES 2) Le aaa 
*& * * .* 
eT reT TSS Sree ss: x, wk 


LO 


CEL EM 


Ae He A A GK RK AK 


*LOCATE ELEME 
* ROUTIN 


* 
detesk kokok tok fe kok tek ok 


en ale ee A ee ee ee wee ne ant ah wuw age ~— + 


V 
te KC Ak a ex 
*PRINT 


Hm Kae Kat KK KK KK 


>* PRINT A LIN 


NT * 
* 


KKK 
* 


E * 


* FROM PRINT * 
x AREA. * 
He A OC Ke KCK 3 AR KK ok OK Ok OK 
V 

XK KK 

* x 

x Bl * 

* * 

KKK 


Te OK AS ok ok a ae ok ok 
* x 
*INITIALT ZATION * 


----- >* AND * 


x HOUSEKEEPING. * 
. K 
se Fe te Ro ke ok Ko oe ok ak ok 


M 
B5 *, 
o* K, 
NO .* ANY *, 
+-~ *. ARGUMENTS .* 
- LEFT ? ° 
x .* 
xe 4x 
* YES 
SOME LEFT 


sR C5 Ak ea tk ee 


* 
* SET UP AARGUMENT 
x ADDRESS. 

x z 
* * 
HK Ae KEK EK oi i ec ok fe ok fe ok ok ok 


+ Rae ae eee meee me ae cee eee anew ae aly 


Ka CED 5 kk ao a 


* 
SET UP DUMMY x 
ARGUMENT * 
ADDRESS (0). 
* 


HK RK CK AE KK a OK XC a Ek 


HK HF OH 


LOC 


O0009C 
000000 
OO0001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
OOCOO0A 
000008 
OOO000C 
cOCOOD 
COOOCE 
COOO00F 
O00009C 
OOOO9E 
CO00A0 
COOO0A4 
O000A8 
OOO0O0A8 
D9000A8 
= J000AC 
QOO0F4 
OOCOF 4 
D000F4 
OOOOFC 
COO0A8 
CO00A8 
000018 
000190 


DATA STORAGE AND RETRIEVAL T/A PROJECT 2. 


OBJECT CODE 


0001 
0005 
00000000 
00000060 


ADDR1 ADDR2 STMT 


SC5C5C5C5C5C5C5C 143 


F14040404040404C6 148 


SOURCE STATEMENT 


@DATAI 


aDATA 
DSAVOO2 


ASTERISK 


I 


AaCLOFL 
OUTAREA 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


V(LOCELEM) 
V{IPRINT) 

OF 

OD 

x 
aDATAt+O00000004 
ADATA+00000076 
* 


72 BYTE(S) ON WORD 


8 BYTE(S) 
C8 oe aK KE Ee 8 
@DATA+00000084 
ADATA 
00000088C 

TOP 3 

Ctli2i'.i' 


FULLWORD INTEGER 


00 EQUATES FOR REGISTERS 0-15 


FO8BAPR #0 


PAGE 4 


9/17/70 


00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
60013300 
00013400 
00013506 
00013600 
00013700 
00013800 
60013900 
00014000 
60014100 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 
00014800 


SSL 


DATA STORAGE AND RETRIEVAL T/A PROJECT 2. PAGE 5 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOBAPR70 9/17/70 
150 * * *® * * *K KX KK K KK KK KK K KH K KK KK K KK K KK K OK K K OK K OK QIGC1LSCO0 
151 x THIS IS THE DATA TABLE USED FUR THE BINARY SEARCH ROUTINE. 00015100 
152 * 00015200 
153 * ONLY THE ITEMS CONTAINING THE WORDS "THIS #3 "SHOULD *3 AND 00015300 
154 * "PRINT ©: SHOULD BE SEARCHED FOR BY THE PROGRAM. THE REST, C0015400 
155 * CONTAINING *DGNT USE', ARE JUST PADDING TO FILL THE TABLE 00015500 
156 * GUT TO 63 DATA ITEMS. 00015600 
157 * * KK KK OK OK KK KK KR KR KR OK KK KH OK KK KK OK OK OK OK OK OK OK OK OK OK OK OK OOOL5S7OC 

000179 000000 
00917C 00000000 158 TABLE OC Froe ARGUMENT 06015890 
000180 C4D6D5E340E4E2C5 159 DC CL8"*DUNT USE® FUNCTION 00015900 
000188 0000000C 160 DC Fiat ARGUMENT 00016000 
O0018C C4D6D5E34CE4E2C5 161 DC CL8*DONT USE? FUNC TION 00016160 
060194 6G0C00C18 162 DC FI248 ARGUMENT 00016200 
CO0198 C4D6D5E340E4E2C5 163 DC CL8"*DONT USE? FUNCTIGN 00016300 
0001A0 00000024 164 DC F'36! ARGUMENT 00016460 
COO1LA4 C4D6D5E340E4E2C5 165 DC CL8"°DONT USE? FUNCTION C001650C 
OOOLAC 00000030 166 DC Fe4ge ARGUMENT 00016609 
O001BO C4D6ND5E340E4E2C5 167 OC CL8"*DONT USE! FUNCT IGN 00016700 
CO01B8 9000003C 168 DC F'60! ARGUMENT 0C0168C0 
NO001BC C40D6D5E340E4E2C5 169 DC CL8*DONT USES FUNCTION 00016900 
9G601C4 00000048 170 DC F°72s ARGUMENT 00017006 
0001C8 C4D6D5E340E4E2C5 171 DC CL8"*DONT USE? FUNCTION 00617100 
COC1DO 00000054 172 DC Frege ARGUMENT 06017290 
000104 C406D5E340E4E2C5 173 DC CL8"*DONT USE? FUNCTION 00017300 
OOOLDC 00000060 174 DC Frgg? ARGUMENT 00017400 
COOLEO C4D6D5E340E4E2C5 175 oc CL8"DONT USE® FUNCTION 00017500 
COOLE8 9000006C 176 DC Fricst ARGUMENT 00017600 
OOO1LEC C4D6D5E340E4E2C5 177 DC CL@*DONT USE? FUNCTION 00017700 
OOC1F4 09006078 178 oc F'1208 ARGUMENT OO001L780C 
COOLF8 C4D6D5E34CE4E2C5 179 oc CL8*DONT USE? FUNCTION 00017900 
000200 00000084 180 DC F'132! ARGUMENT 00018000 
000204 C4D6D5E340E4E2C5 181 DC CL8"*DONT USE® FUNCTION 00018100 
00920C 00000090 182 DC F'144! ARGUMENT 00018200 
000210 C4D6D5E340E4E2C5 1 83 DC CL8"*DONT USE® FUNCTION 0001830C 
COC218 00000G9C 184 OC F'iset ARGUMENT 00018400 
COC21C C4D6D5E340E4E2C5 185 DC CL8*DONT USE? FUNC TION 00018500 
000224 000000A8 186 DC F'16s! ARGUMENT 00018600 
000228 C4D6D5E340E4E2C5 187 DC CL8"*DONT USE? FUNCTION 00018700 
000230 0000C0B4 188 DC F#1go8 ARGUMENT 0001880C 
009234 C4D6D5E34CE4E2C5 189 DC CL8*DONT USE® FUNCTION 00018900 
00023C 00C00GCO 190 DC F'192" ARGUMENT 00619000 
900240 C4D6N5E340E4E2C5 191 DC CL8"DONT USE® FUNCTION OCOL910C 
000248 O00000CC 192 DC Ft204% ARGUMENT 00019200 
00024C C4D6D5E340E4E2C5 193 DC CL8*DONT USE® FUNC TION 00019300 
000254 090000D8 194 DC F216 ARGUMENT 0CC19400 
000258 C4D6D5E34CE4E2C5 195 DC CL8*DONT USE? FUNC TION 00019500 
000260 O000000E4 196 ie F'22g8 ARGUMENT 00019669 
000264 C4D6D5E34CE4E2C5 197 DC CL8'DONT USE? FUNCT IGN 9G01L97CC 
COC26C ODI0000FO 198 oC F240" ARGUMENT OO0198CO 
900270 C40605E340E4E2C5 199 DC CL8'*DONT USE? FUNCTION 900199C0 
000278 DJOCOCOFC Doe OC F'2523 ARGUMENT 0002000 
00027C C4D6D5E34CE4E2C5 201 DC CL8"*DONT USE® FUNCTION 00u20100 
000284 COCd01C8 202 CC F'264e 6C020200 
CO9288 E3C8C9E240464040 203 DC CL8* THIS! 00020300 


LOC 


000290 
000294 
00029C 
0002A0 
0002A8 
O0O02AC 
000284 
0002B8 
0002C0 
0002C4 
0002CC 
0002D0 
0092D8 
0002DC 
O002E4 
O002E8 
N002FO 
O002F4 
OOO2FC 
000300 
000398 
00030C 
000314 
000318 
_,000320 
9900324 
00032C 
000330 
000338 
00033C 
000344 
000348 
000350 
600354 
00035C 
000360 
000368 
00036C 
000374 
000378 
000380 
000384 
0003aC 
000390 
000398 
CO039C 
0003A4 
0003A8 
0003B0 
0003B4 
0003BC 
0003C0 
0003C8 
0003CC 
C003D4 


DATA STORAGE AND RETRIEVAL T/A PROJECT 2. 


OBJECT CODE 


00000114 
C4D6D5E340E4E2C5 
00000120 
C4D6D5E340E4E2C5 
0000012C 
C4D6D5E340E4E2C5 
00000138 
C4D6D5E340E4E2C5 
09000144 
C4D6D5E34CE4E2C5 
00000152 
E2C8D6E4D3C044040 
090C015C 
C4D6D5E34GE4E2C5 
00000168 
C4D6D5E340E4E2C5 
000001 74 
C4D6D5E340E4E2C5 
00000180 
C4D6D5E34CE4E2C5 
600001 8C 
C4DED5E340E4E2C5 
00000198 
C4D6D5E340E4E2C5 
SOOOOLA4S 
C4D6D5E340E4E2C5 
000001B0 
C4D6D5E340E4E2C5 
OCOOOLBC 
C4D6D5E340E4E2C5 
00C001C8 
C4D6D5E340E4E2C5 
00000104 
C4D6D5E340E4E2C5 
OOOOCG1EO | 
C4D6D5E340E4E2C5 
OOOOOLEC 
C4D6D5E340E4E2C5 
OQ000CIFS8 
C4D6D5E340E4E2C5 
00000204 
C4D6D5E340E4E2C5 
0000C210 
C4D6D5E340E4E2C5 
0900021C 
C4D6D5E34CE4E2C5 
00090228 
C4D6D5E340E4E2C5 
0000022E 
D7D9C9D5E3404040 
00000240 
C4D6D5E340E4E2C5 
0000024C 
C4D6D5E340E4E2C5 
00000258 


ADDR1 ADDR2 


STMT 


SOURCE STATEMENT 


F®*276° 
CL8* DONT 
F*286' 
CL8*DONT 
F'300! 
CL8'DONT 


FEsi2t 


CL8*DONT 
F324" 
CL8"DONT 
F'338! 


USE* 


USE! 


USE* 


USES 


USE! 


CL8*SHOULD® 


F'3488 
CL8* DONT 
F'360° 
CL8*"DONT 
F372" 
CL8*DONT 
F'3849 
CL8"DONT 
F'396! 
CL8*DONT 
F'408! 
CL8" DONT 
F'420" 
CL8 "DONT 
F'4328 
CL8"DONT 
F'444e 
CL8* DONT 


F'456! 


CL8*DONT 
F°'468! 
CL8 "DONT 
F'480! 
CL8"*DONT 
F'ag2* 
CL8* DONT 
F504" 
CL8*DONT 
F*516! 
CL8'DONT 
FYSoZzs* 
CL8* DONT 
F*540! 
CL8*DONT 
bt 552" 
CL8* DONT 
F°5588 


USE' 


USE! 


USE® 


USE* 


USE? 


USE! 


USE! 


USE* 


USe* 


USE* 


USE! 


USE" 


USE? 


USE* 


USE? 


USE! 


USE® 


USE! 


CL8"*PRINT® 


F'576! 
CL8"*DONT 
F'5ggt 
CL8 "DONT 
F'6008 


USE 


USE® 


ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCT ION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNC TION 


ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCT fON 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNC TION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 


ARGUMENT 
FUNCTION 
ARGUMENT 
FUNCTION 
ARGUMENT 


FO8APR/0 


PAGE 6 


9/1 T/TC 


00020400 
00020500 

00020600 

00020700 
00020800 
00020900 
00021000 

00021100 
00021200 

00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
0002220C 
0002230C 
00022406 

96022500 
00022600 
00022700 
00022800 
00022900 
00023000 
00023100 
00023200 
00023300 
00023400 

00023500 
00023600 
00023700 
00023800 
00023900 
00024000 
00024100 
00024200 

00024300 
00024400 
00024500 
00024600 
00024700 
00024800 
00024900 
00025000 
00025100 
00025200 
00025300 
00025400 
00025500 
00025600 
00025700 
00025800 


L£SL 


LQC 


0003D8 
OO03E0 
COO3E4 
OOCZEC 
00C03F0 
COU3F8 
CCO3FC 
009404 
000408 
000410 
CO0414 
CCO41C 
000429 
C09428 
00042C 
200434 
900438 
C00440 
00444 
00044C 
0CC450 
G0C458 
00045C 
00C464 
C00468 


000470 
200470 
990474 
OG0476 
000476 
OOC4TA 
SCC4 IC 
000480 
200484 
O0°C0486 
COC4BA 
09048C 
OCO49G 
COG494 


COC496 
903498 
COC4A4 
OO004B0 


DATA STGRAGE AND RETRIEVAL T/A PROJECT 2. 


OBJECT CODE 


C4D6D5E340E4E2C5 
00000264 
C4D6D5E34CE4E2C5 
00000270 
C4D6D5E34CE4E2C5 
NO00027TC 
C4D6D5E34CE4E2C5 
00000288 
C4DBD5E340E4E2C5 
00000294 
C4D6D5E34CE4E2C5 
DICOGZAC 
C4D6D5E34CE4E2C5 
CO0002 AC 
C4D6D5E34CE4E2C5 
00000258 
C4D6D5E34CE4E2C5 
00C002C4 
C4DE05E340E4E2C5 
00c0G2D0 
C4D6D05E340E4E2C5 
000002DC 
C4D6D5E340E4E2C5 
OOCO02ZE8 
C4D6D5E340E4E2C5 


SOEC 
O5C9 


9857 
1255 
4780 
8756 
1855 
9957 Cl2z2 
LELS 

98EG DECC 
982C DOC 
O7FE 


OCC 
DIOCDI4ZAC OG CGU COS 
990001 08000G0152 


ADDR1 ADDR2 


O0900C 


00498 


C048A 
C04 86 


90496 


QOOORC 
GOcIC 


STMT 


259 
260 
261 
262 
263 
2 64 
265 
266 
267 
268 
269 
270 
271 
22 
2¢3 


274. 


275 
276 
277 
276 
219 
230 
281 
2 82 
283 


285 
286 
287 
288 
289 
Z9°) 
291 
292 
23 
294 
295 
296 
297 
298 
299 
39C 
Sol 
302 
3C3 
304 
B05 


Boe | 
3C3 
309 
310 


SOURCE STATEMENT FO8APR70 
DC CL8"*DONT USE! FUNCTION 
BC F®*612* ARGUMENT 
DC CL8*°DONT USE FUNCTION 
DC F'624! ARGUMENT 
DC CL8"*DONT USE® FUNCTION 
DC F°636' ARGUMENT 
DC CL8"*DONT USE* FUNCTION 
DC F®'648! ARGUMENT 
DC CL8"*DONT USE? FUNCTION 
DC F'660! ARGUMENT 
DC CL8*DONT USE FUNCTION 
DC F'672t ARGUMENT 
DC CL8*DONT USES FUNCTION 
DC F'684!? ARGUMENT 
DC CL8*DONT USE® FUNCTION 
DC F'69e? ARGUMENT 
DC CL8*DONT USE! FUNCTION 
DC F®7cs' ARGUMENT 
DC CL8*DUNT USE® FUNCTION 
DC ETT 20" ARGUMENT 
DC CL8"*DONT USE® FUNCT ION 
DC PY rseF.~ ARGUMENT 
DC. CL8*DONT USE® FUNC TION 
DC Ft744?* ARGUMENT 
DC CL8*DONT USE® FUNC TION 


he ste ste oe le ote She she le He he he ale He oe he ak ole te ee ek KH ste He ke o& Sle oe ok ole Hee le Ye oe Soot oe te ste He ole ee oe oie He oe ae He ee Hee ie ke & 
SK OE IS KE KS KOK ARE OK OK AK Ae AK IE OK OK Ne OK AK OAK KOK AK AK EK OK OK OK IS AK AE AK AE OK OOO OK AE KK EK OK SIS OK AK OIE A IK OI IK KK CE OK OK OK OK 


THIS IS THE SUBROUTINE WHICH PASSES THE SEARCH ARGUMENTS TO 
THE MAIN ROUTINE. THE ARGUMENTS ARE CONTAINED IN THE TABLE 


a 


CALLED "LOOKUP®. 
HE 3 oie a ic oe Es ok oi Xe ok i a aK i AE RS NSS SK KK ORS OK RK IK OK Ee OK OK OE RE AE OE OK OK EK A OK NK AE AE AK RE OK OK AE EK OK AK EE OK OE KK OK RE OK OK 
OCELEM CSECT 

STM @E,a~C,12{(aD) 

BALR aC,a0 

USING LOCELEM#00Q0000006,aC 

LM a5a7,CONSTANT 

LTR V5_—9a5 IS DUMMY STILL COMING BACK ?? 

BC C8yRETURN YES, GIVE HIM NOTHING. 

BXLE @5,a6,SQMELEFT STILL SOME LEFT, GIVE HIM ARGUMENT 

SR a55a5 NONE LEFT, GIVE ZERO ADDRESS. 
SCMELEFT STM 05,07, CONSTANT SAVE DATA FOR NEXT TIME. 
RETURN LR a1l,a5 

LM ME,d0,12(00) 

LM a2,aC,28( 0D) 

BCR 15sa@E 


A(LCOQKUP-4,4,LQQKUPND-1) 
—F' 264,338,558! 
* 


CONSTANT CC 

LOOKUP DC 

LOOKUPND EQU 
END 


PAGE ¢ 


9/1T/TO 


00025900 
QOG026000 
OCO26100 
0C026200 
C0026300 
00026400 
00026590 
00026600 
00026700 
0002680C 
00026900 
O0027CCO 
00027100 
00027200 
00027300 
CGO27400 
C0027500 
00027600 
00027700 
00027806 
009027900 
OCO028006 
00028100 
CO0028200 
©0028306 


00028500 
00028600 
GC028700 
00028800 
00028900 
00029G0C0 
00029100 
00029200 
0062930C 
00029400 
00029500 
QOO0G29600 
00029700 
O0C029800 
00029900 
CO030000 
0G0301CC 
06030200 
00030300 
0C030400 
000305900 


C0030 7G0 
00030800 
00030°090 
00031C0C 


RELOCATION DICTIONARY PAGE 1 


POS.ID REL.ID FLAGS ADDRESS 9/17/70 
Ol 02 LC VOOOAO 
Ol 03 1C OO00A4 
04 G4 OC 000498 
04 04 GC COO4A0 


~~ 
oI 
ioe] 


CROSS~REFERENCE PAGE 1 
SYMBOL LEN VALUE DEFN REFERENCES 9/17/70 
aA 60001 OOODO0A JOl27 ; 
aB 0O0CC1 OCOO00B 00128 0029 0030 
ac 00001 GOQOO00C 00129 0028 O091 0293 0294 0295 0304 
AaCLOFI 00004 060018 00147 
aD OOO0Gi OO0CTD C0130 0028 0031 0033 0034 0090 0090 0091 0293 0303 0304 
DATA 00001 O000A5 00139 014C 0141 0144 0145 
@DATAI C0001 COO09C 90116 
aDOSFE 00004 OQO00C5E 00067 
aDOSF? C0004 000034 00053 0069 
aDl 00002 O0009C 00133 0066 
aD2 00002 OOOCIE 00134 0068 
ae 00001 COOCOE 00131 0028 0041 0076 O091 0092 0293 0303 0305 
MELC2 00002 000090 00089 0043 
aF 000C1 GOGOOF 06132 0032 ©6033 0034 0040 0041 0051 0051 0052 0053 0054 0057 0058 0059 0060 0061 
0062 0062 0063 0064 0065 0066 O067 0068 0075 O07%76 QO082 0083 
VSAVOO2 00001 COOGOAC 00140 0031 0032 
aV2 00004 GOOCAG 00135 0040 
aV3 00004 Q000A4 00136 0075 
aQ 000G1 900000 O0117 0029 0294 0303 
a1 009001 00CCO01 00118 0042 C042 0053 COl4 0302 
a2 00001 vIvaue2 96119 0304 
a3 COO0G1l GOCG03 00120 
a4 00001 000004 00121 
a5 039001 000005 00122 0038 0C39 0054 0060 0082 0296 0297 O297 0299 Q300 0300 G301 0302 
gz a6 QO001l 0000G6 00123 0037 ¢O057 0058 0059 O061 0064 0299 
©o a7 00001 GCOCO7 C0124 0035 0039 0296 0301 
a8 00001 000CC8 00125 
ag 00001 000609 00126 
ASTERISK 000G1 GGOUGF4 00142 0073 
BINARY 00001 QQG000 GO0027 0030 | 
CONSTANT ©9004 000498 CC307 0296 0301 
FOUND 00004 G00082 00082 0055 
I Q0001 OGOOFC 00144 0052 0065 Q067T 
LOCELEM O0CC1 COC470 00292 0295 
LNOKUP 09004 0004A4 003C8 0307 
LOOKUPND O00G1 0004B0 06309 0307 
QUTAREA OC121 00CG100 00148 CO73 0074 OO7T7T C083 
PRINTIT G69004 CG0074 00075 0084 
RETURN O9002¢ GCO48A GU302 0298 
SOMELEFT 00004 006486 0U391 0299 
STEP 00002 000048 00059 0056 
TABLE 06004 GOG1IC 00158 0035 
TOP3 CQ004 GCOCU18 0U037 0078 0147 
NQ STATEMENTS FLAGGED IN THIS ASSEMBLY 
*STATISTICS* SOURCE RECORDS (SYSIN) = 310 
*QPTIONS IN EFFECT* LIST, NODECK, LOAD, NORENT, XREFe NOTEST+ ALGNy OS, LINECNT = 55 


382 PRINTED LINES 


MO 


Pe 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARTABLE OPTIONS USED - SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
TEWOO00 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTIUN ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 

BINARY ore 470 

LOCELEM 4170 40 

UTILITY 4B0 5A0 

PRINT 512 PCHKRETN (6E 
ENTRY ADDRESS 4B0 
TOTAL LENGTH A50 

RK KRG O DGES NOT EXIST BUT HAS BEEN ADDED TG DATA SET 


O9L 


36 AE KK KK OK 
3K 3K OK 3K 2K aK KK 
3K A OK ae aK aK ok 


161 


E2.E3D6D9 /CE3C1F2 00.000000 OCO000000 


FeP. REGS. O00.010248 00000088 01.C60A00 DOOOFSIIL 
REGS O-7 FFFFFF2E OG000000 OOOICEIC 00000000 00015110 COO3FOAC QOQOQOOOCO QOOZEF2C 
REGS 8-15 COOICEGO 0Q000000 OOCOLCE28 6FC3ZEDBE 400fECA2 OOOZEE5C 6FO3ZEDD8 CO003F220 
CQ0099 00000000 C00GC0N00 00000000 00000000 OOOZEDBO 00000000 FFOGND0DN BO0DQD0D0D Feccccccceccccsccsrecevsessescccsce™ 
000020 FF 040003 4007803A FFD50001 4FO3EE42 OOOCFFOO OGO00000 FE040234 BO0COOADG Kee ee eee eNe conve eevrevcessccsvese™® 
060040 C0001360 G8000000 000014D0 00005920 O2CO2TA4 0000996C DD040000 DODD T4EIB Kee cceccrecccccrescecccccccsvcssce® 
000060 00040000 Q0007BC8 00040000 00007588 ODOOOCONO OCCO12D1C CON4OOCO OOOO TSIA Face eereHeseccvesecesvcsecsscccse® 
O3EDAQ 98EFOCC6 S8IiO09SCCE D?7O39BEE 9BEEDTOL Q9OECDOCC C5BC50D0 BOAA4SLFO BOAG5OFO Fee eF acc cP occ e Pac cccccvecceUoe ol% 
O3ZEDCO DOO818DF 41708176 416000C0 41500180 LA5758FO BOGAOS5SEF 12114780 BOBALBFF Fee ccc rc cr cece asc ce ee cccccvccsee® 
CZEDEO 5OFOBOF6 58FUL000 59FO5CO00 4780B07C 4740B042 13F6186F L8F6LA5F LBFOLOFF *.0.GeOe ee Oe cece ne secbv ee Gee eben e® 
OZEEO0O 8AFGOCGO1 186F58FC BOF64AFO 809650F0 BOF649FO BO9847ICO BOZEDZOT BOFBBOEE 9 * De eee Deb eDe ee eb eDee cee eKereae® 
O3EE20 411CBOFA 58FOBOSE OS5SEF9240 BOFA4STFO BOL2Z41FO 50C8D207 BOFBFOCO 4TFOBOGE Fee eee Dee eee 2 eee sDe eKe oe De eee * 
O3EE40 OCOC58DG DUO498EC DOOCOTFE 00010005 OCOO3F220 O0OBF2ZC2 60124710 G2E492Z1C  Fececccccr en ccccesertees2BeeeeeVee*® 
O3ZEE60 IGO4AF6E COUG3F5E0 6FOZEDD8 O0C03F220 FFFFFF2ZE OOO3EEBO OOOICEIC OCOODDOCO Feces eed eee ee Qe eZaneveccccesecseseX 
O3EE8O 9001511C OOOSFOAC OCOO00CO JOOZEF2ZC OCO1CEOO COO0000D OODICE2ZB GFOZEDR EG Freee eee De eecceevneevscsesecsessee® 
O3ZEEAC 4007ECA2Z 5C5C5C5C 5C5C5C5C 00000C06 405C5C5C S5CS5C5C5C 50404640 40404040 F weccrcccesce see seosceeee * 
O3ZEECO 40404040 40404040 40404040 40404040 40404040 40404040 404C4040 40404040 * * 
OZEEEO 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 * * 
O3EFOO 40404040 404C0404C 40404040 40404040 40404040 40404040 40404040 4040404G * * 
OZEF2Z0 40404046 40404040 4G000C0C O0C0000S0 C4D6ED5E3 40E4E2C5 OQOOQDOO0C C4D6D5E3 * eoeese es DONT USE-.- -DONT* 
OBEF4C 40E4E2C5 QOO0COCI18 C4D6D5E3 40E4E2C5 00000024 C4D6D5E3 40E4E2C5 GC00G003C * USE....-DGNT USE....DUNT USE....* 
OZEF60 C4D6D5E3 40E4E2C5 00000C3C C4D6D5E3 40E4E2C5 00CC0048 C4D6D5E3 40E4E2C5 *DONT USE...eDONT USE.~...-DUNT USE* 
~O3EF80 00000054 C4D6D5E3 40E4E2C5 00090069 C4D6ED5E3 40E4E2C5 OOGOCCEC C4D6D5E3 *....DONT USE..-e- DONT USE... -DONT* 
@ O3ZEFAO 40E4E2C5 GCU0007T8 C4D655E3 40E4E2C5 O00C0084% C4D6ED5E3 40E4E2C5 CO000090 * USE.~...DONT USE....DONT USE. 2 -* 
~ O3EFCO C4D605E3 40E4E2C5 0000009C C4D6D5E3 40E4E2C5 OO00U00A8 C4D6D5E3 40E4E2C5 *DONT USE...eDONT USE.-e-DONT USE* 
O3FFEQ OOCCOCB4 C4DED5F3 40E4E2C5 GO0000TS C4D605E3 40E4E2C5 OOOCOOCC C4D6D5E3 ¥*...e-DUNT USE.-.- DONT USE....DONT* 
O3F090 4Q0E4E205 COOCCOD8 C4DED5E3 40E4E2C5 COOOD0E4 C4D6D05E3 40E4E2C5 OOODD0FO * USE...-QDONT USE..-UDONT USE...0* 
O3FO20 C4D6D5E3 40UE4E2C5 OOOCOOFC C4N6D5E3 40E4E2C5 00000108 E3C8C9EZ2 40404040 *DONT USE....DONT USE...eTHIS * 
O3F 046 90000114 C4D6D5E3 40GF4E2C5 09000120 C40D6D5E3 40E4E2C5 000C012C C4D6D5E3 *...-DOUNT USE.-.e-DONT USE... -DONT* 
O3F060 4CE4E2C5 G0000138 C4D6D5E3 40E4E2C5 0OG0G0144 C4DED5E3 40E4E2C5 COCO0152 * USE.~.«.eDONT USE...-DONT USE. * 
3F C89 E2C8D6E4 03044040 0000015C C4D6D5E3 40E4E2C5 CO000168 C4D6D5E3 40E4E2C5 *SHQULD ....-DUNT USE..--DONT USE* 
O3FOA0 00000174 C4D6D5E3 40E4E2C5 909000180 C406C5E3 40E4E2C5 OODO0L8C C4D6ED5E3 *.2..DONT USE.eee- DONT USE...-DONT* 
O3FOCO 40E4E2C5 0o900198 C4D6D5E3 40E4E2C5 OSCOOLA4 C4D605E3 40E4E2C5 OOO001LBO * USE....-DQNT USE...-DONT USE. .-% 
O3F0E90 C4U6D5E3 4GE4E2C5 OCOD01BC C4D6D5E3 40E4E2C5 OCOOOIC8 C4D6D5E3 40E4E2C5 *DONT USE...eDONT USE..e«HDONT USE* 
O3F100 9CUCG1D4 C4D0D5E3 4CE4E2C5 GOOOULEC C4D6D5E3 40E4E2C5 OOOOOLEC C4D6D5E3 *...MDONT USE....-DONT USE... -DONT* 
93F120 40E4E2C5 YOOOO1F8 C4D6D5E3 40E4E2C5 000C0204 C4D6D5E3 40E4E2C5 06000210 * USE..«.«8DUNT USE... DONT USE....% 
O3F 140 C4D6D5E3 40E4E2C5 000U021C C4DED5E3 40E4E2C5 00U00228 C4D6D5E3 40E4E2C5 *DONT USE...-DONT USE... -e-DONT USE* 
03F16G OOCGO2ZZE DIDSCISN5S £3404C040 00000240 C40ED5E3 40E4E2C5 O000024C C4D6D05E3° *...ePRINT eee DONT USE.ee DONT 
O03F180 40E4E2C5 GO9C0258 C4D6D5E3 40E4E2C5 000C0264 C4D6D5E3 40E4E2C5 O0000270 * USE.~...-DONT USE..--OUNT USE... 2% 
O3FLA0 C4D6D5E3 40E4E2C5 9000027TC C4D6D5E3 40E4E2C5 GO000288 C4D6D5E3 40E4E2C5 *DONT USE...eDUNT USE....DONT USE* 
O3F1CO O0C000294 C4D6D5E3 40E4E2C5 OUCO02A0 C4D6D5E3 40E4E2C5 OO0002Z2AC C4D6D5E3 *...eDUNT USE.-.-DONT USE... e-DONT* 
OZF1E9O 4CE4E2C5 000002B8 C4D6D5E3 40F4E2C5 000002C4 C4D6D5E3 40E4E2C5 OCO002ZDC * USE....DONT USE..-DDONT USE... .¥* 
93F 200 C4D6D05E3 40E4E2C5 O000002DC C4D6D5E3 40E4E2C5 CO9002ZE8 C40D605E3 40E4E2C5 *DONT USE....DONT USE.~.-YDONT USE* 
3F 220 9CECDOOC O5CG9857T CO0221255 4780C014 8756C010 18559057 CO0221815 GBECDOOC Feveceveescsss veces cvssscesccsese® 
03F240 982CD01C GIFEGOOO OOCVOCOD DDGOCOC4S ODOBF2Z5F OCCOCOLCB DODD01L52 OOOCOZZE Keceeecevccsveevreveleseccssevssee® 
O3F260 SCECDOOE CSCOO4FO 07004110 CO0100511 OFC3F304 TFFFOAQE S8BO0C1O JFDLLOBOT4 Fee ee ve eDenevenensedeesssesecesee® 
93F820 5O04G10U1U0 434CA008 12444780 88504820 ACGE5420 BA9SE4TB8O 8TFCO620 SAZ0BOLO Fe wee voce verccceccccsssscccceseX® 


he oe oe a ae fe RR Re RR a CR RK a Ca fe a a ae ak af 2 2 a ae oe ee a ae a a ae ae a ea Sa of fe 2h 2 a i a A Oe Re a Ce a 2 OR a Re Re 2 2 a ao 2 a a CC CO A RE Re Re a Ca aR a 2 A A CR EO iC FE a a ee CO a aE 


EOL 


SSSSSSSSSS 
SSSSSSSSSSSS 
SS SS 
SS 
SSS 

SSSSSSSSS 

SSSSSSSSS 
SSS 

SS 

SS SS 
SSSSSSSSSSSS 
SSSSSSSSSS 


OCOO0NR0000S 


OOO0GCN000000 
00 00 
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00 00 
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000000000000 
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VSL 


SYMBOL 


SORTTECH 
PCHKRETN 


TYPE ICD 
SD O01 
ER C2 


AUDR 


LENGTH LD ID 


EXTERNAL SYMBOL DICTIONARY 


14.19 
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9/16/76 


PAGE 1 

(oc OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FOBAPRIO 9/16/76 
oa 1 SORTTECH CSECT OOQ0010C 
2 COPY MHMBEGIN 00000200 

O09000 3 RO EQU 0) O0COC 7900 
OOCOO1 4 Ql EQU 1 0OOCO0080C 
COC002 > R2 EQU 2 OGO0090E 
C00003 6 R3 EQU 3 OQ00C1G00 
090004 qT R4 EQU 4 00001100 
009005 8 R5 EQU 5 O000120C 
00C906 9 R6 EQU 6 OOCO130C 
CO000T7 10 R7 EQU q 00001460 
800008 il R8 EQU 8 00001500 
000069 12 R9 EQU 9: OOCOGLECO 
DOOS0A 13 R10 EQU 10 OVOVOLTGO 
~OS008 14 R11 EQU ll OCOO180C 
BARN 16.61 5 T> REZ EQU 12 QOO00190C 
vQod00D 16 R13 EQU 13 COCO 2S909 
DOIGOOE 17 R14 EQU 14 GUQG2Z1LOC 
DOUQOF 18 R15 EQU 15 00002200 
COOV0G GOEC DGOC O9CO0C 19 STM R1L4,R12,12(0R13) SAVE THE CALLER'S REGISTERS COQ0249C 
200004 O5C0 20 BALR R1l2;0 ESTABLISH PROGRAM BASE U0O02 500 
CO0006 2i USING *,R12 LET THE ASSEMBLER KNQW. COCO026909 
090006 41FOQ C1B6 3018C Die LA RL5_9SAVEAREA ADDRESS QF MY SAVE AREA COCO2 TOO 
CQOIDOA 5SOFD 0008 OCCO08 23 ST R15,8(R13) BACKWARD CHAIN C0002 80C 
OOCOOE SCDF C004 OCCO4 24 ST R1394(R15) FORWARD CHAIN GO0002900 
aCO000O12 L&DF 25 LR R13,R15 cSTABLISH MY SAVE AREA OCCO30CO 
aco0014 07032 Duc& DGG8 04008 00008 26 XC 8(4,K13),80R13) TEKMINATE THE FORWARD CHAIN O0CC310u 
ot % END DF STANDARD ENTRY LINKAGE CONVENTIONS. 08003200 


Ze PRINT OFF : GCCCO38G0C 


99L 


STMPLE SELECTION.. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


PAGE 2 


SOURCE STATEMENT FO8APR70 9/16/70 
BE AG AS HK OK IC 2 oC aK A 2 a AC I ie EK OK CC I ei I COC 2c Oe OK AE EK A OIC I A AC OK OK KC AE OK OK KKK KE KKK EK QOOOOLCIO 
* . . 00001100 
* THIS TS AN EXAMPLE QF THE "SELECTION"’ METHOD OF SORTING. 08001200 
* 000013006 
* BASICALLY, THIS SORT COMPARES EACH ITEM IN THE LIST AGAINST G0001400 
* THE FIRST IN THE LIST. WHENEVER THE FIRST [IS LARGER THAN 00001500 
* THE OTHER, THEY ARE EXCHANGED. AT THE COMPLETION OF A 00001600 
* SINGLE PASS THRGUGH THE LIST (CALLED A "SCAN"), THE SMALLEST 00001 700 
* ITEM HAS BEEN MOVED TO THE FIRST POSITION IN THE LIST. 00001800 
* THE NEXT "SCAN" TS STARTED WITH THE NEXT (SECOND) POSITION 00001900 
* IN THE LIST. CONSIDER THE FOLLOWING: Q00C2C00 
* 00002100 
* LEGEND: EACH VERTICAL COLUMN SHOWS THE ORDER GF THE LIST AT 00002200 
* THE END OF A SCAN. THE ORDER PROCEEDS FROM LEFT TO 06002300 
* RIGHT. SCAN #0 IS THE ORIGINAL VALUE OF THE LIST. 0000240C 
* THE + SIGN TO THE LEFT OF A NUMBER INDICATES THE COUG25C0 
* STARTING POINT FOR THE NEXT SCAN. 0OCO2600 
* GO0027CO0 
* SCAN #0 #1 #2 #3 #4 = #5 00002800 
** 00002900 
* ** +5 1 1 1 1 1 N = THE NUMBER OF ITEMS IN LIST. Q0003000 
* D 6 +6 2 2 2 2 00063100 
* A 4 5 +6 3 3 3 NUMBER OF SCANS = N-l. 00003200 
* T 1 4 5 +6 4 4 NUMBER OF COMPARES = NON-1)/2. 00G03300 
** A 2 2 4 5 +6 5 MAXIMUM NUMBER OF DATA MOVES 00003400 
* * 3 3 3 4 5 6 = N(N-1)/72. 00003500 
*x 00003690 
eK oe i a 2 a oi a oa OK KE ORC RC RC a Ca I AE OR OK CE 2 OK a ea RE aC 2 2 OIE i CK Oe a IK OK KO OK ie aK OK OK KKK KK OOO03 700 


LOL 


OUTSLECT 
OK AZ tok eK 
gr hee eet * SET UP * 
START * * ADDRESS OF x 
*SELEC TEON. SORT. : Seater = NEXEL IPT EM IN _.* 


A * THE LIST  * 
vee) ak oe Sane x * 


HK 3 Fe He eK eK 


V 
INSELECT  .*. 
B3 Ke 


.* * 
NO .* ITEMS OUT 
== eee SEQUENCE 
"ey x 

x, 
* “YES 


V 
MEA A C2 a fe oe ek a ok ak ok 
* * 


* EXCHANGE THE ¥* 
* TWO ITEMS. x 
* x 
* * 
WE XK He Ee ak eo oo ok ke 
tancananna > 
NOCHANGE .*. 
*, ok D4 kK Ok 
* *, x x 
~*END OF THIS*. NO * SET UP THE * 
~ SCAN ? 2 —------>*ADDRESS OF THE * 
% as * NEXT ITEM x 
*, got *K xk 
x, . * He Heo eX i 2 Ke 
* YES 
V 
siedek ae FINDLOW 
KK AK HK KE Ge aK KK KKK 
* * NO .*END OF THE *. YES * 
* AR #K---— *, LIST J a= >* RETURN * 
* * ok, x * x 
KOK KK *, ox MK IKK CK AK ie eA KKK 


89L 


Lac 


O5002A 
DO002E 
900032 
000036 
Q0003A 
900040 
CC0044 
QO004A 
069050 
0906056 
000C58 
COCG5C 
909060 
900064 
009C68 
O0066C 


009070 
COOO07C 
900C7C 
OGOOTE 
000080 


SIMPLE SELECTIUN.. 


OBJECT CODE 


412C 
4830 
4146 
4154 
D591 
41746 
D201 
D201 
201 
1952 
47B0 
4155 
47FO 
4144 
4630 
47F0O 


COT74 
COT6 
CO6A 
0002 
4000 
CC5C 
C076 
450C 
5009 


CO5E 
OG02 
C034 
0002 
C030 
CCTA 


ADDR1 


5000 0G9GO0 


4000 GOOTE 
5000 I00CCO 
C078 00000 


C043 003A0062G6G2D 


0005 


9000 


ADDR2 


OOUTA 
OOOTC 
00079 
00002 
Oo000 
00056 
00090 
90000 
OCCTE 


90064 
00002 
9003A 
00002 
00036 
COG8C 


STMT 
75 
16 


SOURCE STATEMENT 


OUTSLECT 
INSEL ECT 


NOCHANGE 


SELECTST 


SELECT 
SELECTND 
#OFSCANS 
SELECTMP 
FINDLOW 


ot 36 HH Hh He HH HH 


4% 


HH OH 


THIS ROUTINE USES THE 


"SELECTION" 


FO8APR7/0 


é 
HR HAE CC OE A AK A OK IC AE A AE AE OK OC IE IC OC OR Oe AE CE AK gO OC KS IC AS AC IE OK eC RK AC EC IE RE IE EE OK OK AS OK OK OK AS OK IE AE AK KK AE IK OK FE IE Oe XE OK 


METHOD QF SORTING TO SORT 


A LIST OF HALF-WORC BINARY QUANTITIES INTO ASCENDING ORDER. 
A DUMP WILL BE TAKEN AT THE END OF THE ROUTINE TQ VALIDATE 
THE SORT BY CHECKING THE LIST IN THE DUMP. 


INITIALIZE THE LCOP CONTROLLING REGISTERS. 


LA R2,SELECTND-~L* SELECT ADDR. OF LAST ENTRY 

LH R3_,#OFSCANS NUMBER OF SCANS TO BE MADE. 
LA R4,SELECT ADDR. OF LOW END OF LIST. 
LA R5eL"*SELECT(R4) NEXT ITEM IN LIST. 

CLC O(L*SELECT,R4),0(R5) OUT GF SEQUENCE ?? 

BL NOCHAN GE NO. 

MVC SELECTMP,0(R4) YESs+ EXCHANGE 

MVC O(L*SELECT R4),0(R5) THE TWO 

MVC OC(L®SELECTyRSOV,SELECTMP ITEMS. 

CR R5_R2 END OF THIS SCAN ?? 

BNL SELECTST YES. 

LA R5y9L'SELECT(R5) NO, POINT TQ NEXT IN LIST 
B INSELECT AND CONTINUE THE SCAN. 
LA R4yL*SELECT(R4) SET NEW COW END QF LIST. 
BCT R3,QUTSLECT TF NOT FINISHED, BEGIN NEW SCAN. 
B FINDLOW SKIP AROUND TABLES. 

DC H*6179585998545,y 3,098 

EQU - 

OC AL2((CSELECTND-SELECT)/L'SELECT)-—1) 

DS H 

DC H'O* DUMP TO VERIFY SORT 


3 3 ofc a oC KC 2 Cae ake oie a 2c 2K a 2 ie a 2 KC aK Kc ic fe ae Re a ie ie fe ae A EE IC OE A RE I OO AE SE OE Of i RE RE BKC IE SEE SI IS OK KAR SE OK OK AK AE Be IE 


ANSWER THESE QUESTIONS ABOUT THE SELECTING TECHNIQUE AND 


CODING EXAMPLE. 


l. 


2 


WHAT WCULD BE THE RESULTS 
"EINSELECT +6! 


WERE 


USING THE DATA IN 


* BH ¢ 


PSELECT * 5 


WRITE YOUR ANSWERS IN THE LEFT MARGIN. 


OF THE SORT IF THE BRANCH AT 
RATHER THAN 


TBE 


HOW MANY TIMES WILL THe 3 


MVC" INSTRUCTIONS 6E EXECUTED DURING THE FIRST SCAN ? 


3. WHAT POSITION IN THE LIST WILL THE 58 OCCUPY AFTER SCAN 2 ? 


WHEN YGU HAVE ANSWERED THESE QUESTIONS, 


OF YOUR 


WANSWER CUE". 


DISPLAY THE GREEN SIDE 
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OCCO5C00 
00005100 
00005200 
00005300 
C00054S00 
00005500 
00005660 
00005700 


06005900 
OOC0ECOO0 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
OCO046700 
00006800 
OCC06909 
oo0co7TCOO 
00007109 
O0COT200 
00007306 
000c74CC 
00007500 
00007600 
00007700 


00007900 
00008C00 
00008100 
OCOG8200 
00008 300 


GO008506 
UCOCB6CE 
00C08700 
900C8aTC 
00008900 
00009C00 
00009100 
00C09200 
00009300 
00009400 
00009500 
00UGG600 
VOOOST00 
00C09800 
00009900 
COOLO000 
OCO010100 


40.04D132 00000050 


FeP. REGS. O6.C1CD2C QU01D5C8 FD.000000 00000000 00.12C002 OGCCO000 
REGS 0-7 FFFFFF2E OCG4EFF8 000428D2 00000000 C00428D2 00042802 0001CD68 O0001AA48 
REGS 8-15 0001D5C8 OGO0C0000 OO001DS5FO 90000000 6F04285E 00042A14 OO00CTD4 OO042D1E 
090000 090000G0 GOGCUCOO Q0000000 00000000 00042858 O0000000 FFO40080 ADDDAD3ST Fee ceccsccccccssccvesecccsccsccscecsex 
900020 90040003 50006A3E FFA50001 4F0428DA OOOOFFCO OODDD00N FEO4SOOOF BODDODALE Keecccc sec eccccrcvccccsvescccseceX® 
000040 00G7C0D98 G8000000 900014D0 00005920 O2CO3BA4 ODO0099BC JOO04Z000D JDODOTSEIB Ke ceces vere vrecesesccsvcesecscscccee® 
000060 0004000C O000TBC8 00040000 00007588 ODO000000 OO012ZDLOA YOOD4000N OCOOGTSIA Fececes Heese cceccccccseveccvrsseccseX 
042 840 41220001 47FO066CA D203F000 66F95820 S58A041FF OOO4SOTFF SOECDOCC O5CO41LFO Freee eDe aKa Dee Deer cece veveccsves eX 
042 860 C1B650FD GOO850DF 000418DF D703D008 DOO858FO COEAD2Z01 FOOOTO2Z2 47FOCOZ4 FN cee eevee oP occ ce eDe oKeDe eee Ose 
042889 OTFE412C CO0744830 C0764140 C06A4154 O002D501 40005000 47400050 D20ICOTB Feces ecees seoeeeeNe soee eeKeee® 
042 8AG 40000201 40005000 D2015000 C0781952 4TBOCO5SE 41550002 47F0C034 41440062 * cKe coeKeccrccccccveccceQesseee® 
0428CC 4630C 030 47FUCOQ7TA 00030009 002D003A 00430062 00050062 00009400 COD49867 Fee eeDe ever ccccencccerecccecceeMe.*® 
042 8E0 CODA1 360 9845COE2 4130CCC8 D5013000 30024700 COAEDTOL 30003002 DT013Z002 FesseeeeS ee eHNewe cc vee ePee ce ePoae® 
9042900 3000D7C1 30003C02 9601C0D4 8734C08E 9101COD4 4780COC2 9401COD4 B656C OBA Fe ePo ccc ce eMe wee oo eMe oeBeo ee eMo wae ® 
042920 OO0C247FU CCOEEQ213 0011000C O00C003CD OC790040 910886056 GCOQD00O2 00042929 Kee eCeccccccscvcccee eoccccsssese® 
042940 OCCOGOL2 9004Z292F 00042D1LE 9828C13E 41880002 D5014000 50004720 CLOED2ZOL Fes eersccee creche eve eNs seeecAsKe* 
042960 B00040CC 8742COF2 47F0C12A D26180C0 50008756 COF24188 OODO0ZDZOL BG004000 Fee wee el2eDAeKecccesee2eeseKeoe 0% 
C42980 8742C11& 47FOC1AA 41880002 D2C18C00 SO0CO8756 CLlZA4TFO CLAADOCE GCOQQOD2 FeeheeDbNe vee eK ecee ceeAhs Oboe eccve® 
0429A0 00042908 CGG4z29B8 CO00429CA 00600002 000429DE O00429DE OOODDOOL DOOSOOOT Kee cHec veer cccvecscccsecceccsesse® 
0429C0 OCUBGCODA GLi4C018 D019TO0L 00020003 OCO040006 ODOSNN0OD DOOFOOILL OCL2Z001L5  Feeccveccesscc cece vsevesevecvesseeX 
0429E0 CYUC0OUGG CCVO0000 OCVOON0NN OC0S9000 OCOGVI000 BOONQNNND DOVOCOCO OOCOOONNO = Keeeeveeeeeccccccecvccevesevsesevse® 
042A00 COOGOGIG GUCOGGCG CGI558DD 900498EC DOOCOTFE 18059104 OCO4SEFE6B DOQVODOG KesceceeeessceeeeeeseeNevecveceee® 
042A20 951A478G 93589140 80054710 935847F0 93DE9500 70OA2Z4770 GS3589110 TOAD4TBEO = Kecceece cece seeDecccvecesccsesee® 
942A40 93580701 700879G8 5840951A 58A094D2 47FC9476 CO0064920 QO0E635EO0 OOOSE5AB  FeePeceee se eevee eK eDoceecescevseeVe* 
042A60 9OECDOGCC O5CCG4FC 07004110 CCiCI51i1 OFO042B04 (FFFOAQE 58BO0001O SDLLOBOTH Fence c ae eOer scree ecccvresvsesevesecee® 
= 043029 4ACO9SBDE 40050CCO 47F095C6 486C09BEE BAG6CO00OL 4770969E 48609026 41660001 Fevee eee oD eFe cece ccecscevccecccse® 
© 


OLL 


SIMPLE SELECTIGN.. 


LOC OBJECT CODE ADDOR1 ADDR2 STMT 


128 
129 
130 
131 
132 
LoS 
134 
135 
136 
137 
138 
139 
140 
141 


% 


oH He He 4 


HoH ee Ht 


SOURCE STATEMENT ~ FOBAPRTO 
ANSWERS FOR THE SELECTION SORT. 


1. THE DATA WOULD BE SORTED IN DESCENDING RATHER THAN 
ASCENDING SEQUENCE. 


2- THERE WILL BE THREE EXCHANGES DURING THE FIRST SCAN3 
ITEMS 67 & 58, 58 &€ 45, AND 45 & 3. 


3. THE 58 WILL BE IN THE 5TH POSITION AFTER SCAN 2, AND THE 
LIST WILL LOOK LIKE: 3,09;98,617455,45. 


@eoosoeeoeeseeereeneteeesvseteeoeseae steeaeeoveeeaeeeeveeeeveeeeaneee eve eewvneeeveeen*weeeenevremcmshemUcOOmUMAUUMCUCMOMUCUMCOmCUCUPhMLCUhHC HCH OC HHO SF G2 @ 
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000103C0 
00G1G400 
00010500 
00010600 
00010706 
00010800 
GQ010900 
00011C00 
G0011100 
CG011200 
C001120C 
00011400 
00011500 
00011600 


LLL 


EXCHANGING. 


LOC OBJECT CODE ADDR1L ADDR2 STMT 
143 
144 
145 
146 
147 
148 
149 
L156 
151 
L2 
153 
154 
155 
156 
L57 


158. 


159 
160 
1él 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 


a a ee 


+ 


% 


EACH SCAN, SO THERE IS NG NEED TO COMPARE IT ON THE NEXT 

SCAN. 

* 5< 4 4 4 4 

D 4< 5< l l 1 END OF SCAN #2. 

A 1 l< 5< 2 2 

T 2 2 2< 5< 3 

A _3 a3 ate -~3<¢ «65 

* 6 6 6 6 6 

* 4< 1 l 1 

D l< 4< 2 2 END OF SCAN #3. 

A 2 2< 4<¢ 3 ( ESSENTIALLY, THIS IS THE END 

T _3 _3 _3< _4 OF THE SORT, SINCE THE LIST 

A 5 5 5 5 IS IN ORDER, HOWEVER, ONE 

** 6 6 6 6 MORE SCAN IS TAKEN, AND WHEN 

NCQ SWAPS ARE MADE? WE QUIT.) 

CIC IO OR Gi ik ik I III IIR I IO a aC aK akc ak ak ak afc ak ok feat ok afc ak fe acai otc i a 


SOURCE STATEMENT 


+ 


FOBAPRT70 


JCC GR GR IG AO IOI ao a a tok goa a aK ok akc ai a ak aka ka aia a fe ak akc a a a akc afc a fe ick ae ak 


THE EXAMPLE OF THE SELECTION SORT’ WHICH YOU HAVE JUST SEEN 
WILL EXECUTE THE SAME NUMBER OF SCANS REGARDLESS (CF WHETHER 
OR NOT THE DATA IS ALREADY IN THE DESIRED ORDER. THERE ARE 
MANY TYPES OF SORT THAT CAN TAKE ADVANTAGE OF THE NATURAL 
ORDER OF THE DATA TO BE SORTED. THE REMAINING EXAMPLE 

TO BE STUDIED IS OF THIS VARIETY. THIS PARTICULAR METHOD I[S 
THE ONE CALLED "EXCHANGING", WHICH COMPARES THE FIRST ITEM 
TO THE SECOND, EXCHANGES THEM IF REQUIRED, THEN COMPARES 
THE SECOND ITEM TO THE THIRD, THIRD TQ THE FOURTH, AND SO ON. 
THE SGRT ITS COMPLETE WHEN NO EXCHANGES OCCUR ON A SCAN, OR 
WHEN N~-1l SCANS HAVE BEEN MADE. 


LEGEND: TWO VERTICALLY ADJACENT ITEMS WITH <*S NEXT TO THEM 
ARE BEING COMPARED. THE UNDERSCORE *_* INDICATES 
THE LOGICAL END OF THE LIST. 

COMPARE #0 #1 #2 #3 #4 #5 

* 5< 5 5 5 5 5 

D 6< 6< 4 4 4 4 

A 4 4< 6< 1 1 1 END OF SCAN #1. 

T 1 1 1< 6< 2 2 

A 4 2 2 2< 6&< 3 

* 3 3 3 3 3<¢ 6 


AS YOU CAN SEE, THE EXCHANGE TECHNIQUE CAUSES THE LARGEST 
ITEM IN THE LIST TO BE PUSHED TO THE BOTTOM OF THE LIST AT 
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00011800 
00011900 
O000120CO0 
C0012100 
00012200 
CQ012300 
00012400 
Q0012500 
Q00126C0 
00012700 
0001280C 
00012900 
QCG130C0 
00013100 
00013200 
00013300 
00013400 
60013500 
00013600 
00013700 
00013800 
GC013900 
00014000 
0001410G 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 
09014800 
00014900 
00015000 
C09015100 
0001520C 
00015306 
GC015400 
00015500 
00015600 
00015700 
00015800 
000159C0 
00016000 
00016100 
00016200 
06016300 
00016400 


e*END OF THE *. 


eK 
of 


YES 


ok 


. #<----* B3 
* 
ok 
* 


? 


a 


ITEMS AND * 
SET _THE 


*EXCHANGE FLAG. 


* 


B3 
-* ITEMS QUT *. 


OF CRDER 


~~ 


x 


Send 
MK EK EC FH eo eK 


* EXCHANGE THE 
* TWO 


NO 
*. 
* 
EK KK oi eK fe eK eK KK 


+-=— 
NO 


* B3 &¢--— 
NO 


INSIDE 
+ — 
NOSWAP 
#K 4K -+— 


ea 
* 
mK A KK 


* 
*# —---+---># 


* 
KK KK 


* 


* 
* 


2 xR aR RR 
1. 0F -THE 
NGE SORT. 


eK A 
STAR 
XCHA 
sR aa a ok ak oe a IE AK 


GUT 


? 


LIST 


ee ee 


it 


+ LU 3 


RETURN. 
FORK RR a ROR ao a KK 


H 3 3 


Loc 


900082 
000086 
O0008A 
00008C 
000090 


0090094 
000094 
QO009A 
OOO09E 
OO00A4 
COOCAA 
C000B0 
O00CB4 


~~ 0090B8 


£<t 


QOJO0BC 
COO00CO 


O000C4 


0000C8 
OOOOCA 


ONO9CE 
QOQODA 
OOO0DA 


EXCHANGING. 


OBJECT CODE ADDR1 
9490 COD4 OGODA 
9867 CODA 

1366 

9845 COE2 

4130 COC8 

D501 3000 3602 00000 
47D0 CCAE 

D701 3000 3062 Ou000 
D701 3062 300C 000062 
D7OL 3000 3062 C0000 
9601 COD4 GOODA 
8734 CO8E 

9101 CCD4 OOODA 
4780 CO0C2 

9401 CCD4 OCODA 
8656 COBA 

5002 

47FQ COEE 
0213601100UC 90000 

990 


ADDR2 


OCCEO 
OOOE8 
OOOCE 


00002 
CG60B4 
00002 
00000 
CO8CG2 
00094 
000C8 


COOSC 


QO0F4 


STMT 


204 
295 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 


219. 


229 
221 


223 
224 
225 
226 
227 


229 
236 
231 
232 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


SOURCE STATEMENT 


NI 
LM 
LCR 
LM 
OUTSIDE LA 
3K 
INSIDE EQU 
CLC 
BNH 
XC 
XC 
XC 
OI 
NOGSWAP BX 


™M FLAG, 1 DID AN EXCHANGE TAKE PLACE IN THIS 
BZ OUT SCAN ? NO, LIST IS IN ORDER, QUIT. 
NI FLAG 1 YES; RESET THE INDICATOR, AND SCAN. 
BXH R5,k6,0UTSIDE CONTINUE TO THE LAST SCAN. 

* 

x TAKE A DUMP TO SEE IF THE SORT WORKED. 

z . 

QUT DC H'2't 
B PASTEXCH BRANCH AROUND TABLE. 

* DATA LIST USED AS INPUT FOR THE EXCHANGING SORT ROUTINE. 

EXINPUT DC H'531,1791220,973,121' 

EXINPEND EQU * 

FLAG DC. X*QO? EXCHANGE INDICATOR. 


* 


1. 


HH HH HH 3 HH HE HH 3 te OK HOH OK 


WHICH 


WHICH 


FLAG,(0 


R67K6 


R3,EXINPUT 


* 


NOS WAP 


FOB APR70 


SET THE EXCHANGE INDICATUR OFF. 
R6eRTe=AC LV EXINPUTSEXINPUT+L*EX INPUT +41) 
NEGATIVE FOR BACKING THRU LIST. 
R4_9R5e=A(0L" EXINPUT, EX INPEND=-L*EX INPUT~1) 


START OF LIST 


THIS LOOP DOES THE EXCHANGING. 
O(LTEXINPUT RA) eLS EXINPUT(R3) 


IF IN ASCENDING SEQUENCE, 


O(L©EXINPUT sR3) ,L*° EXINPUT(R3) 
L'EXINPUT(L®'EXINPUT,R3) »C(R3) 
O(LPEX INPUT eR3) ,LSEXINPUT(R3) 


FLAGy1 


E R3B_yR4y,INSTDE 


ANSWER THESE QUESTIONS ABOUT THE 


ITEMS ? 


"EXCHANGING" 


OTHERWISE, 


EXCHANGE 


THE ENTRIES. 
INDICATE THAT AN EXCHANGE TOOK PLACE 
CONTINUE TO END 


OF SCAN. 


NG CHANGE. 


BOC IOC IIR RIO AO a i a ok ak ok ok fe ak ok a a ak ak ke akc ok ok ok ok 
SORT ROUTINE. 
INSTRUCTIONS ACTUALLY EXCHANGE OUT OF SEQUENCE 


VALUE WILL BE AT THE LOW ADDRESS END OF THE LIST 
AFTER 3 SCANS ? 


HOW MANY DATA MOVES WILL BE MADE DURING THE FIRST SCAN ? 


WHICH INSTRUCTION(S) 
OF THE LIST ? 


LOWER 


He He Xe AS i He ac CC CE OK OK OE a I OR EC A I CE I AC 3 2K A 2 oe Ae Ae AC OK A OK IS AK I AR IK OE OK OK AE OK 


THE ADDRESS OF THE HIGH END 


ma WHEN YOU GET HERE, SHOW THE RED SIDE OF THE "ANSWER CUE". 


HE AK AK A A KK I OK i AE 
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00017900 
00018000 
00018100 
60018200 
00018300 
00018400 
00018500 
00018600 
OGU18700 
000188C0 
00018900 
00019000 
00019100 
0U01920G 
00019300 
00019400 
00019500 
00019600 


090198C0 
00019906 
000 2000C 
00020100 
00020200 


00020400 
00020500 
00020600 
00020700 


00020900 
00021600 
G0021100 
VO021200 
00021300 
00021400 
00021560 
00021600 
0002170C 
90021800 
00021900 
00022000 
00022100 
00022200 
00022300 
OCQ22400 
00022500 
00022600 


= 
“J 
b 


FeP. REGS. OC.01ICD20 0001D5C8 40.C4D132 C0000050 FD.000000 00000000 00.12C9002 COCO0C0C 

REGS O-7 FFFFFF2E OOO4EFF8 000428D2 9004292C OO0CO0002 006942929 FFFFFFFE 00042929 

REGS 8-15 C00105C8 cOoCGGCO OO01LD5FO GOO00000 6FO04285E 00042A14 O00CC7D4 O0U42D1E 

CCI080 99060000 GoGOGCSC 00000000 90000009 00042858 O0Q00000 FFO4OD08C AQODADZC Feces cvsecccesasecsccsecscecseseses® 
000020 FFA5CC03 6F007588 FFA50001 5F042922 OCOOFFOO DOOCOOOD FFO60233 BOO00QDDC + Kec eee ce ener cecrerecrassesescevee™® 
900C4C OCGU1360 uBU0CTCO 60001358 G90059290 O2CO1LDA4 COO099GC OOO4000N ADDOT49B Fee eeeceesecvsssesscveccssessseve® 
000069 VOC40GCG 8uGOT7BC8 06040000 00C0 7588 QOOCCOND CVCL2ZDIC CCO4O00O OOOCTSIA KeveeeceHe cc cesecccesevceseesesee® 
042 840 41220001 47FC66CA D2C03F000 66F 95820 S58AC41FF DOG4EOTFF SOECDOCC O5CO4GIFO Fee weeCe eK eo Dae Decccesvevesevceeeel*® 
C42860 C1B650FD O0085CDF 0C9418DF D703D0G8 DOC858FO CUEAD2Z201 FCOOCTO2Z2 4TFUTOZ4 Ne ccc cece re eP ovens ee oK eDe eee Qe e%® 
042880 CTFE4120 CO744830 C076414C CG6A41 54 O002D501 40005000 47400050 D201COTB Ke eeccceevee seoveeeNe soos eoKsee* 
S42 8AC 4000D201 400050C0 D2C015006G C0781952 GTBOCO5E 41550002 47FOCO3B4 414400SC2 * Ke we eKe cece cceeeseveesCoeveee® 
042 8C0 4630CU3G 47FOCO?A 00030009 GO2D003A 00430C62 00050062 00009400 COD49 B67 Fee e cD ee ccc cece evccsescccsee ate e® 
042 8F0 CCDA1366 9645CCE2Z 4130C0C8 N5013000 300247D0 COAEDTOL 30003002 DIOL3Z002 Feeeee esse ce eHNeeevceseePoescePeee® 
942990 Z300CD7G1 300030C2 96G1COD4 8734CC8E 9101C0D4 4780C0C2 9401C0D4 B656COBN Fe Pewee r ee eMe veer co eoMe ee Be o oMe eae ® 
042920 O00247FCG COEEDOOD COOCI011 90790213 O3CD0140 91088056 CCOQD0OZ 00042929 Few eGecer near cecenne covecsesecseex 
C4294C OGVVGO02 OCU42S2F 9V042D1E 9828C13E 41880002 D5014000 50004726 CLOED2ZOL Keesese eens e es eNe nse eNe woe eeAeKe* 
042965 B0004U000 &742C0F2 47F0C12A D2018000 500C8756 COF24188 OO02ZD2Z201 B0004000 Fee aoe e2eOANeKecveccvetaoveeKose 0 * 
042986 8742C118 47FOCLAA 41880002 D2018000 50008756 CI2A47TFO CLAANDNN OOCOONG2] Fee Aw eo DAe eee eKeve sc sehe eDAnevecee® 
0429AC 90042908 GO0429B8 000429CA 00COOCO2 COG429DE GO0429DE OODQVDOCOL COO5O00OT Kee eHeweovecevcervecavevcsceseseeX 
C429C6 JOCB8GUGA 006140018 0019001 GOC20C03 COO40G06 CCOBO00I ODOFOOLL CO1L2Z90015 Fececccccccrcccccrescscccevevseceex 
C429E0 OOGGCOOG GogvUCcDG OC09D0G00 DCCOCIGD COOGOIGD GOOCGOCOD OCOQGOODN DOOTSCOIVECO = FeeweeweccccevevrereveesecsesersesaeX 
G42A900 OVGVG0UG TuGoCCCS 909558DD CCC498EC DOOCOTFE 18059104 GOO4GEFEB GODDDO0O = FececcccceersccesssecesNsvecevecse™ 
042A20 951A478C 93589140 8005471C 935847F0 93DE9590 fOA2Z477T0 S358911G TOA04TBEO Feecence cece re eDenenccecsvccevee® 
042A40 9358D7C1i FECB7008 5840E51A 5dA094D2 47FC9476 C006492U O000635E0 CCO5SE5AB  KeePecceee cove eKeOeeeccceseveeVe* 
042A560 S9CECDSLC GSCCO4FO 07004119 CO1C0511 OFC42B04 TFFFOAQE S8B8BOOOLO GLICBOTH Fecece eee eres escevsvcccvccsscece® 
C43020 4ACO9BDE 40050000 47F095C6 48609BEE BA60D0001 477C969E 48609026 41LO6D0CL Feene cee eDe Fe er cccereseccecevese® 


EXCHANGING. , PAGE 9 

LOC OBJECT CODE ADDR1 ADDR2 = STMT SOURCE STATEMENT © FOB8APR7O 9/14/70 
254 Kecc ees eveccer cscs sess ere sssevnsesessesseressvesecesssesssccvseseseseesse. J0O0Z22900 

255 * 00023000 

256 * ANSWERS FOR THE EXCHANGING SORT SAMPLE. 00023100 

257 * 00023200 

258 * 1. THE THREE 'XC* INSTRUCTIONS DG THE EXCHANGING. 00023300 

259 * 00023400 

260 * 2e THE ZERO (0) WILL BE AT THE START OF THE LIST AFTER SCAN 3. 00023500 

261 * 000623600 

262 * 3. THERE WILL BE 4 MOVES, PAIRS: 531 & 177 531 & 12, 531 & Of 00023700 

263 * AND 973 & 1l2l. 00023800 

264 * . | 00023900 

265 * 4. THE 'BXH R5eaR6,QUTSIDE * LOWERS THE ADDRESS OF THE HIGH 00024000 

266 * END OF THE LIST. 00024100 

267 * 00024200 

268 ae ee ee a eee ee ee er ee ee ee ee ee ee ee ee ee ee ee ee a ee ee ee ee ee eee eee 00024300 

COOOEO 269 LTORG | 00024400 

JOCCEO O00000G2C00CG00D1 270 =A(L'EXINPUT,ZEXINPUT4+L® EXINPUT #1) 
DOD0E8 D00000C2G0G000DT 271 =A(LYEX INPUT ,EXINPEND-L*® EXINPUT—-1) 

COO0GFO 00000000 272 =V(PCHKRETN) aos 
OOCCE4 | 273 PASTEXCH DS OH | 00024500 


GZL 


9ZL 


MERGE 
HH AK AL RK KK RK KK 
: START 
AO Rk a OK 


oe 
we 


V 
HK KK BY eK a KK KK 
* x 
*HOUSEKEEPING - * 
* REGISTER * 
ee ne ee ree 


Hehe eR oe ke oe i af of ok ke atc ak 2k 
COMP AREM V 
KC] KK KK 
* * 
* UPDATE . 
* POINTER INT 2 tC rn a rn rr rr rt 
*NERGED LIST. * 
ek a oi oi ae ok ake ok ak 
ek 
* x 
x C1 * 
* * 
ek tek 
V NO 
ke 2X, FL USH2 
D1 x He Xe ake Xe ke 1) Dk ok 2k ke a ak ok ak ok D3 x, Sok kok D4 eK KK KK 
. x, x x ox x, x * 
-* COMPARE *,. 1<=2 *MOVE A STRINGI1 * e* END OF *. YES * FLUSH BALANCE * 
*. STRING] TQ .* ------- >*I TEM TO MERGED * -—------>*. STRINGL ? .* ------- >* OF STRING2 TO * 
*.STRING2. .* * LIST. *, ‘ x MERGED LIST * 
ae x x *x aes .* x *x 
, BER RO 2 ke oie fe kc ak ok a oc ok x: 2s eck 2k fe keke ac a fe ak ok ae a ok ok ke ok 
* 1>2 * 
Kok ek 
* * 
x Cl *<—+ 
* 
KK NO 
QUTSTNG2 V o¥. FLUSH1L FINISHED 
Heke ek | eo Ke ke ok ate ok ok ok E2 *x, eK HC EF ak aK a ak a oe a ek 
* * x x2 * * FORK E 4 tet ok ok 
*MOVE A STRING2 * -* END OF *. YES * MOVE REST GF x * x 
*ITEM TO MERGED * -=+---- ~>*. STRING2 ? .*® ------- >* STRINGL TO Ko meee a >* RETURN. * 
* LIST. * *, er * MERGED LIST. * * 
* * x, x * x tek ok ok tok kek KK 
A ot gk fk tok kk ok x, ,* eke ee oe oe a ok fe ak ok ak a ok 2k Kok 
* 


LLL 


LOC 


COSOF4 
OOCOOF 8 
QGCOFC 
000192 
C00106 
COVLOIC 
OCO110 
0090114 
YOO1LLA 
CUOLLE 
Joc L22 
C00128 
CCO1l2C 
300130 
CoT134 
COSL3A 
SOC LSeE 


000142 
CO9144 
000150 
GOS15C 
Q90160 
290172 
fCO1T2 
009188 
909188 


MERGING, 


OBJECT CGDE ADDR1 


9828 
4188 
n501 
4720 
n2e1 
8742 
47FC 
D201 
8756 
4188 
0201 
8742 
47FC 
4188 
n20i 
8756 
4TFC 


C13eE 
0002 
4000 
C1OE 
8C OG 
CCF2 
C12A 
8G0U 
CUF2 
0OC2 
8000 
C118 
C1iAA 
COG2 
8CQG 
C12A 
C1AA 


0009 

99900002 05GC01LTO 
Q009001 7200 GGU092 
990901 86 
JQOOOGCOLGUO5 0007 


OCC1LOCOT2vGu300G4 


COGICIVOGGOVOOUGG 


ADDR2 


90144 
GO002 
00000 
C0114 
00000 
OCOF8 
00130 
OCC 
CcOFS 
00002 
00GCQ0 
OOLLE 
001B0 
OGCG2 
OCGO09 
001209 
CO1B0 


COMbvINING SORTED CISTS. 


STMT 


29) 
292 
293 
294 
29> 
296 
297 
298 
299 
300 


302 
303 
304 


305. 


306 
207 
308 
309 
310 
311 
312 
313 
314 
315 
316 
aL 4 
318 
319 


320 


321 
322 
323 
324 


326 
327 
328 
229 
330 
331 
232 
33 


SOURCE STATEMENT FOBAPRTO 
SE SRR ROR ROR RC aA CE I RR AR SE ECR A IO RO OK A OKC aK a aK aC a SKC ao a a Ka a oR aK ok ak oe a fe oe a ok 
* 
x AFTER TWO OR MORE GROUPS OF DATA ITEMS HAVE BEEN SORTED, THE 
* NEED FREQUENTLY ARISES TO MERGE THOSE GROUPS INTO A SINGLE 
* GROUP OF SEQUENCED ITEMS. IN GENERAL, MERGING IS A TECHNIQUE 
7K THAT COLLATES SEVERAL SEQUENCES SF DATA ITEMS TO FORM A 
* SINGLE SEQUENCE. MERGING, THEN, IS A RELATIVELY SIMPLE 
x PROCESS, AS CAN BE SEEN IN THE FOLLOWING EXAMPLE. 
ok 
BCCI ICC ICI GOI ICI ICI oO gk tk kk a kia ak ik oI ka ok ak ak ok ak ake ce ok ok ke at ea aa ake kc 
BCCI IEC ICICI ICICI CI 2k i IOI iG ok dak ak ak aka ke gi ok ak ake ak ok ak ake ait afc a ofc ak akc ok 
* THIS ROUTINE WILL MERGE TWO STRINGS (SEQUENCES) OF DATA 
* NAMED *STRINGL* AND "STRING2' INTO THE AREA CALLED "MERGED'. 
ACCC CII IO OIC III I IO ZO irk lok a ok ICI a ga gc ok ak ak ok at ak teak ak fc ak oka ak ok ak ak ak ok ak akc ak ok ak 
MERGE LM R2y9R&_,CONSTNTS INITIALIZE THE LOOP CONTROL REGS. 
COMPAREM LA R8,L'MERGED(R8) BUMP POINTER INTO MERGED LIST. 
CLC O{L*FSTRING1,R4)-,900R5) COMPARE STRING 1 TO STRING 2. 
BH OUTSTNG2 STRING2 LOW, OUTPUT ONE ITEM. 
MVC O(LEMERGED,R8B),OCR4) OUTPUT GNE STRING 1 ITEM. 
BXLE R4,R2,COMPAREM CONTINUE TO END QF STRING Ll. 
B FLUSH2 : THEN FLUSH STRING 2. 
OUTSTNG2 MVC OC LEMERGED,R8)-C(R5) OUTPUT ONE STRING 2 ITEM. 
BXLE R54R6,CQOMPAREM CONTINUE TO END OF STRING 2. 
FLUSH1 LA R8,L"*MERGED(R8) 
MVC O(L MERGED,R8),O(R4) THEN FLUSH THE REMAINDER OF STRINGI 
BXLE R4,R2,FLUSHI TO THE MERGED LIST. 
B FINISHED END OF STRING 1, QUIT. 
FLUSH2 LA R8,L'MERGED(R8) 
MVC OC(L®*MERGED,R8),00(R5) FLUSH CONTENTS QF STRING 2 INTO THE 
BXLE R5,R6_,FLUSH2 MERGED LIST. 
B FINISHED END OF STRING 2, QUIT. 


CONSTNTS DC AC(L'STRING1sSTRINGIN-LESTRING1, STRING) 


DC A(STRING2 sL'STRING2sSTRING2NW-LSSTRING2) 
— DOC A(MERGED~L*MERGED) 
STRING1 DC H*O919597784910920324,25! 
STRINGIN EQU * 
STRING2 OC H* 19293949698 99e1lL 5S gl lel 8y2l1! 
STRING2N EQU * 
MERGED DC Z20H*O! 
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00026300 
00026400 
0QG26500 
00026600 
GO026700 
CO026800 
00026900 
00027000 
00027100 
00027200 


00027400 
00027500 
00027600 
CUC2T100 
00027800 
OCG2T7T900 
00028000 
C0C28100 
000282CC 
00028300 
00028400 
0062850C 
O00C2860C 
00028760 
00028800 
00928900 
CO0029G00 
O0C029100 
00929200 
0002930C 
Q0029400 
00929500 
O0G2960C 


OCO2°9890C6 
00629900 
O00300CC 
GOC3010C 
00030200 
00030390 
06030400 
900030530 


Sit 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SGURCE STATEMENT. Save FO8APR70 9/16/70 


335 OIRO ICICI ICRC IIR ICICI AIRC RI ICR ACA EAC AC SE AC ACE SO ERE HE A AC ACE AOR AO 00030700 
336 * 00030800 
337 * ANSWER THESE QUESTIONS CONCERNING THE MERGING ROUTINE WHICH 00030900 
338 * APPEARS GN THE PRECEEDING PAGE. 00031000 
339 * | 00031100 
340 * 1. IF EQUAL ITEMS ARE ENCOUNTERED IN *STRINGL* AND *STRING2*, 00031200 
341 * WHICH WILL BE PLACED IN 'MERGED® FIRST 2? | 00031300 
342 * | | 00031400 
343 * 2. USING THE VALUES GIVEN IN STRINGL AND STRING2, WILL THE 00031500 
344 % INSTRUCTION LABELEO "FLUSH2" EVER BE EXECUTED ? 60031600 
345 * 00031700 
346 * 3. USING THE SAME VALUES, WHICH ITEM WILL BE THE 12TH IN THE 00031800 
347 * MERGED LIST, AFTER THE MERGE IS COMPLETE ? 00031900 
348 * | 7 00032000 
349 KKK WHEN YOU REACH THIS POINT, DISPLAY THE BLUE SIDE OF YOUR 00032100 
350 * "ANSWER CUE'. 00032200 
351 * 00032300 


352° ROI OI ROR I ok tok ao dak a ak ok aoa aca §=00032400 


F.eP. REGS. O0.01CD2UG 0001D5C8 40.04D132 00090050 FD.COOGOO OCOCD00N 00.12C002 OCCO0000 
REGS 0-7 FFFFFF2E QoO0O4rFF8 CO000002 C00429C8 O0C429CA GO0429E0 QGCGCOG002 C00429DE 
REGS 8-15 COL42AC6 DNOOTGOVNO OCOI1DS5FO O0000000 6FO04285E 00042A14 OOOCC7TD4 C0042D1E 
O99009 VOODGDOGG DOCOIOCGO X0Q90000G COC99000 00042858 OQOGOCO00 FFO40C8O ADDOCAIZT  Faccecscccccccccccccervccesvseseek 
CG90290 FFA50U03 oF OC7588 FFA50001 6F042A0A QQOOFFOO OQOGCCOO0 FFO50135 B8006D358 Kev eec cece ec cccvesccvccccccccsel eX 
2090040 SO00676F8 CCOGOCOCI 00601468 00005920 O2COL3BA4 COOO99EC C0D040000 OOCOTCT4E9B Fev eBe weve cccceccvccsccccccveseserX 
000C60 00040000 9CO007BC8 000490000 005075388 OOOOGOOO OOG12D1O DOO4O00D DODOTSIN Fees ececHewrecccveccveccsccccescsex 
042840 41220CC1 4/7FCG66CA D203F00C 66F 55820 SBAC4S1FF OQOO4OTFF GOECDOCE O5CO41LFQO Fee eee De eK oOo cD cee vseseccvcese eX 
0428690 C1B65CFD OG0850DF 000418DF D703D008 DOO&58FO COEAD2Z01 FOOOCO22 4TFOCO24 FAs acre sec e ce Perec ce ee oKeOe eee Dee*® 
042880 OTFE4120 €CU744830 C0764140 COEA4154 GOO2D501 40005000 4740C050 D201TOTB Ke ccccccrcecee severe eNse coer ooKeoe® 
042 8AG. 4000D201 40605000 D2015600 C0781952 47BOCO5E 41550002 47F0CO34 41440002 FF .Ke co eKececveccccceveceQeesece*® 
042 8CC 4630C030 47FOCO7TA 00630009 C02D003A 00420062 06050062 00009400 COD4S9B6T Fesce ee Dee se acceecccevecccccceeMee * 
C42 BFC CODA1366 9845COE2 4130C0C8 D5013000 300247D0 CCAED701 30003002 DT0130C2 Feces ee eSoecHNescccseeePerecePace® 
942906 Z3COCD701 3u0C3CO02 96C01LCOD4 &8734C08E 9101C0D4 4780CCOC2 9401C0D4 B656COBA Ke ePeceee cc eMe wee ee eMe oe Bee eMoe ne ® 
042920 O00Z47FU COEEQOCOO GCOOCSOLI 00790213 C3CD0140 91088056 OCOCO002 O0042929 Kee eDe cee scc reser cee soeceescesee® 
042949 OOCVV0UEZ JGU4292F 00042B1E 9828C13E 4188CC02 D5014000 50004720 CLOEDZOL Feccrevccccese chev eeeNe eee ereAeKo* 
04296C G80004000 of42C0F2 47FOC1I2A D201 8000 50008756 COF24188 OOO2ZD2Z01 S0004000 Fee we ee 2 eONe Kee cane eneZeceeKeee 0% 
942980 87420118 47FOCIAA 418800C2 D2018000 50008756 C12A47TFO CLAANDDNO DOOCCOO 2] Fe eNe eo Dhe eee eKeres eee Ae eONe eevee e® 
C429A0 90042908 Cul4z29B8 000429CA O0C00002 O000429DE CO0429DE OODDODOOL DOOSOOOT Fev eHewcccevvcceevcccecvsesecvecser 
0429CC OOGBCOCA FG140018 OO1L9G0C1 90020003 OCO40006 OOTCBONNS DOOFOOLL COLZ0O0LS Ke ceesccrecveccceseresecsrevesseer 
J9429E9 OGCOGNTL BOG1LO002 90030004 GU050006 OO0O070008 OODOBOCOD DOOADOOF OOLICOL2] Fe cecreccercccevecsccresecseseece® 
O42A90 9014C015 Go180019 090558DD GOO498EC DOOCOTFE 18059104 OOO4EFEB DODDDDKO FecececcccccrevescecseNesccececseX® 
042A20 951A478C 9358914C 80054710 935347F0 93DE9500 OA2Z47TI0 G3589110 TOADS TBO Fee weece evecvecdevececcessscsecer 
C42A4C 93560701 700687008 5840951A 58A094D2 41F09476 00064920 D00635EO DOO5SE5AB Fe ePeceeee ever eK eo Dorner ccc cceeeVe* 
042A60 9CECDGCC YS5COU4FO G7C04110 C9100511 OF042B04 TFFFOAQE S8BOO0LO DLLOBOTSH Keccer ee Cece cccsacccccccscssscccek® 
= 043020 4A00¢SBDE 40050000 47F095C& 48609BEE BA600001 4770969E 48609026 41560001 Keown eee eDVeFe sree eesveserceseee® 
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ost 


L OC 


O001B0 
)9001B2 
9001B6 
O001BA 
OOO1BC 


MERGING, 


OBJECT CODE 


0005 


58DD 0004 


98EC DOOC 
OTFE 


COMBINING SORTED LISTS. 


00004 
OO0O0C 


ADDR1 ADDR2 


STMT 


354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 


367 
368 


369° 


370 
311 
372 


SOURCE STA 

* 

* 

* 

* 

* Le 

4 

* 

* Ze 

x 

* 3. 

* 

* 

FINISHED OC 
L 
LM 
~ BR 

SAVEAREA DS 
END 


TEMENT 


ANSWERS TO THE QUESTIONS ON MERGING. 


THE ONE FROM "STRINGL® WILL GO FIRST, BECAUSE OF THE 


* BH OUTSTNG2 * INSTRUCTION. 


NO, BECAUSE STRING2 WILL DRAIN (RUN OUT) BEFORE STRINGL. 


THE 9. YOU MAY CHECK THIS BY USING THE DUMP. 


eeseeneseeeseenseeoeseeenweeestseoeeeeeoeeseeeeoeeeeeeeoeeeeeeneaeseseeewne@eewneaeneewemcmemccemlUlcOrmCUCOUmUCPOCUCOUCcUch}OCUcUHHUhUcCCUh HUM OCUMhO}CUh]HLhCUM}]HCLCO 


Ht 

R13,4(R13) 
R14,R12,12(R13) 
R14 

18F 
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00032600 
00032700 


00032800 


00032900 
00033000 
00033100 
00033200 
00033300 
00033400 
00033500 
00033600 
00033700 


00033900 
00034000 
00034100 
00034200 
00034300 
00034400 


L8L 


PAS. 1D 


Ol 
Ol 
O01 
Ol 
Ol 
Ol 
O1 
01 


REL.ID 


O1 
Ol 
Ol 
O1 
Ol 
O1 
Gl 


G2 


FLAGS 


OC 
“OC 
OC 
OC 
OC 
OC 
OC 
1C 


RELOCATION DICTIONARY PAGE 1 


ADDRESS G/16/7C 


QOO00E4 
QOOOEC 
000148 
00014C 
000150 
000158 
OO015C 
OOOOFO 


csl 


SYMBOL 


#OF SCANS 
BR14 

COMPAREM 
CONSTNTS 
EXINPEND 
EX INPUT 


FINOL OW 
FINISHED 
FLAG 
FLUSH1 
FLUSH2 
INSELECT 
INSIDE 
MERGE 
MERGED 
NOCHANGE 
NOSWAP 
OUT 
OUTSIDE 
QUTSLECT 
OUTSTNG2 
PASTE XCH 
RC 


SAVEAREA 
SELECT 
SECEC TMP 
SELECTND 
SELECTS T 
SORTTECH 
STRING] 
STRINGIN 
STRING2 
STRING2N 


LEN 


90002 
00002 
00C04 
00C04 
00001 
00002 


00062 
00002 
00001 
00004 
00004 
00006 
00001 
00004 
00002 
00002 
O00C4 
00002 
00004 
COCO04 
00006 
00002 
00001 
00Ccol 
00C01 
000uU1 
COCG1 
00001 
00001 
00001 
90001 
09001 
OUCol 
O00"01 
OOCC1 
00GU1 
Cccel 
COCOL 
00 0uU4 
JO002 
CI002 
09001 
O00S 

cOCOl 
000C2 
COLL 
00002 
00001 


VALUE 


OOCO7IC 
000028 
GCOGOF8 
000144 
QOOCDA 
JOOOCE 


CO0086 
00C1BO0 
OOGCDA 
OOC1IE 
000130 
OGOGOG3A 
0OCC94 
COGCF4 
0001658 
COUC56 
COCOB4 
00 00C8 
O0cGo90 
0CG036 
000114 
OOCOF4 
OCCG00 
000001 
GOCOOA 
000CUB 
OO0OEC 
OGCCOD 
GQOUOQGE 
QGOGOF 
000002 
O0GUG3 
OCOC04 
OCG005 
000006 
COUGU? 
vuCGU8 
OUCGOS 
OucibC 
VOCUTSG 
OUUUTE 
COUCTIC 
GUCG 64 
OCG000 
C00160 
G00172 
O9CO1l2 
000188 


DEFN 


00106 
06032 
00309 
00326 
00231 
CU230 


00108 
00367 
0G232 
00317 
0Q321 
CoOCc9l 
00210 
00308 
G0333 
00096 
00217 
C0226 
0U208 
00090 
00315 
00273 
CG003 
090004 
00013 
00014 
OGO015 
GOO16 
GCOl? 
00018 
QU005 
00006 
Go00? 
00008 
00009 
CU010 
Cull 
vlO12 
CO371 
900104 
OC197 
0G105 
CO1L0C 
Q0001 
00329 
6uU330 
00331 
00332 


REFERENCES 
0088 
0030 0031 
0313 0316 
0308 
O207 O0271 
0205 0205 
0270 0270 
0102 
0320 0324 
0204 0216 
0319 
0314 0323. 
0099 
O217 
0309 G312 
0092 
C212 
0219 
O221 
0101 
0311 
0227 
9919 00290 
0019 0023 
C019 0032 
0U22 0023 
008% 0096 
G088 J101 
0089 009 
090 0091 
C205 0206 
0205 
C308 0309 
CO2Z2 
GO8T OQ089 
OOS3: 009% 
vO8T O106 
GO397T 
0310 0326 
G326 
0327 0327 
0327 


CROSS~REFERENCE 


0205 
0271 


0218 


0315 


C326 


0327 


O207 
O271 


0220 


0317 


Q369 
C025 
O370 
0025 
0313 
Q2ll 
CO93 
0095 
0221 


C312 


cogl 


0326 


0207 


0318 


0026 


0029 
0319 
O211 


0094. 


0096 
Q0316 


C315 


0094 


0208 


0321 


0211 


0322 


0368 


O211 


0328 


0368 


O214 
O20T7 
0207 


0318 


0100 


0213 


0328 


0369 


0214 
O217 
O221 


9321 


0106 


0213 


O215 
0310 
0310 


Q0321 


Q106 


0214 0214 


0215 
0312 
O315 


0322 


PAGE 1 
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0215 0215 0270 
O2it 
0313 0318 0319 
0316 0322 0323 


DIAGNOSTICS PAGE 1 
STMT ERROR CODE MESSAGE 9/16/70 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
*STATISTICS* SOURCE RECORDS (SYSIN) = 344 SOURCE RECORDS (SYSLIB) = 25 
*OPTIONS IN EFFECT* LIST, NODECK, LGAD, NOQRENT, XREF, NOTEST, ALGN, OS, LINECNT = 55 


446 PRINTED LINES 


esl 


v8L 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARIABLE OPTIONS USED ~ SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
LEWO000 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME _ LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
SORTTECH 00 204 
UTILITY 208 5A0 
PRINT 26A PCHKRETN 4C6 
ENTRY ADDRESS 208 
TOTAL LENGTH 7A8 
* GO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


S8L 


SSSSSS$5555 
SSSSSSSSSSSS 
SS SS 


SSS 
SSSSSSSSS 
SSSSSSS$S 
SSS 


SS SS 


SSSSSSSSSSSS 


SSSSSSSSSS 


Ooo00g0CRCCCE 
000000000000 
00 00. 
N0 oO 
00 00 
00 00 
00 CC 
0G 00 
00 O00 
00 00 
o0ooBD0G00000D 
O00Q00000000 


RRRRRRRRRRR 
RRRRRRRRRRRR 
RR RR 
RR RR 
RR RR 
RRRRRRRRRRRR 
RRRRRRRRRRR 
RR RR 

RR RR 

RR — RR 
RR RR 
RR RR 


TTTTITTITTTT 
TTTTTIUTITTTTT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 
9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 
99 
99 
99 99 
999999999999 

9999999999 


TTTTTTTTITTT 
TUTTTITTTTTT 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 


AA AA 


1111111111 
1111111111 


FORK RR ROR RO at ke ak ae a ak a af a 2k ke fe a a a fe fe a a oe fe fk oe ae i a a A he RH HH I HH HK HE HE HE HI HH HE RK I SK I I I RK AK OK a Ko 


98L 


SYMBOL 


LINEAR 


TYPE ID ADDR LENGTH LD ID 


SD 


C1 CO3C00 CCOOB4 


EXTERNAL SYMBCL DICTIONARY 


12.21 
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Z8L 


L Oc 


0090000 
o0f29005 
909906 
000007 
000008 
009909 
COOGOA 
0OC00B 
000090 
C9O0004 
CCOCCI6 
OCCOCE 
JOOCCA 
VOICE 
OC9012 


OBJECT CODE 


DGOC 


CO42 
COC4 
CC0& 


ADDR ADDR2 


O0COCC 


90048 
COGO4 
00008 


STMT 


w 


9DOMN OW FWDM 


SOURCE 


LINEAR 
R5 


~EEEGEEEEESEEESEEEE SEE EEEEEEEEEEEEEESEEGEEEEEEEEEEEEEEEEEEESEEEEEEESESESE 


a 


it 


*EEEEEEEEEEEEEEEESE EEE EEEESESEESEEEESEEEEEEESESEEE SE EEEE SE EEE EE GEEEEEEEEEE 


STATEMENT FOB8APR70 
CSECT 

EQU) 5 

EQU 6 

EQU 7 

EQU 8 

EQU 9 

EQU 10 

FQU) sol 

STM  14,12,12(13) SAVE CALLER*S REGISTERS.. 

BALR 12,0 ESTABLISH MY BASE REGISTER 

USING *,12 LET THE ASSEMBLER KNOW 

LA 15,SORTSAVE ADDRESS OF MY SAVE AREA. 

ST 13,4015) SAVE CALLER'S SAVE AREA ADDRESS. 
ST 15,8(13) CHAIN MY SAVE AREA IN. 

LR 13,15 ESTABLISH MY SAVE AREA. 


THERE 1S SOMETHING WRONG WITH THIS SORTING ROUTINE, YOU 
HAVE BEEN GIVEN A DUMP SHOWING THE CONTENTS OF STORAGE 
AFTER THE SORT HAS BEEN COMPLETED. USING THE DUMP AND 

THIS PROGRAM LISTING, FIND THE ERROR THAT CAUSED THE 

SORT TO FAIL TO WORK CORRECTLY. YOU HAVE BEEN GIVEN A DECK 
TO MAKE CHANGES TQ AND RUN TO GET THE ROUTINE WORKING. 
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000001990 
000C0200 
00000 360 
CO0CC400 
00000500 
00000600 
00C00 700 
00000800 
OVCOO90C 
000C1CC0 
00001100 
00001200 
00001306 
COGO01400 
OCOO01500 


OOCC1?G0 
GOOO1L&8OO 
00001900 
00002C00 
00C02100 
000G2200 
00002300 
00002400 


Se et i Hee 
* St 9 ose % og 
Sa % He O+ $e x 3 
* woe 4% ® ° % o 4 
% of 3 % kb fe OY x ao 
we ee + . wm 8 Ww % FS 4 
% Wu aa +t oo t > * D + 
% = 4 e va) e % fan) ys 
O ato % a) ° uy ws 
+ o> *% * QD % vw 
% Weer % o De x ft x 
% x * H% WI 3 % om 
% i ria ee % 3 
BW eee ee He + % 3 3 
A % i cn) 
i % os 4 Zz | 
j % OQ " 
ee eo fe J 
Ho Tt | 
|e enn as ce a fle 
| 
j 
| 
{ + 
| % Ot 
{ + + 
| + WS % 
j + WE iy 
i % wd + 
| % Wye * 
| *+ O = ¥ 
x OQmw # 1 
{ * dur | 
| ron) Zt | 
f OQ Ww % | 
f % Du + | 
* aO # ' 
| HN + | 
| %* Ot | % 3 4 
| % | % % 
1 A ! rt 2 
| ! | + OO * 
| | % + 
| | Ht 4 
Vv | { A 
| 1 { | 
' 1 | Vv | 
| oO} { Lu f 
vd = | > 
3 3 4 HM HH He HH 3 gt Th 4b 4 de * } vs 
4% * 4 % 0 6A * % a. + ee { i % 
+ Fe %* OJ ata Ya oe : Ht 3 Co 3¢ 
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ao % ae elt % e+ IO * thea. # WY } Mo fe 
HUY) 4 + = % % # 9 ew | : Wr: <s 
SS al + % ow e 6% % illay © 4% % Must + > | ue a 3 
wri 4H % Night + % NOZ #£ * SX ° voe ey ‘ 
HHO ee HOO ee HH et > 4 3 
+ mm * WO %* wt WO # © FOQuy: ‘ . Lb é 
Nee + N ff WY Cl <tr Ame 3% ~ oO % 
avo * tet fe x CG). aa a QO Ce us ‘ 
eerie %t ka * Mitt ke D + % Zu + % a OF 
Heo % DD a WH miO a Lj ome) ® ee 
er eM % 20 cg Tt 2.) % oe % FF 3t LL 3 
ar + WY 3 tL) a Awe wr % <_ ee ra es 
uw 3% 3 4% 36 4 3G 36 Se ot ot ke 3 36 3 4e 4e TH It a. ts Ww 4 
2 oe = A = on 
as O S Oo 21 
el WY iW ] wl i 
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y ' 
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+ UUs x% i 
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%* O WW xX + 


188 


68L 


LOC 


000014 


000018 
COo01C 
COOOLE 


9900020 
000026 
CO002A 
oC902C 


000930 
090036 
Q0003C 
900042 


900046 


OBJECT CODE 


989B 


9867 
1889 


1858 


D501 
47D0 
1858 
8786 


D7OL 
D?7O1 
D701 
BT9OA 


900¢ 


ADDRIL 


CCA2 


CO9A 


5J00 8000 00000 
C026 


COLA 


90GG 5C00 GO000G 
500C 90CuU 00G00 
94900 500G GG000 
COl2 


ADDR2 


OOOA8 


OOO0AO 


90000 
C002C 


C0920 


00C90 
OS000 
00000 
O0C018 


STMT 


26 
27 


68 


SOURCE STATEMENT 


x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


% % 


% 


Nt te % 


ORTPASS 


* 
* 
COMPARE 


LOWER 


3 tt 3t tt 


THIS IS A SAMPLE OF A LINEAR SELECTION SORT. 


THE SELECTION SORT WORKS ON THE PRINCIPLE OF FINDING THE 
SMALLEST DATA ITEM AND MOVING IT TO 
AND THEN FINDING THE NEXT SMALLEST DATA ITEM AND MOVING 
IT, ETC., ETCey ETC. . : 


THIS PARTICULAR SAMPLE WILL SORT A LIST OF HALF-WORD 
QUANTITIES IN THE LCIST CALLED "INPUTS. 


BOO CIC ICICI ICO KIO II I III IOK kak ak a aia ak ak ak ak ak ak ak ak a ok a ai ake ai ak ak af ak ak akc a ae 


INITIALIZE THE REGISTERS FOR THE OUTER LOOP. 


THE PROGRAM WILL LOCGP FROM THE START TO THE END OF THE LIST 


ADVANCING ONE ITEM EACH PASS. 
LM ROgR11L,=ACTINPUT ,2,INPTEND-3) 


INITIALIZE THE REGISTERS FOR THE INNER (SELECTING) LOGP. 
THE PROGRAM WILL LOOP FROM THE LOGICAL START OF THE LIST 
TO THE END, COMPARING EACH ITEM AS IT GOES. 


LM R6e«R7,=A0C2,TNPTEND—1) 
LR R8,R9 ADDRESS OF THE START OF THE LIST 
LR R59R8 ASSUME THAT IT'S THE LOWEST VALUE. 


SEARCH FOR THE SMALLEST VALUE IN THE LIST 
THE PROGRAM WILL SAVE THE ADDRESS OF THE LOWEST VALUE THAT 
IT FINDS, FOR EACH SCAN OF THE LIST. 


CLC C(2,R5),O00R8) COMPARE TWO VALUES 

BNH LOWER BRANCH, PREVIOUS LOW STILL HOLDS 
LR R5,R8 NEW LOW FOUND, SAVE ITS ADDRESS 
BXLE R8,R6,COMPARE CONTINUE TO END OF LIST 


AT THE END OF ANY QNE PASS, 
VALUE LEFT IN THE LIST. 


REG 5 ADDRESSES THE SMALLEST 


XC O02,R9),0(R5) MOVE LOWEST TO LOW END OF LIST 

XC O(2¢R5),0(R9) MOVE THE LARGER VALUE TO PLACE THAT 

XC 0(2,R9),00R5) LOWEST HAD PREVIOUSLY OCCUPIED. 

BXLE R9yR1LO,SORTPASS CONTINUE UNTIL END OF LIST REACKFED. 


DC H"'Q? CREATE A DUMP TO SEE OUTPUT LIST 


FOBAPRT0 


THE LOW END OF THE LIST 
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AOR I IOI IG IC OC IOC ICICI CGI ci agit totoiictakaak dak §90002600 


00002700 
00002800 
06002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 


00003900 
00004000 
00004100 
00004200 


00004400 
00004500 
00004600 
00004700 
000048C0 
00004900 


00005100 
00005200 
00005300 
00005400 
00005500 
CO0005600 
00005700 


00005900 


00006000 


C0006100 
00006200 
00006 300 
00006400 
00006500 
00006600 


00006800 


PAGE 3 


LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FO8APR70 9/17T/T0 
CO0048 10 SGORTSAVE DS: 1 8F OCOC TOO 
T2 * AT THE END OF EXECUTION, THE SORTED INPUT SHOULD WIND UP OC007200 
oe wae HERE, IN ASCENDING SEQUENCE.. 00007300 
OCI0Ee OACEVCOS50G290C16 74 INPUT CC H§ 14954414163! QOOO0T4OC 
CIIQOIA (5 INPTEND EQU * 00007500 
16 END 00007600 
CGICAD GO009G02 00UCUC9S TT =A(2,INPTEND—-1) 
DOCOA8 FO0CCIIIIC CGC?! 18 =ACINPUT,2,I1NPTEND-3) 


O6L 


L6L 


RELOCATION DICTIONARY PAGE 1 


POS.ID REL.ID FLAGS ADDRESS 9/17/00 
Ol Ol Oc QOO00A4 
Ol Ol OC JVOOOAS8 


Ol Ol OC O000B0 


cet ingen SS Settee 


CROSS—REFERENCE PAGE 1 
SYMBOL LEN VALUE DEFN REFERENCES 9/17/70 
COMPARE CoOCC6 000620 00054 0057 
INPTEND SOCOC1 GCUCC9A COOTS C942 0047 OOT7 C078 
INPUT COOG2 COCO9C OS0T4 0042 C078 
LINEAR CO0uU1l GO0LC00 CU0G1 
LOWER 00004 OCOCEC2C Lu057? 0055 
R1¢C OOCOL GOCOOA 00007 0066 
Ril COCCL OOG00B 0G008 0042 
R5 COO0O01l GU0G05 0U0C2 0049 0054 0056 C063 0064 0065 
R6 00001 COGOC6& 0003 C047? OC5T 
RT COCOL oCouUuT 00004 0047 
R8 OOCOL O0COGB GO005 C04@ 0049 0654 0056 0057 
RQ OVOG1 CCLCO9 GOCCE C042 0048 0063 CU64 0065 0066 
SORTPASS Q0004 Covtls 00047 GC66 
SARTSAVE OGC04 CUG648 COO07TC vO1l2 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
BSSITAELSTICS* SGURCE RECORDS (SYSIN) = 16 
*OPTIONS IN EFFECT* LIST, NODECK, LOAD, NORENT, XKEF, NCTEST, ALGNy OS, LINECNT = 55 


c6L 


lof PRINTED LINES 


€6L 


F44—-LEVEL LINKAGE EDITOR OPTIONS SPECTFIED MAP,LET,LIST»NCAL 


VARIABLE OPTIONS USED —- SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
TEWOO0O0 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LCCATION NAME LOCATION 
LINEAR GO BS 
UTILITY B& 5AO 
PRINT 11A PCHKRETN 376 

ENTRY ADDRESS 58 

TOTAL LENGTH 658 
KRG O DOES NOT EXIST 


BUT HAS BEEN ADDED TO DATA SET 


NAME 


LOCATION 


v6L 


F.P. REGS. 


PEGS 0-7 


REGS 8-15 


O5SF9EO 
O5FA00 
O5FA20 
O5FA40 
O5FA6C 


9696020 


00.015878 00015644 


FFFFFF2E COO6BFF8 OCC1D65C 00060000 


OCU5Fa4e OVCCOO02 BOOSFA3F 


COCGOOCC 
90C4C003 
0006C 498 
06040000 


OCCU6BFF 
98E7CO9A 
50uC900C 
47° OS0DC 
80C5471C 
0€C299512 
SOECDOOC 


4A009BDE 


vUuUTDO00 
5OCO6A3E 
CC 0G0001 
CCOOG7BC8 


COOGOTOO 
16891858 
D7O190CO 
D5C3C020 
S4CA47FO 
540094F6 
O5CCO4FO 


40050000 


QOC5SFA4O 


900G0CCO 
FFA50001 
00601468 
00040000 


SOECDOOC 
D5015000 
5000879A 
94FE477T0O 
94B05B8D0 
00C00002 
07004110 


47F095C6 


40.003B22 00015628 


00009060 
4FO5F9OFO 
00005920 
C0007588 


O5CO41FO 
80004 7D0 
C0120000 
93DE59A0 


95120503. 


OCO5FA41 
CO100511 


48609BEE 


00.015724 6000284A 


E2.E8E2E5 E3D6C0340 


OOOLAZEO OGCOSFA3E 00000002 OQOOS5FA41 
6FCS5FOAE OOO5FIFO OO0CCTD4 OOO5FIFO 


COO5F9A8 
OOOCFFOO 
G83C5600 
000C9000 


C04250DF 
C0 261858 
93329507 
94FE4770 
DOO494FE 
OOO5FA38 
GFOC5FB04 


8A600001 


GCQ00000 
COCO00000 
OO00996C 
O0C012D10 


CO0450FD 
8786CO1LA 
COCE6BF68 
94CA9507 
417809392 
C0000002 
TFFFOAQE 


471C969E 


FFO60000 
FEO040133 
00040000 
00040000 


OCC818DF 
Df0190C00 
9332D7C3 
C0264780 
C0030000 
OOO5FA3F 
38BC0010 


48609C26 


80000000 
BCOOQOALE 
CO0CT498 
OOOUCTS5SIA 


989BCOA2 
5COCDTO1L 
600C60CC 
93DE91L40 
OOOEVOCO 
94FA4111 
9110BG074 


41660901 


Tae a Se a oe a aS eS a aD Bl a: WC ele el ee ae oe 
OF gt ila. or a orgy Be ey wesw oO) eee Bel Sw See ee ee 


te 
Fg wal a: ee: aie nay are i we es eS a a ee oe er we 


% tt 3 4 


Oe a ee eo ee ae ee ee ee eer ee eee er ee 


F oi aise e 6) Sie) be Wl 66ow ea © AOR: 2 Se wee OS aOR Se 
FF 6 G6 ee ee NG ow Se OE ew Sree 6 EP aS oe Ps 
gta ea ere ee we ete ele eee Siesae eerececa te 3 ei: eke 


Fe sica tN oie <0! wie “boo! a: ere ee 6s. WS eee % 


fe HH tH te 


oe ee a ees oe ere ea er) ee ae ere ee a ee ee ae ee 
die ale M6 O ae 6 OC ASS OS 6S OEE a ele eee 
gs oe ere ie Woe Ww ele ew we Oe re ee ee oe 


Ee see Pee ee oe ae ee a ee ee ee ee ee ee ee 


iki ERIC RK RIO I kok ak ikak aie ok kok akc a ac a RI RR a RO aK ae fe i a 2 a a 2 a a 2 RC RA A KA RC RE OR RE A a EE A RE A He ee RE A EC CE aE OK HE 


: 


S6L 


VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VY 
VVVV 
VV 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
“AA AA 
AA AA 
AK AA 
AA AA 


RRRRRRRRRRR 
RRRRRRRRRRRR 
RR RR 
RR RR 
RR RR 
RRRRRRRRRRRR 
RRRRRRRRRRR 
RR RR 

RR RR 

RR RR 
RR RR 
RR RR 


HORE RC A EK CE AK 2 EN +E AC OK CC OK aK he 2K ee A OR RE RE eae se Ke Ree ME oe a He Hee Ae A I 


Dip na a RR a A Rt i 


whe 
“™ 


ITIIITITiiil 
TTL Liriil 
If 
Il 
Il 
II 
il 
II 
Il 
If 
TIQQGTiTrire 
IIQITITIilrti! 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 

99 
99 99 
999999999999 
9999999999 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


BBBBBBBBBBB 
BBBBBBBBBBBB 
BB BB 
BB BB 
BB BB 
BBBBBBBBBB 

BBBBBBBBBB 


BB BB 
BBBBBBBBBBBB 
BBBBBBBBBBB 


LLLLLLLLULLL 
LELLLLLLELLLLL 


EREEEGEEEPECE 


ERBEEEEEEEEEE 


FE 

EE 

EE 

EEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
EFEEEEEEEEEEE 
EEEEEEEEEEEE 


Oe ARE SE NS OS Re HE As EK RSA A A SK HAE REE I AS EO SK AE Oe Oe AK SE AS AE OE Sa aS AE AR I 2 AE SS wpe oa AS AE IK RE AR AE AK RE AEE A KC EE EE OK EK 


EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL TYPE ID ADDR CLCENGTH LD ID 14.21 9/16/70 


CARDSCAN SD O1 GOO0OG O006FS8 
PCHKRETN ER 02 
READ ER O03 
EOP ER C4 


=~ 
ice) 
a 


PAGE 1 

LCC OBJECT CUDE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR/0 9/16/7C 
oCGC00 1 CARODSCAN CSECT | 00000100 
2 -COPY MHMBEGIN . 00000200 

000000 3 RO EQU ¢) 00000700 
900001 4 Rl EQU 1 OGOQ00800 
C000902 5 R2 EQU 2 00000900 
COG0903 6 R3 EQU 3 00001000 
9003004 T RS EQU 4 00001100 
C00095 8 R5 EQU ) 00001200 
COCI06 9 R6 EQU 6 00001300 
CO000T 10 R7 EQU 7 00001400 
009008 il R8 EQU 8 00001500 
9090909 12 R9 EQU 9 00001600 
OCOIOA 13 R1C EQU 1G 00001700 
oC 909B 14 Rll EQU ll 00001800 
COCOONC 15 Rl2 EQU 12 00001900 
COOSOD 16 R13 EQU 13 O0CO02C00 
QOJODE 17 R14 EQU 14 00002100 
COOCOF 18 R15 EQU 15 00002200 
CCO000 IOGEC DCOC O000C 19 STM R14sR1l2,12(R13) SAVE THE CALLER'S REGISTERS O0UCO02400 
0C9004 95C0 20 BALR R12,0 ESTABLISH PROGRAM BASE 00002500 
000096 21 USING *yR12 LET THE ASSEMBLER KNOW. 00002600 
O00C06 41F0 C6A2 GO6A8 22 LA R15,SAVEAREA ADDRESS OF MY SAVE AREA 0000270C 
DOOO0A 5SCFD 0uC8 C0008 23 ST R15,8(R13) BACKWARD CHAIN 00002800 
OCOO0E 50DF 0004 C0004 24 ST R13,4(R15) FORWARD CHAIN 06902900 
@ C00012 18NF 25 LR R13,R15 ESTABLISH MY SAVE AREA 00003000 
“C909014 0703 0068 DOG8 0G008 090008 26 XC 8(4,R13),8(R13) TERMINATE THE FORWARD CHAIN 00003100 
2? * END OF STANDARD ENTRY LCINKAGE CONVENTIONS. 00003200 


28 PRINT OFF 00000300 


86L 


Lac 


CO902e 
009036 
002052 


VARTABLE LENGTH FIELDS 


OBJECT CUDE 


OG22 
EZC8CSE24UC9 054U 


ADDR ADDR2 


WORK PROJECT. 


STMT 


36 
a7 
38 
39 


41 
42 
43 
44 
45 
46 
47 
48 
49 


a4 
52 
53 
34 
55 
£6 
57 
58 
a9 
69 
ol 
62 
63 
54 
65 
66 
67 
&8 


st Me 


Ho 3¢ 


te 3 


% x 


24 
rky 


% i 4 4% 


rd 
an 


V 


3% 3 He oH HO 


69 %* 


TC 
T1 
72 


Mm He 


SGURCE STATEMENT FORAPRTO 
FCI GK kak i ak a ok ak a ak ak ak af ak ak ai ok of ok ak oe ok 
* VARIABLE LENGTH FIELD PROCESSING. * 


PD AD ED en et EE eee a ee a ee ae ae ee cee a ee ES ee cee ny SE ee ew 


SOIC IC ICI IO III IOI AIO OE IC I Gok ak ok alk lok 4k ak ik a ak ook ok ok a 


AS YOU ARE CERTAINLY NOW AWARE, WE DO NOT ALWAYS KNOW THE 
LENGTH OF SOME DATA FIELDS AT ASSEMBLY TIME, SO WE NEED 
SOME TECHNIQUE FOR CODING INSTRUCTION SEQUENCES TO COPE 
WITH VARTABLE LENGTH DATA FIELDS. LET US FXAMINE SOME 

OF THESE. 


IN THESE FIRST FEW EXAMPLES, ASSUME THAT wE ARE DEALING 


WITH A DATA FIELD WHICH HAS A HALF-WORD LENGTH FIELD 
PRECEEDING THE CHARACTER DATA WE WANT TO MANIPULATE (THE 
VARITABLE-LENGTH FIELD). THAT IS.. 
DS OH 
ARIABLE DC AL2(8-A) LENGTH 
DC C'THIS IN AN UNKNOWN LENGTH MESSAGE.! 
EQU 
ASSUME ALSO THAT THE ADDRESS OF THE WHOLE MESS IS IN 
REGISTER 3, AND THAT WE WANT TO MOVE ONLY THE DATA TO 
A PLACE CALLED "MESSAGE!. 
t—-—---- + +—-----——- $n + 
f dee pee >} LEN. {| A VARIABLE LENGTH FIELD. | 
$—------ + t—-—----— $e ee + 
REG. 3 0 2 LEN. +2 
Se ok xe kk of ak kg ok ak ok of ak af a 2c ok ofc ale a ofc ik oe de oc oie 2K 2 fe a I EE I ES EE A NE OK OE AE OC IE EC AE NSE OC Xe IR IE OE ORE OK OK I IS OK OK 
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9/16/76 


00001100 
O0U0012V00 
00001300 
OCO0G14CO 


Q00UC01600 
009001700 
O00C1800 
QOC0Q01900 
CC002000 
CO0G21C0 
00002200 
VOIC2 300 
O9C002400C 


CO006260C 
90002700 
0600280C 
00002960 
0OCO03CCO 
CC003100 
60003200 
06003300 
00003400 
00603500 
06003600 
00C037006 
00003800 
00003990 
00004000 
00004100 
00004200 
00064390 
009004400 
0000450C 
00004600 
00064700 


66L 


VARTABLE LENGTH FIELDS WORK PROJECT. PAGE 3 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOSAPRIO 9/16/76 

14 * MEK AK AK KK AK OK A AE A EE OK A OE OE EK EO GO004960 

75 x * SOLUTION 1: A LOOP x C0005000 

T6 % sl atteateenteeaentiinetediindioananatet 00005100 

77 * BK OAR AE AK OK AE A OK OI KK OK AK EE AK AK OK OK OK OK OGO00520U 

19 Gaba oa + bs ecto aie SS SSS eS Se arene a en ee ae + CGC054C00 

80 * | +—-+----- >! LEN. | A VARIABLE LENGTH FIELD.1 00005560 

81 * +------ + +------ +----~—---------~---------- + 00005600 

82 * REG. 3 0 2. LEN.+2 90005700 

005052 4130 C026 CCO2E 84 LOOPSAMP LA R3yVARIABLE FIRST, WE*LL TRY A LOOPING TECHNIQUE 00005900 

693056 4843 0000 (ofekeyere) 85 LH R4,O(R3) GET LENGTH INTO REGISTER 4. OCOC6CCE 

Q0005A 4153 G0C2 09902 86 LA R5y2(R3) GET DATA ADDRESS INTO REG 5 90006100 

S9005E 416C CC78 OCOTE 87 LA R6yMESSAGE OUTPUT AREA ADDRESS INTO REG. 6 00006200 

88 * 00006300 

89 x OK, NOW WE ARE ALL SET TO LOOP, USING A * TRAILING DECELSION!. 000064C0 

90 * THE BCT AND BCTR INSTRUCTIONS ARE IDEAL FOR THIS KIND OF LOOP. 00006506 

91 * 0C006600 

92 * BUT YOU KNOW THAT... 0C006700 

93 %* 00006800 

94 THERE IS HOWEVER, ONE FAULT WITH THE BCT INSTRUCTION 00CCG06900 

95 % IF THE REGISTER HAS AN INITIAL VALUE OF ZERO, WE LOOP FOR A 00007000 

96 3 VERY, VERY LONG TIME.. SG, WE HAD BETTER TEST FOR ZERO FIRST. 00907100 

97 * 00067200 

029062 1244 98 LTR R4,R4 IF REGISTER 4 CONTAINS ZERO 00007300 

COIC64 4720 CO78 COOTE 39 BZ AROUND BRANCH AROUND LOUP. (MOVE NO DATA) CCOOT406 

COC068 100 LOOP EQU) * HERE GOES THE LOOP...ee.. 00007500 

269068 D20C 6000 5606 Cocco 0N0CCO 101 MVC O(1,R6),0(R5) MOVE ONE BYTE FROM IN TO OUT 00007600 

OOGO6E 4155 9001 oo0col 102 LA R5,1(R5) POINT TO NEXT INPUT BYTE C0007700 

CO9972 4166 O00C1 00001 163 LA R6,1(R6) POINT TO NEXT GUTPUT LOCATION 00007800 

090076 4640 C062 00068 104 BCT R4,L00P AND CONTINUE TO END OF FIELD. 00007900 

DOOCTA 47FO COAT OOOA6 Lo5 B MODIFY 00008000 

OGI0TE 106 AROUND EQU * 00008 LOG 
CODCTE 40494540404064040 107 MESSAGE DC 


40C* * OCC08200 


002 


VARIABLE LENGTH FIELDS WORK PROJECT. 


LOC §=SOBJECT CODE 


CCOCA6 4843 


QO00AA 0640 
COQOAC 4240 


cCOCOBS D20C¢ 


GOGO 00000 


CCAB OO00B1 


CO78 3002 OOO7E 90002 


ADDR1 ADDR2 


STMT 


109 
110 
111 
112 


114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 


140 
141 


143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 


MM HH Se He He He 


3H Ht 


% # 


% 


Ko 3 HF 


% HH HK 


SOURCE STATEMENT FO8APR70 


OA I I FOR ROR II OI CK ai aR a 2 aK OK aK a ok ok 
* SOLUTION 2: INSTRUCTION MODIFICATION. * 


MR AEA AR AE A OK CO OK XE OE CE AK EC AE CEE OK OC OK OC KK a 


BO A i ti iii kk tok a kok aii ak iia aK kak ak aka oc ako a ae ok fk kc ac a acai ak ak ok 


OK, THAT WORKS, BUT ITT REQUIRES US TO EXECUTE 4 INSTRUCTIONS 
PER BYTE OF DATA IN THE FIELD. THIS CAN TAKE CONSIDERABLE TIME 
SO, IT MAY BE PREFERABLE THAT WE DO THIS SOME OTHER WAY. 

SO, LET US EXAMINE ANOTHER METHOD, * INSTRUCTION MODIFICATIONS. 
REMEMBER THAT THE SECOND BYTE OF AN ASSEMBLED STORAGE-TO-— 
STORAGE INSTRUCTION CONTAINS THE LENGTH OF DATA TO BE USED. 


+ 
+ 
# 
c 
+ 
+ 
re 


NOTES REMEMBER THAT REGISTER 3 STILL PCINTS TO THE VARIABLE 
LENGTH FIELD. 


BIO ICC IORI OR OI IOI RO ok kak a a IK i kf ak ak ak ki a a ok oak ak ok oi ak oie tke ak fe akc oo ok 2 ae ok 


ODIFY LH R4,0(R3) GET LENGTH OF DATA INTO REG 4. 

AT THIS POINT? WE MUST CONSIDER THAT THE LENGTH FIELD IN AN 
ASSEMBLED S~-S [INSTRUCTION IS GNE LESS THAN THE LENGTH OF TRUE 
DATA TQ BE USED. SO, SINCE WE ARE GOING TO DO OUR CHANGING 


TO A MACHINE INSTRUCTION, WE HAD BETTER SUBTRACT ONE FIRST. 
BCTR R40 SUBTRACT ONE FROM LENGTH 
STC R4,MOVEF1L STORE LENGTH INTO INSTRUCTION 
CALLED "MOVES. 
OVE MVC MESSAGE(0)7,2(R3) MUVE THE REQUIRED DATA. 


THIS, OF COURSEs, WORKS VERY NICELY FOR FIELDS LESS THAN OR 
EQUAL TQ 256 BYTES. 


THE PRECEEDING TECHNIQUE HAS ONE MAJOR DISADVANTAGE, IT MADE 

A PERMANENT MODIFICATION TQ AN INSTRUCTION, WHICH PREVENTS US 
FROM BEING COMPLETELY RE-ENTRANT.C(SUPPOSE WE GET INTERRUPTED 

BETWEEN THE STC AND MVC INSTRUCTIONS AND ANOTHER PROGRAM GETS 
CONTROL AND MAKES IT ALL THE WAY THROUGH THE SEQUENCE BEFORE 

WE GET CONTROL BACK -— THE LENGTH [S NOT WHAT WE HAD WHEN 

WE LOST CONTROL....) 


THERE MUST BE SOME WAY AROUND THIS PARTICULAR PROBLEM, AND 
IT IS CALLED THE EXECUTE INSTRUCTION. 


He tee he ae ae ke 2k fc aie i ai aK aK a 2 RC KC aR fe i RR aR OK OC RE OK AE OK A IE CC I a RE OK AK CK A A RK IE AE AC A SC NC NE AEE AC A 


PAGE 4 


9/16/7C 


900008400 
O00 C08 500 
000G8600 
009008700 


00008906 
00069000 


00009100 


00009206 
00009300 
O0C009406 
00009500 
OCOC9600 
O0CCITOC 
00009800 
O0GCC99N0C 
00010000 
00010100 


00010300 
00610400 
OG0105G6C 
0001G600 
00010700 
00010800 
G0010900 
GQU11000 
0CC11100 
OCGO01120C6 
COOL1L3UC 


00011500 
00011600 


OCO11800 
00011900 
O0012CCS 
00012100 
00012200 
00012300 
00012400 
UCQ1250C 
00012600 
OCO12700 
00012800 
00012900 
00013000 
00013100 


VARIABLE LENGTH FIELDS WORK PROJECT. PAGE 5 

LOC OBJECT CODE = ADDRI ADDR2 STMT SOURCE STATEMENT FO8APRT0 9/16/70 
158 * AE AK A He Ae A CE I BR AE SC OK OC AE KE 2 Oe OK 06013300 

159 * * SOLUTION 3: "EXECUTE". 00013400 

160 * # aa------ -- ---------- * 00013500 

161 * BEAK AE AE AE AE AE AK AE A A A A KE OC A I OO 2c IE OK OK és 00013600 

VL 63 RRR RA A A A KE A OO OK IE OK OK OK KK aK KK OK ak Sok ok ok eek kK KK KKKKX OOCOL3800 

164 * 00013900 

165 * WHAT THE EXECUTE INSTRUCTION DOES IS EFFECTIVELY IDENTICAL 00014000 

166 * TO THE PRECEEDING TECHNIQUE (INSTRUCTION MODIFICATION), BUT 00014100 

167 * IT'S MAJOR ADVANTAGE IS THAT IT ONLY EFFECTS AN INSTRUCTION 00014200 

168 * MODIFICATION.. EVERYTHING IS DONE WITHIN THE CPU'S LOGICAL 00014300 

169 * UNIT, OR WHATEVER THEY CALL THAT THING... 00014400 

170 * 00014500 

171 * IN REALITY, IT*S ALL DONE WITH SODIUM PENTATHOL AND HYPNOTIC 06014600 

172 * SUGGESTION. 00014700 

173 * 00014800 

174 * THE EXECUTE INSTRUCTION TAKES THE LOW-ORDER BYTE OF THE 00014900 

175 * REGISTER NAMED IN THE FIRST OPERANDy (IN THIS CASE REG. 4), C0015000 

176 * AND LOGICALLY 'GRS* THAT BYTE WITH THE SECOND BYTE OF THE. 00015100 

177 * INSTRUCTION THAT IS NAMED IN THE SECOND QPERAND, (*MOVEDATA* 00015200 

178 * IN THE EXAMPLE), AND THEN EXECUTES THE INSTRUCTION JUST 00015300 

179 * MODIFIED (EFFECTIVELY) AS THOUGH IT EXISTED IN THE SPACE 00015400 

180 * WHERE THE EXECUTE INSTRUCTION ITSELF WAS LOCATED. 0c015500 

y 181 * BUT YOU KNOW ALL THAT ALREADY, SO WATCH... 00015600 
= 182 * YOU WILL NOTICE THAT AT NG TIME DOES MY HAND LEAVE MY WRIST. 00015700 
183 * 00015800 

184 *eeKKKRK NOTE: REMEMBER THAT REGISTER 3 STILL POINTS TO THE VARAIBLE 00015900 

185 * LENGTH FIELD. 00016000 

186 * 00016100 

LB REE RA A A A I A A A OO I A A EO EE AE SEO A AK A OK OK AK EE OK OK eK a ok OK RK KK KK RK OOOL6200 

OC00B6 4843 0000 00000 189 LH = R4,0(R3) GET LENGTH INTO REGISTER 4 00016400 
COCCBA 0640 199 BCTR R40 REDUCE LENGTH BY ONE. 00016500 
OOCOBC 4440 COBE 000c4 191 EX  _R4yMOVEDATA ALTER THE "MOVEDATA' iNSTRUCTIUN 0C0166C0 
192 * EFFECTIVE ALTERATION ONLY, AND MOVE 00016700 

193 * . THE DATA TO MESSAGE.. 00016800 

N090CO0 47FO COC4 OOOCA 194 B GOONBY BRANCH TO SHOW THAT WE DO NOT 00016900 
195 * WANT TO EXECUTE THE MVC IN LINE. 00017000 

9020C4 D29C CO78 3002 OOCTE 00002 197 MOVEDATA MVC = MESSAGE(O),2(R3) 00017200 
DB RR AAC AE KE AE FE A EEK IE RE IE AE OK AE AE AK A OE OE AE AS AE AE AE AC A HE AE A KE IK IE OK IK EO FE KE AK AR OE KK ARK KKK KE KK 6 OOO01L 7300 

199 * 00017400 

200 * IF YOU CONSIDER THE FACT THAT THIS SAME SEQUENCE OF EVENTS 00017500 

201 * EXISTS WITH ANY INSTRUCTION AND THE "EXECUTE" INSTRUCTION, ocol7600 

202 * YOU'LL SEE WHAT A REALLY POWERFUL INSTRUCTION IT CAN BE, 00017700 

203 % PARTICULARLY IN A RE-ENTRANT ENVIRONMENT. 00017800 

ane oco179co 

905 sooo oi oR tok lock iotok ok ick gc toi io igiotgkaick tok dota iota tok tokkakoiokacdokdokcrktoek 060018000 

OCOCCA 47FO COCA 60000 206 GOONBY 6B GETACARD+2 00018100 


VARTABLE LENGTH FIELDS WORK PROJECT. PAGE 6 


LCC OBJECT CODE ADDR1L ADDR2 = STMT SOURCE STATEMENT | FOSAPRTO 9/16/70 
208 x FI A OR ICE a CR ACR Ca RC a OR CR ak a 2 aK a 00018300 
209 * * CONTROL CARD SCANNING. * 00018400 
210 * # meaene-- ---- -~------- x 00018500 
211 * ROE EO I CR ACR RE CR aK ak a a aC ok 00018600 


ZLZ KEEFE EE EE EE EFE EEE EE FEE HE EEE EEE EEE EEE EEE EE EE EE EE EE EEE EEE EEE tte ete eee te+te+ 00018800 


214 * 00018900 
215 -* THERE ARE, OF COURSE, SOME OTHER PROBLEMS THAT CAN ARISE WITH ©G0019000 
216 * VARTABLE LENGTH FIELDS. TO WIT: WE MIGHT NOT ALWAYS KNOW THE 00019100 
217 * LENGTH OF THE FIELD WE ARE TO PROCESS CAS WE HAD IN THE FIRST 06019200 
21a * EXAMPLES). SOs WHAT DO YOU DO THEN ??? 00019300 
Z219. % 00019400 
220 = THE BEST, AND ONE OF THE MOST FREQUENTLY USED METHODS IS TO 00019500 
221 * SEPARATE THE FIELDS FROM EACH OTHER BY USING SPECIAL 000196C0 
222 * CHARACTERS, CALLED "DELIMIETERS", WHICH MAY NOT BE USED WITHIN 00919700 
223 * THE FIELDS THEMSELVES. THEN, HAVING ONCE FOUND THE START 00019800 
224 * OF A VARTABLE FIELD, WE NEED ONLY TO LOCATE THE DELIMITER 00019900 
225 * AT THE END OF THE FIELD, SUBTRACT THE ADDRESSES, AND EUREKA... OCO200C0 
226 * YOU HAVE THE FIELD'S LENGTH. FROM THERE GN, YOU'RE HOME FREE, 00020100 
22t * BECAUSE YOU ALREADY KNOW HOW TO USE THE "EXECUTE™® INSTRUCTIGN, 00020200 
228 * DON'T YOU ?? A STMPLE NODDING OF THE HEAD "YES" WILL SUFFICE. 00620300 
229 * 00020400 
Ny 2303-5 ONE OF THE FASTEST, SLICKEST TECHNIQUES OF LOCATING DELIMITERS 00020500 
N Zo. % TS TO USE THE TRANSLATE-AND-TEST INSTRUCTION (TRI), AS IT TS COG206E00 
232 * USED IN THE FOLLQWING PROGRAM, 00020700 
233 * 00020800 


234 KEEEEE EE EEE EEE EEL E EEE EEL EFE EEE EEE EEE EE EE EEE EEE EEE EEF EEE EEE Het te tee tee ett ©6 OCO20900 
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A TYPICAL CONTROL CARD SCANNING PROGRAM. 


LCC OBJECT CODE ADDRL ADDR2 STMT 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 


oe 
258 
259 
2 60 
261 
262 
263 
264 
265 
266 
267 
268 
ZOD 
270 
2tl 


273 
274 
215 
276 
277 
278 
2t9 
280 


SOURCE STATEMENT FO8APR70 


ME FE AK A AEE AR I OC OK OK OK AE AE OC OE AE OK OK iE aC AE OO A OK OK AC Oe EAS KO CC EA OK ok OK 2 Oo RE OK OK oC OK i oi ok i ok Kok 


THIS ITS AN EXAMPLE OF A CONTROL STATEMENT SCANNING ROUTINE 
FOR A HYPOTHETICAL DATA FILE MAINTENANCE PROGRAM. 


THIS PROGRAM IS "KEY=WORD DRIVEN" IN THAT THERE ARE CERTAIN 
WKEY™ WORDS OR PHRASES IN THE CONTROL CARD THAT TELL THE 
PROGRAM THE MEANING OF THE VARIABLE LENGTH DATA THAT FOLLOWS. 


A "KEYWORD" 
SIGN. 


IS GENERALLY SEPARATED FROM IT*S DATA BY AN EQUAL 
KEYWORDS ARE SEPARATED FROM OTHER KEYWORDS BY COMMAS. 


THIS ROUTINE READS A CARD FROM THE INPUT STREAM AND SCANS 

IT FOR THE FOLLOWING KEYWORD VALUES "NAME, ADDR, PHONE, CITY, 
STATE, DEPEND, ZIP, AND STATUS. WHEN IT FINDS ONE OF THE 
KEYWORDS, IT MOVES THE DATA THAT FOLLOWS THE KEYWORD TO THE 
CORRECT LOCATION IN STORAGE. 


THE CARD INFORMATION MUST BE OF THE FORM :; 


i i i i i a a a, Cr 


NAME=MAFARKLE s ADDR=123 SMAINy DEP END= (MARKy SPARKLE» SIMON GAR) y 
PHONE=1234567 


VERB 


WHERE THE DATA IS DESCRIBED BY KEYWORDS FOLLOWED BY VALUES 
FOR THE KEYWORDS. THE *VERB* TELLS THE PROGRAM WHAT ACTION TO 
TAKE (ADD, DELETE, OR ALTER) THE DATA IN IT*S MASTER FILE. 


4 oe 4 


% 4 


KEYWORDS MUST BE SEPARATED FROM THEIR VALUES BY AN EQUAL SIGN. 
PARAMETERS ARE SEPARATED FROM EACH OQTHER BY A COMMA. 
SUB-PARAMETER LISTS ARE ENCLOSED IN PARENTHESES, WITH EACH 
VALUE IN THE LIST SEPARATED FROM THE OTHERS BY A COMMA. 


THE CARD STATEMENT [TS "FREE-FORM"™ IN THAT FHE KEY-WORDS 
MAY BE ABSENT OR APPEAR IN ANY ORDER, AN ADVANTAGE IF 
YOU'RE AN AMATEUR KEY-PUNCH OPERATOR. 


a ee ee 


ACO IC IC OA IG I ROA IO RII a a a aR a ag 2k ok a ak ak af ak ak ak ok ak ak ak ea 


FIND A SERIES UF 
SCAN OVER THE CODE 
WILL LEAD YOU TO 
ABOUT THE PROGRAM. 


AT THE END OF THIS PROGRAM YOU WILL 
QUESTIONS ABOUT THE PROGRAM. FIRST, 
ANO THEN ANSWER THE QUESTIONS. THEY 
MANY OF THE MAJOR ITEMS OF INTEREST 


st tH 4 3 


TOI ok oki ok tok doko igi a aK tok kak kaka a ak ak oie ak ak ica oc ak oka ak aia ak ok ok ok ok ke os aio akc ok ak ak ak 280K ok ak ok 
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9/16/70 


00021100 
90021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
06022300 
00022400 
00022500 
00022600 
00022700 
00022800 
00022900 
00023000 


*00023100 


00023200 
00023300 
00023400 
00023500 
00023600 
00023700 
00023800 
00023900 
00024000 
00024100 
00024200 
00024300 
00024400 
00024500 
00024600 
00024700 


00024900 
00025000 
00025100 
00025200 
00025300 
00025400 
00025500 | 


00025600 


voz 


GETACARD 


KAKA LKKRKKKE KK 
x START CARD x 
* SCANNING * 
* ROUTINE * 

Bok tok tok kk kk ok 


Vv 
eX. 
Blox. 
.* x, 
YES .* WAS CAPD *, 
+-— *, CONTINUED ?. « 


~~ e 


* 


V 
sok RKC] xk RCE 
* 
* CLEAR ALL 
ene AREAS. 


$e 36 4 36 4e 3b 4¢ 


+ 3% 
3¢ 
% 
3t 
+t 
+% 
+ 
st 
+t 
ag 
+ 
3t 
+¢ 
x 
% 
+ 


NORESET V ; 
4% D ] Ra 


*& 


He He a a HE KK A EH 


is -- ENDOFILE 
A2  *. , 
x er WRK eK AD eK eo KK OK KOK 
ex *x. YES * * 
+-->*. END OF FILE ?.% -—-----~ >* RETURN. x 
*, x * * 
x, * HK Mek a ake ok He oe oe Ke ae ie oe ok 
Rig Re 
* NO 
+ ne eee eave one ate eee <0 ee eee ee oe 
V 
KBD KKK KK & 
* * 
* SET UP CARD * 
*LIMITS (COL. 1 * 
* = 71), * 
* % 
sok dk kK KEK 
V 
KRKKEC DKK KKK KKK K 
*FIND START AND * 
* END CF VERB, * 
* MOVE IT TQ #* 
*  VERBSAVE.  * 
* * 
KKEKKKKAKEKRAKKAKKKK 
NO 
FIND KWD V CHKEYWDS .*. 
KK KKK DD KKK KKK KKK D x, 
x * -*KEYWORD*. | 
*FIND BEGINNING * -* DELIMITED *. YES 
x OF FIRST KEY * -—------>*. BY AN EQUAL .* --- 
* WORD. #. SIGN ? 4% 
We OE OK Kok Be eK KK KK ok * x 


DEL IMERR 


KKK A a RK eK KK 


* 
me TAKE A DUMP. 


* 
* 
* 


He RK oe eK OK eK 


KEYDCOMP .*. 
D4 


*, 
x 

«* TEST THE 

~—3—— > *. gf KEYWORD e 
x, on 

~*~, 4 * 
NAME----> 0 
ADDR--~-> 0 
PHON---~> 0 
DEPN----> 0 
Cit yY=—-=>'-0 
STAT==S=>: 0 
ZIP ---~> 0 
STAS~----> 0 
OTHR----> O 


ODOOCT09T0090O 


ARDSCAN 
1 OF OO1 


_ 
om 


A TYPICAL CGNTROL CARD SCANNING PROGRAM. PAGE 9 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOBSAPRTO 9/16/70 
324 * : 06030000 

325 * READ A CARD TO BE SCANNED. 00030100 

326 * 00030200 

OOOOCE 0017 327 GETACARD OC H' 238 TAKE A DUMP TO SEE THE TABLE. 00030300 
000000 9180 C36D 90373 328 ™ FLAGS, CONTINUE CONTINUATION EXPECTED ? 06030400 
999004 4710 CODC COOE2 329 BO NORESET YES, DON'T RESET DATA FIELDS YET. 00036500 
000008 924C C2EA 002F0 330 MVI  VERBSAVE,C* * NO, BLANK OUT FIELDS FOR NEW CARD 00030600 
COOODC 0281 C2EB C2EA 002Fl 002FO 331 MVC VERBSAVE+1(L"VERBSAVE#L * NAMESAVE+L# DEPNDSV~-1) »VERBSAVE 00030700 
O000F2 947F C36D 00373 332 NORESET NI TURN, OFF—CONT INUE | 0003080C 
OOQCOE6 4110 C296 0029C 333. LA = Rl, CARDPTR ADDRESS OF INPUT AREA ADDRESS. 06030900 
OOOOEA 58FO C6EA O06FO 334 L R15y=V(READ) 00031900 
COCOEE OSEF 335 BALR R14,R15 REAC A CARD FROM INPUT STREAM. 00031190 
OOOD0FC 58FC C6éEE O06F4 336 L R15,=V(EOF) ADDRESS OF END OF FILE INDICATOR. 00031200 
COOOF4 9500 F003 00903 337 CLI 3R15),0 IS END OF FILE INDICATED ? 60031300 
OCOCF8 4770 C46E 00474 338 BNE  ENDOFILE YES; QUIT. 00031400 
339 * | 00031500 

340 * START SCANNING FOR THE FIRST NON-BLANK CHARACTER IN THE CARD, 00031600 

341 * THIS WILL BE THE START OF THE VERB. 00031700 

342 * | 00031800 

COOOFC 4180 C29A 002A0 343 LA R8,CARDAREA NO, BEGIN CARD SCAN WITH COLUMN L. 00031900 
CCO1LODO 4160 OCC1 OGO0l 344 LA R6,1 INCREMENT 60032000 
COC104 4170 CZEO O02E6 345 LA R7 + CARDAREA+T70 UPPER LIMIT (COLUMN 71) 00032100 
000108 8686 C29C 00296 346 BXH  R8yR6,NOVERB SCAN FOR NON-BLANK 00032200 
COCLOC 9540 BC00 00060 347 CLI O(R8),C* * IS THIS A BLANK ?? 00032300 
wm 000110 478C C102 00108 348 BE x— 8 YES, CONTINUE SCAN 00032406 
7 000114 1822 349 SR R2,R2 | NON=BLANK FOUND. 00032500 
CO0116 DDOT 8000 C36E 00000 00374 350 TRT O(8yR8),TRTABLE LOCATE END OF VERB 00032600 
OOOLIC 47F2 Cl1A 00120 351 B *+4(R2) BRANCH BASED UN DELIMITER 00032700 
600120 47FO C290 00296 352 B DEL IMERR NO DELIMITER, FIELD TOO LONG 00032800 
000124 47FO C12A 00130 353 B F INOKYWD BLANK, FIND FIRST KEYWORD. 00032900 
000128 47FO C290 00296 354 B DELIMERR COMMA, DELIMITER ERROR. 00033000 
CO012C 47FO C290 C0296 355 B DELIMERR EQUAL SIGN, INVALID DELIMITER. 00033100 
357 * 00033300 

358 x LOCATE THE END OF THE VERB (DELIMITED BY A BLANK), MOVE THE 006334060 

359 x VERB TO "VERBSAVE', AND FIND THE NEXT NON-BLANK CHARACTER, C0033500 

360 * WHICH WILL BE THE START OF THE FIRST KEYWORD. 00033600 

361 * 00033700 

206130 1818 362 FINDKYWD SR R1—R8B FIND END OF VERB. 00033800 
0060132 4780 C290 00296 363 BZ VERBERR LENGTH = O, ERROR. 00033960 
200136 0610 364 BCTR R110 ~ 1 FOR EXECUTE. 00034006 
CO0138 4410 C14A 00150 365 EX RlyVERBMVC MOVE VERB TO SAVE AREA. 00034100 
©0013C 4181 8C0C 00000 366 LA R8B,sC(R1L»RB) POINT TO 1ST CHAR AFTER VERB. 60034200 
COG140 8686 C29¢ 00296 367 BXH  R8yR6sNOKEYWD SCAN FOR FIRST KEY WORD. 00034300 
990144 9540 8060 C0000 368 CLI O(RBI,Ct * NON-BLANK ? 00034400 
000148 4780 C13A 00140 369 BE x= 8 NO, CONTINUE SCAN. 00034506 
00014C 47FC C156 00156 370 B CHK EYWDS FOUND, SCAN KEYWORD. 00034600 
000150 D20G C2EA 6000 002FO 00000 372 VERBMVC MVC  VERBSAVE(0),0(R8) 00034800 
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LOC 


2OOLTC 
fOV1TB 
J05184 
CO0186 
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JO018C 
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(oe, 
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mx 
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A TYPICAL CONTRGL CARD SCANNING PROGRAM. 


OBJECT CODE 


ADDR1 ADDR2 


8000 C36E GO000 oC374 


C15C 
C290 
C295 
C290 
exer ere) 
C1C2 
C198 


C290 
CiC8 


DS5C1N405404C 
CiC4C409404¢G 
N7C8D605C54C 
C4CED7C505C4 
C3C9E3E&404U 
E2F3C1LE3C540 
E9CSD 7404046 


EZ2ZE3C1lE3E4E2 


47=C 
4TFC 
ATFC 
4TFC 
47 FO 
4TFO 
4TFC 
4TFO 


- 


C2Z8t 
CZGE 
C26E 
CIES 
C28E 
C28E 
C28E 
C28E 


00162 
00296 
00296 
CO2°96 
COCO06 
CO1C& 
QO1IE 


00296 
OO1CE 


VILIB 


Oa ao 
Ooo 
Ne oO 
OOO 
nn Lf 


00294 
GI294 
OC2Z94 
CCLEE 
00294 
00294 
00294 


00294 


STMT 


374 
375 
3:16 
377 
378 
379 
380 
oot 
382 
383 
384 
285 
386 
387 
388 
389 
390 
391 
392 
393 
394 
595 
396 


398 


400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 


SOURCE STATEMENT 


to He HH 


*4 


CHKEYWDS 


KEYDCOMP 


KEYWDCLC 


Kt % 4 


EYWDTB 


KEYWDEND 


* 
* 
xc 


3 
KWOBRTAB 


THIS ROUTINE LOCATES THE END OF A KEYWORD, 


FOBAPR/O 


KEY-WORD BREAK-OUT ROUTINE. 


COMPUTES 


IT'S LENGTH, AND BRANCHES TO THE APPROPRIATE SUB-ROUTINE. 


SR 
TRT 


TABLE 


S 


D 
B 
B 
B 
B 
B 
B 
B 
B 


R29R2 


O(7,R8),TRTABLE 


*4+4(R2) 
DELIMERR 
DEL IMERR 
DELIMERR 
R46 


R5yKEYWDEND 
R3yKEYWDTB 


R1,k8 
NOKEYWD 


R2yKWDBRT AB 


R10 


RlyKEYWDCLC 


Bek2 
R294 (R2) 


R3y9K4,KEYDCOMP 


INVALIDK 


ClGeR3),O0CR8) 


MOF VALID KEYWORDS. 


CL6"*NAME® 
CL6é*ADDR!? 


CL6*PHONE® 
CL6"*DEPEND® 


CLé'CITY' 


CLO6O*STATE!? 


CL6O'ZIP! 


¥e 
* 


CL6"*STATUS? 


OF BRANCHES TO 
ENTRIES MATCH KEYWORDS IN 


OH 

NAME 
ADDRESS 
PHONE 
DEPENDNT 


CITY 


STATE 
ZIPCODE 
STATUS 


RESET INDEX FOR BRANCH TABLE. 

SCAN FOR DELIMITER (CSHOULD BE =) 
BRANCH BASED ON DELIMITER. 

NO DELIMITER, KEYWORD IS TOGO LONG. 
BLANK, INCORRECT DELIMITER. 

CCMMA, INCORRECT DELIMITER. 

EQUAL SIGN, SET UP TABLE INDEX. 
ADDRESS OF END OF TABLE 

ADDRESS OF KEYWORD TABLE. 

LENGTH GF KEYWORD 

= O- NO KEYWORD. 

ADDRESS OF KEYWORD BRANCH TABLE. 

= 1 FOR. EXECUTE 

COMPAKE FOR KEY-wORD. 

FOUND, GG TQ APPROPRIATE ROUTINE. 
NO MATCH, PCINT TO NEXT BRANCH ENTRY 
CONTINUE SEARCH TO END CF TABLE. 
INVALID KEY-WORD, ERROR. 


KEY-wORD SUBROUTINES. 


"KEYWDTB? 


THIS IS JUST AN SOLD "BRANCH TABLE". 
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9/16/70 


O0035CC0 
00035100 
00035200 
0090353900 
CUC354C0 
90035500 
00035600 
00035700 
CC035800 
0C035900 
CQ036000 
C0036100 
06036200 
60036300 
00036400 
00036500 
900366900 
GCO9367CC 
00036809 
09636909 
C0037C00 
OGO37T100 
OCO372uUC 


0003749C 


C0037600 
G0037700 
00037800 
00037900 
000368CU0 
C0038100 
66038200 
0003830C 
00038400 
00038590 
CQ5386CC 
C0038 709 
JOC SBEI0 
COS389CE 
COC39COD 
OCU3S91LCCS 
00039200 
000393006 
OC O3940C | 
00039500 
COCO39600 
00039700 
00639800 
0003990C 
CO040000 


L0Z2 


CHART DEPND 
PAGE 001 OF OO1 
Fea AZ Fe KK HK eK 
Fekete A ka tok kok a ok tek kek + * 
*BEGIN DEPENDENT * * *POINT TO NEXT 
* SUBROUTINE * * AZ *—---—~>* NAME AND NEXT * 
* * * * NAME SAVE. * 
eR KC tek ok tok ok ok KKK * 
fe oe ee 2g 2k ke ok 2 fc ok 
V V \ 
e * ® e * e 
Bl * gt B 2k eee HH B3 *, 
.*x *, * x x, ' 
e* MORE THAN *. NO «" ay SINGLE * NO .* LAST e 
*., ONE DEPENDENT.* ~------- >* ME FLAG. x t—-—-- *,. DEPENDENT x 
*, ? ox * *, NAME ? .* 
*, .* *x * an .* 
*, OO ete dK feo kk ke *, Ok 
* YES * YES 
Qe re ee 
V 
SUBDEPND V eX, LKWOTEST 
tok C0] tk KK C3 *, He CG Xe oe a 2k ok $C 5 2k ak Oke 
KO * x * .* x * 
*ENABLE RIGHT * e* ONLY ONE *. NO RESET * POINT PAST * 
* PARENTHESIS * x, NAME ? ox Oe --=—> #R IGHTS P AR EN AND* -<<----- >* RIGHT x 
x DELIMITER. .* Fe af * abl FLAGS. .* FPARENTHESIS. | * 
* ei eee x, xk * eto ick eK kok ek Kk 
* YES 
< Oe re ne ee AE AY RN A AY EES SE SEE AE AD AS ID <ANES OR SOD UD SEE ED ce GUD GD RD ne mS ne a end Sas Meme ce em wee seit meee cee cate cen ae ee ao oe 
Ron rn A E4 
V | NO 
DEPNDSCN .*. LKWOTST1 o*, o*, . *, 
; KK DD KK KKK 03 *e D4 x, D5 *, 
.* *, * * *, x * * 
NG NAME *. BLNK * SET LAST * NG. #5ELIMITER =*, YES -*DELIMITER =*. YES o* CARD * 
+-— *, DELIMITED BY .* ------- >*DE PENDENT NAME x t-—-~-— *, LANK ? 0K meee >*. COMMA ? ee meen >*. CONTINUED ? .* 
~A COMMA ?.%* F ° * *, ~* x, * x, e 
x, x * *, x *x, x x, * 
V x, SX Sok tok ek kak x, * : x, 4x 
eK XK aK * YES * x NO * YES 
* * He KK | 
x —3 x {---- -- + +--+ * Ko pee 
* * * —E3 *=—> 
kK +€ —— + ok * E4 
HR IK 
DEPNDSC2 V GETACARD DELIMERR CONTINER V V 
Keke kK F ] kok ok ok ok kk V FE 5 ae ok teak teak ak 
x ENTER * KR AKE D tk kak ok ak kk ek EB Ko aK a oe ok 2K 2K Sok E Qk tok tok & * x 
* DEPENDENT'S * *RETURN TO READ * * * * * * TURN ON * 
* NAME IN NAME * -~+ * A CARD. * K+ * TAKE A DUMP. * * TAKE A DUMP. * +t—---- * CONTINUATION x 
* SAVE AREA. * * “x * * * * * FLAG. #K 
* x $c Rk kk kk kok took kok ae he ke fe he ok fe a a ke kc af 2c ok oR te tok ok te kK x * 
Fok tet tok dak ok toto ek ok Fe ok ek kok kc 
KKK 
* k 
* AZ * ne in ae nee ee ee ee we me re re ae te ere ce re ere en a ca ce a ee ee ae ae et oe ee ee oe = 
* x 


802 


A TYPICAL CONTROL CARD SCANNING PROGRAM. | PAGE 11 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR70O 9/16/70 
426 * 00040200 

42% * THIS ROUTINE BREAKS OUT THE SEPARATE NAMES IN THE *DEPENDENT*® 00040300 

428 * SUB-PARAMETER LIST,s(WHICH MAY CONTAIN FROM 1-10 SEPARATE 00040400 

429 * NAMES), AND MOVES THEM TO THE AREA NAMED *DEPNDSV!. 00040500 

430 * 00040600 

OOO1EE 431 DEPENDNT EQU * 00040700 
OOO1EE 4181 8002 00002 432 LA R8,2(R1,R8) POINT TO DATA VALUE 00040800 
OOO1F2 41F0 C309 0030F 433 LA R15yDEPNDSV SAVE AREA FOR DEPENDENTS NAMES 00040900 
O001F6 954D 8000 009000 434 CLI O(R8),C*(* . {S THIS A SUB-PARAMETER LIST ? 00041000 
COOLFA 4780 C252 00258 435 BE SUBDEPND YES, SET UP FOR MULTIPLE NAMES. 00041100 
COOLFE 9620 C36D 00373 436 Ol FLAGS ,ONLYONE NO, SET THE SINGLE~-NAME FLAG. 00041200 
000202 437 DEPNDSCN EQU * 00041300 
000292 1B22 438 — SR R2—9R2 00041400 
000204 DDOA 8000 C36E 00000 00374 439 TRT O(11,R8),TRTABLE SCAN FOR THE END OF A NAME. 00041500 
COOZ0A 4780 C290 00296 440 BZ DELIMERR NAME TGQ LONG, ERROR. 00041600 
OCO20E 47F2 C20C 00212 441 B *+4(R2) BRANCH ACCORDING TO DELIMITER FOUND. 00041700 
000212 47FO C290 C0296 442 B DELIMERR NO DELIMITER, ERROR. 00041800 
000216 47FO C290 00296 443 B DELIMERR BLANK, INVALID DELIMITER. 00041900 
OOO2Z1A 47FO C220 00226 444 B DE PNDSC2 COMMA, PROCEED | 00042000 
OOO2Z1E 47FO C290 00296 445 B DELIMERR EQUAL SIGN, INVALID DELIMITER. 60042100 
C00222 9640 C36D 60373 446 OI FLAGS,LASTONE SET LAST SUB-PARAMETER INDICATOR. 00042200 
GOQ0226 447 DEPNDSC2 EQU * | 00042300 
000226 1818 448 SR R1,R8 GET LENGTH OF FIELD. 00042400 
000228 0610 449 BCTR R1;,0 -1 FGR EXECUTE 00042500 
~00022A 4410 C24C 00252 450 EX Ril, CEPNDMVC MOVE A DEPENDENT'S NAME. 00042600 
O0022E 41FF COCA OOO0A 451 LA R15,10(R15) POINT TO NEXT SPGT IN NAME SAVE AREA 00042700 
000232 4181 8002 00002 452 LA R8_y2(R1,R8) POINT PAST DELIMITER. 00042800 
000236 9140 C36D 00373 453 ™ FLAGS,LASTONE IS THIS THE LAST KEYWORD ? 00042900 
00023A 4780 C1FC 06202 454 BZ DEPNDSCN NO, CONTINUE SCAN. 00043000 
OOO23E 9200 C3CB OG3D1L 455 MV I TRTABLE+C')',0 DE-ACTIVATE THE RIGHT-PARENTHESIS. 00043100 
000242 9720 C36D 00373 456 Xf FLAGS ,ONLYONE YES, WAS I[T ALSO THE ONLY ONE 00043200 
000246 4786 C262 90268 457 BZ LKWDTST1 YES, GQ CHECK FOR LAST KEY-WORD. 00043300 
J0Q024A 949F C36D 00373 458 NI TURN,QFF-LASTONE-ONLYONE 00043400 
QOO0O024E 47FO C25E 00264 459 B LKWDTEST NO, GO CHECK FOR LAST KEY-WORD. 00043500 
000252 D200 FG0O0 &0CG 00000 00000 461 DEPNDMVC MVC 0(09R15)200R8) . 00043700 
099258 9210 C3CB O03D1L 463 SUBDEPND MVI TRTABLE+C* )*,16 ACTIVATE DELIMITER FOR END OF A SUB- 000439006 
6G925C 4188 COOl 00001 464 LA R8,1(R8) PARAMETER LIST. POINT PAST THE 0C04400C 
O0S260 47FO CIFC 090202 465 B DEPNDSCN LEFT-PAREN. AND GO SCAN THE LIST. 0004410C 


602 


LOC 


C90264 
000268 
00026C 
G00270 
C002 74 
000278 
30027C 
900280 
000284 
009288 
00028C 
000290 


A TYPICAL CONTROL CARD SCANNING PROGRAM. 


ORJECT CODE 


4181 
9540 
47806 
956B 
4770 
4188 
9540 
4770 
9540 
4780 
9680 
47FO 


8001 
8000 
CO0Cc8 
8000 
C290 
OcOol 
8000 
C150 
TCOL 
C290 
C36) 
COC8 


ADDR1 


GQ000 


OC000 


00006 


00001 


00373 


ADDR2 


GO001 


OOOCE 


00296 
cCoCcOl 


00156 


00296 


OGOCE 


STMT 


467 
468 
469 
470 
471 
472 
473 
474 
475 
476 


SOURCE STATEMENT 


* 
* 
oe 
LKWDTEST 
LKWDTST1 


477 | 


478 
479 
480 
481 


4 83 
4 84 
485 
4 86 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
206 
507 
508 
509 
510 
511 
512 
513 
514 
515 


STETeTteTTTTCTCerCrrCeeecrtrrcrreterererteter err tr rrere See ers 22 2. 2 Se ee Se tes 2 


% 3 HH OH HO OH HH OH HH HH HH HR OH KR HH KR KH % 


HH Ht te 4 


THIS ROUTINE DETERMINES IF THERE ARE MORE KEYWORDS, 


CARD IS CONTINUED. (NON-BLANK IN COLUMN 72). 


LA 
CLI 
BE 
CLI 
BNE 
LA 
CLI 
BNE 
CLI 
BE 
OI 
B 


R8,1(R1,R8) 


O(R8),C* 
GETACARD 


O(RBIC', 


DELIMERR 
R8,1(R8) 
O(R8),C! 
CHK EYWDS 
1(R7),C* 
CONT INER 


FLAGS, CONTINUE 


GET ACARD 


FO8APR70 


OR IF THE 


POINT TO DELIMITER AFTER VALUE. 


IS THE DELIMITER A BLANK ? 
YES» END OF INPUT STATEMENT 
NO, IS IT A COMMA ? 

NO, INCORRECT DELIMITER. 

IS A COMMA, 
IS IT A BLANK ? 

NO, SCAN NEXT KEYWORD. 

YES, IS THE CARD CCNTINUED ? 
NO, ERROR IN CONTINUATION. 
YES, 
AND GO READ ANOTHER CARD. 


ANSWER THESE QUESTIONS ABOUT THE CARD SCANNING PROGRAM. 


l. 


Ze 


WHEN YOU REACH THIS POINT, 


IN 


TIME. 


IN THE "DEPENDNT" SUB-ROUTINEs WHICH INSTRUCTION(S) SETCS) 
UP THE ADDRESS GF THE NEXT SUB=PARAMETER BEFORE SCANNING ? 


USING 


THE INSTRUCTION LABELED 
WHY ?? 


"ANSWER CUE". 


WHICH INSTRUCTION INDICATES THAT A 
HAS BEEN FOUND ? 


NEXT TWO QUESTICNS REFER TO 


WHICH INSTRUCTION ENABLES THE 
DELIMITER WHEN A SUB—-PARAMETER LIST IS FOUND ? 


THE CODE STARTING AT 
CCMBINATION: 


COMMA, 


WHICH INSTRUCTION(S) 
THE "DEPNDSV®" AREA ? 


HK RE KK OK 2 He a CK OK IC I OC KO AK OK RE AE AE OK 2h eK EK OK OK 


"CHKEYWDS'* , 


i 


THE "DEPENDNT® 


*)* RIGHT~PARENTHESIS 


"LKWOTEST*', WOULD THE 
BLANK AND COL. 72 BLANK BE VALID 


ACCORDING TO THE INITIALIZATION CODE, WHICH COLUMNS 
OF THE-CARD MAY CONTAIN "VERBS" 


OR "KEYWORDS" ? 


WHAT IS THE MAXIMUM ALLOWABLE "VERB" LCENGTH ? 


MOVE(S) THE DEPENDENT#S NAME(S) 


DISPLAY THE RED SIDE OF YOUR 


POINT TO NEXT CHARACTER. 


SET CONTINUATION INDICATION. 


WE ZERO REG 2 EVERY 


LEFT-~PARENTHESIS 


SUBROUTINE. 


? 


TO 


HE OK aE a aK oO oR OK oC Ca oie ak io ce ak 


PAGE l2 


9/16/70 


00044300 
00044400 
000445006 
00044600 
00644700 
000448CC0 
00044900 
00045000 
00045100 
00045200 
00045300 
00045400 
0004550600 
00045600 
00045700 


00045900 
00046000 
00046100 
00046200 
00046 300 
00046400 
00046500 
00046600 
00046700 
00046800 
00046906 
00047C00 
00047100 
0004/7200 
00047300 
00047400 
00047500 
0004 7600 
00047700 
00047800 
00047900 
00048000 - 
00048100 
00048200 
00048300 
0C048400 
00048500 
000486C0 
C0048 700 
GOQ0048800 
00048900 
00049000 
00049100 


OLe 


A TYPICAL CONTROL CARD SCANNING PROGRAM. PAGE 13 

LOC OBJECT CODE ADDRIL ADDR2 STMT SOURCE STATEMENT FO8APR70 9/16/70 
000294 517 NAME EQU * THESE NAMES ARE HERE TO MAKE THE 00049300 
000294 518 ADDRESS EQU * ASSEMBLER FIND SOLACE IN SYMBOL 00049400 
000294 519 CITY EQU * RESOLUTION, AND FOR NO OTHER 00049500 
000294 520 STATE EQU * PURPOSE. THE ROUTINES WHICH WOULD 00049600 
000294 521 ZIPCODE EQU * BE USED TO HANDLE THESE KEY~WORDS 00049700 
000294 522 STATUS EQU * DQ NOT EXIST, FOR THE SAKE OF 00049800 
000294 000B 523 PHONE DC clare i SIMPLICITY OF THE EXAMPLE. 00049900 
G002 96 525 CONTINER EQU = IN A "REAL" PROGRAM, THESE WOULD 00050100 
000296 526 DELIMERR EQU * BE NAMES OF ERROR ROUTINES THAT 00050200 
C00296 527 NOVERB EQU * WOULD PROBABLY PRINT A DIAGNOSTIC 00050300 
090296 528 VERBERR EQU * MESSAGE INFORMING THE PROGRAM'S 00050400 
000296 529 NOKEYWD- EQU = USER OF HIS SYNTAX ERROR. 00050500 
000296 530 INVALIDK EQU * 00050600 
000296 0014 531 DC H* 20! ERROR, TAKE A DUMP. 06050700 
000298 47FO C46E 00474 532 B ENDOFICLE AND TERMINATE THE CARD SCAN. 00050800 
00029C 9J00002A0 534 CARDPTR ODOC A(CARDAREA) 00051000 
0002A0 535 CARDAREA DS 80C INPUT BUFFER FOR A CARD 00051100 
O0002FO 536 VERBSAVE DS CL6 SAVE AREA FOR A VERB. 00051200 
COO2F6 537 NAMESAVE DS CL25 SAVE AREA FOR A NAME. 00051300 
OO030F 538 DEPNDSV DS CL100 SAVE AREA FOR DEPENDENTS NAMES. 00051400 
000373 00 539 FLAGS DC XQ! 00051500 
OOOOFF 540 OFF EQU 255 00051600 
000373 541 TURN EQU FLAGS 00051700 
000080 542 CONTINUE EQU X*8oQ? CONTINUATION FLAG. 00051800 
000040 543 LASTONE EQU X'40°* LAST KEYWORD FOUND FLAG. 00051900 
000020 544 ONLYONE EQU X*20°% SINGLE KEY-WORD VALUE FLAG. 00052C00 
000374 dD000000000000C00 545 TRTABLE DC 256X"008 00052100 
0003B4 546 ORG TRTABLE+C* ! 00052200 
000354 04 547 DC X'O45 BLANK 00052300 
9003DF 548 ORG TRTABLE+C*,* 00052400 
O003DF 08 549 DC X' O88 COMMA 00052500 
O003F 2 550 ORG TRTABLE+C f=! 00052600 
Q9003F2 OC 551 DC X* OC! EQUAL SIGN. 000527C0 
000474 | 552 ORG TRTABLE+256 OCO052800 


LLZ 


F.eP. REGS. 
REGS 0-7 
REGS 8-15 


000000 
000020 
000040 
000060 


02A260 
024280 
C2A2A0 
02A2C0 
O2A2E0 
024300 
024320 
02A340 
024360 
C2A380 
02A3A0 
02A3CO 
O2A3E0 
02A400 
020420 
02A440 
024460 
024480 
O02A4A0 
02A4C0 
O2A4E0 
024500 
024520 
024540 
02A560 
02A580 
O2A5A0 
02A5C0 
O2A5E0 
024660 
O2A62C 


~ 02A640 


O2A660 
C2A680 
O2A6A0 
O2ZAECO 
O2A6EC 
C2A790 
92A720 
C2AT40 
O2ZAT60 
O2A780 
O2ATAO 
O2A7TCO 
C2ATEO 
924890 
02A820 
O2A840 
O02A860 


—  02A880 


Ov.06DCCi 00010529 


FFFFFF2E 00000007 00000010 0002A410 
COO2ZA54A COCCO0000 O001DBO8 00000000 


90000000 
FFC50600 
000366AC 
00G4C00G 


9CECDOOC 
FOOUCC26 
E6D540D3 
CO0781244 
C9SE240C9 
40404040 
47F 0C0C4 
C2EA94T7F 
41600001 
47F 0C 296 
8686C296 
C15C47F0 
4120C1C8 
D4054046 
C540E9C9 
C28E4/7F0 
C36D1B22 
C 2909640 
C3CB97206 
47FOC1FC 
47700150 
40C104C4 
C5D9C5D3 
E85D404C 
40404046 
40404005 
40C3C8C1 
40404040 


OCOGOQUGC- 


OCOGOO00C 
00000000 
00CO0C00 
00000000 
COCGCO0C 
0OCCCO0d 
OOC000CE 
4160C4AC 
C4EE9146 
C6C9C5D3 
C2E4C9D3 
41F 30566 
C5CB44306 
C528D202 
BC036000 
O0000CT OC 
96FO500C 
47F09028 
Q00GCOCL 
00000000 
0C00000G 


00000000 
6FOTEOSF2 
OC 000000 
COOC7BC8 


O5C041F0 
4 7FOC04C 
C5D5C 7E3 
4780C078 
D540C1D5 
40404843 
D200C078 
C36D4110 
4170C2E0 
47FOC12A 
95408000 
C29047F0 
C6104410 
C1C4C429 
D7404040 
C28E47F 0 
DDOA8000 
C36D1B18 
C36D4780 
41818001 
95407001 
40C4C5D7 
C4C16BC8 
40404040 
46404040 
E9D4C5D9 
E4D5C3C5 
40404040 
0VGO0G000 
00G00000 
00000000 
OV0CO000 
00000C00 
COO0GGCOO 
OU000000 
GG0Q00000 
1322DDC8 
C36D4710 
C4EZ26BE4 
C4C9D5CT 
88300002 
C55E41BB 
C587B000 
D200B003 
OGGOQ0000 
B9EGO004 
00032DC0 
COOCTOCN 
00000000 
00000000 


00000000 
FFC50001 
000014D0 
00040000 


C6A250FD 
0002AC16 
C840D4C5 
D2006C00 
40E4D5D2 
00000640 
300247F0 
C2965 8FO 
8686C 290 
47F0C29C 
4780C13A 
C2904 7FO 
C1920782 
4040D7C8 
E2E3C1E3 
C28E47F0 
C36E4780 
06104410 
C262949F 
95408000 
4780C290 
C5D5C47E 
C5D7E9C5 
40404040 
40404040 
C503C4C1 
E8404040 
40404040 
00000000 
00000000 
00000000 
00000000 
000C0000 
00000000 
00000000 
00000000 
6000C36E 
C6964161 
E2C5C46B 
6BDTD9N6 
5 8BF 0000 
300650B0 
58B0C586 
60000000 
00000000 
41EE0038 
00030090 
00090000 
00000000 
00000000 


80.C6D476 OOOTOFA8 


090000000 
4F02A330 
00005920 
00007588 


000850DF 
O7FE0022 
E2E2C1C7 
50004155 
D5D6E6D5 
4240COAB 
COCAOOL7 
C6EAO5EF 
95408000 
47F0C290 
47F0C150 
C2904140 
41220004 
D6D5C 540 
E4E247F0 
C28E4181 
C29047F2 
C24C41FF 
C36D47F0 
4780C0C8 
9680C36D 
40C5E9C5 
C2C1C86B 
40404040 
404040C5 
40C8C5D7 
40404040 
40404040 
00000000 
00000000 
00000000 
00000C00 
00000000 
00000000 
00000000 
00000000 
47F2C48A 
600147F0 
C2E86BE3 
C7D9C1D4 
12BB4770 
C5CA980F 
47FOC52E 


‘00000000 


00000000 
41660000 
00032DE0 
OQ000000 
0GQ00000 


O0000000.. 


40.06DBA6 OOO&DOE8 


00-O0LADAO OCO000000 


00000006 0002A428 00000001 0002A546 
6FO2ZA266 OO0ZASC8 4F02A350 O002Z2A5AB 


0002A260 
QOOOOFFOO 
O02C013A4 
00000000 


000418DF 
E3C8C9E2 
C54B4130 
00014166 
4003C5D5 
D221CCT78 
9180C36D 
>8FOC6EE 
47800102 
1B184780 
D20CC2EA 
00064150 
8734C180 
C4C507C5 
C28E47FO 
800241 F0 
C20C47F0 
000A4181 
C25ED2C0 
956B8000 


47FOCOC8 


D2C9C103 
C8C5D9D4 
C1C4C440 
E9C5D2C9 
E9C5C2C1 
40404040 
40404000 
00000000 
06000000 
00000000 
00000C00 
00000000 
90000000 
00000000 
00000C00 
4 7FOC4EC 
C47EE3C8 
C8C56BC4 
40000012 
C52E58B0 
C58A07FE 
58BOC5CA 
00000000 
4AB0930A 
1B6E9261 
0002A834 
00000000 
00600000 
00000000.. 


00000000 
00000000 
0000996C 
00012D10 


D703D008 
4009D540 
C0284843 
00014640 
C7E3C840 
30024843 
471 0C0DC 
9500F 003 
1B22DD07 
C2900610 
80001B22 
C1024130 
47FO0C290 
D5C4C3C9 
C28E47F0 
C309954D 
C29047F0 
80029140 
FOOC8000 
477CC290 
O00B0014 
6BC1C2C1 
C9D605C5 
40404040 
C1034040 
C840 40C8 
40404040 
OCO0CC000 


00000000. 


04000000 
DOO0CO000 
vUCQ0000 
00000000 
00000000 
00000000 
9200C3CB 
9640C 36D 
C5E2C56B 
C9C3E3C9 
900FC58A 
C5CADT02 
12BB4780 
D202B000 
00G00000 
47F092/2 
500B47F0 
O0CO000000 
00000000 
00000000 


00000000. 


FFO40080 
FFO60231 
00040000 
00040000 


DOO858FO 
C1D0540E4 
00004153 
C06247F0 
D4C5E2E2 
00000640 
9240C2EA 
477T0C46E 
BO00CC36E 
4410C14A 
DDO6800C 
C1981B18 
05003000 
E3E84040 
C28E47F0 
80004780 
C29047F0O 
C36D4780 
9210C3CB 
41880001 
47FOC46E 
C7Tc1icg9D3 
6BC3C8C1 
40404040 
40C1C2C1 
C5D9D4C9 
40404040 
Q0000C00 
OCO0G000 
00000000 
CO000000 
00000000 
00000000 
OGOOCD00 
CQOO00Q000 
9200C3EC 
18164780 
C109C56B 
Dé6éD5606B 
18310630 
BOOQBOCO 
C54A4430 
FOO1L47FO 
O0000000 
48E06000 
92AC4111 
00000000 
00000000 
00000000 


90000000. 


AOOO0A93C 
80600000 
00007498 
OOOO751A 


CO22D201 
D5D2D5D6 
00024160 
COAOE3C8 
C1C7C54B 
4440COBE 
D281C2EB 
4180C29A 
4TF2CL1LIA 
41818000 
C36E47F2 


4780C290 . 


8000D5C1 
E2E3C1E3 
CLE847FO 
C2529620 
C22047F0 
C1FC9200 
41880001 
95408000 
0002A500 
6BC5E9D4 
E4D5C 3C5 
40404040 
C7C1C9D3 
D6D05C 540 
40404040 
Q00000C0 
00000000 
00000000 
000C0008 
000C0000 
00000000 
OCOQ0Q0000 
OO000000 
9400C 36D 
C49C45E0 
E3C8C56B 
C1iD9E86B 
89300002 
D202F001 
C5584780 
C516D500 
00000000 
42E0500C 
COOOOADA 
00000000 
00000000 
00000000 
00000000 
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00900000 
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20000000 
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000000600 
00000000 
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00000000 
OCO00000 
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00000000 
00000000 
00000000 
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00000001 


C0000000 
00000000 
00000000 
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0002A300 
OCO2ZAFFC 


00009110 
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000158E0 
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00504000 
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OCO00000 


00000000 
00000000 
00000000 
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00019598 
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O0O498EC 
0002A908 
OOOLDAFC 
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coQOoOoOdc! 
10010050 
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00000000 
00000000 
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OOO1LDAEO 
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A TYPICAL CONTROL CARD SCANNING PROGRAM. 


LOC OBJECT CODE ADDR1I ADDR2 STMT 
554 
Dao 
556 
557 
558 
Dog 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
5F2 
573 
574 
575 
5176 
577 
578 
579 
5 80 
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SQURCE STATEMENT FO8APRI0 9/16/70 

BE FE IER RE AE RC A CA AR A RE OE AE OK AE A A AE AE IC I I A REE A A CC I A A EE A EE OK A EK KEK OK KK RK KKK OOO5S3000 
* 00053100 
* ANSWERS TO THE QUESTIONS ON THE CARD SCANNING PROGRAM. 00053200 
* 00053300 
* Ll. TO ZERO THE INDEX VALUE USED TO INDEX INTO THE BRANCH 00053400 
* TABLE. 00053500 
* 00053600 
* 2. THE LOAD ADDRESS * LA R&y2(R1,R8) POINT PAST DELIMITER*® 00053700 
* INSTRUCTION SETS UP THE ADDRESS. 00053800 
* 00053900 
* 3- THE STATEMENT ! BE SUBDEPND * INDICATES THAT A LEFT 00054000 
* PARENTHESIS HAS BEEN FOUND. 00054100 
* C0054200 
* 4. THE STATEMENT *SUBDEPND MVI TRTABLE+C*)",16 © SETS. 00054300 
* THE RIGHT-PARENTHESIS UP AS A DELIMITER. 00054400 
* 00054500 
s 5. NO. YGU WILL HAVE TO PUMP THE CODE TO PROVE THIS. C0054600 
* 00054700 
* 6. ONLY COLUMNS 2-71 MAY CONTIAN VERBS. 00054800 
% 00054900 
** 7. THE MAXIMUM VERB SIZE IS 7 BYTES. 00055000 
% 00055100 
* 8. THE STATEMENTS © EX R1l,DEPNDMVC * AND 00055200 
* "DEPNDMVC MVC 0(0,R15),O00R8) © MOVE THE VERB TO THE 00055300 
* "VERBSAVES AREA. 00055400 
* 00055500 
BE A ERC A AE I A EE A EE OK AE OK IE RE EE OE AC A KE AE AE EC AE OK A A EAE OK KK OE A EE OK A OK OK OK XK EK KKK EH KEK OO05560C 


vLe 


A TYPICAL CONTROL CARD SCANNING PROGRAM. PAGE 15 


LCC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT , FO8APR/0 9/16/70 
BRD AAAI AK KK HE I RK FC AE KK OE OC OK OE A OK AC eC a RE OK I OK A KK AK ACK CR OE AE OK I OK EK OK a OR KKK KK «=O O055800 
583 * 00055900 
584 * SO ENDS THE FIRST OF THE TWO PROGRAMS CONTAINED IN THIS 00056000 
585 * SECTION. THE NEXT PROGRAM [TS NOT RELATED IN ANY WAY TO 00056100 
586 * THE ONE YOU HAVE JUST BEEN THROUGH. 00056200 
567 -= 00656300 
588 * THE PROGRAM IS BROKEN UP INTO TWO DISCRETE SECTIONS, 00056400 
589 * EACH WITH IT*S OWN SET OF QUESTIONS. READ THE PROLOQGUE 60056500 
590 * TO EACH ROUTINE, SCAN OVER THE CODE* AND THEN ANSWER 000566C0 
591 * THE QUESTIONS, WHICH WILL DRAW YOUR ATTENTION TO SOME 00056700 
592 * OF THE MORE IMPORTANT FACETS OF THE CODE. WRITE YOUR 00056800 
593 * ANSWERS TO THE QUESTIGNS IN THE LEFT MARGIN OF THE 00056900 
594 * PAGE. THE ANSWERS WILLE BE DISCUSSED IN THE WORK-SHOP 00057000 
595 * SESSION ON THIS TOPIC. HAVE A BALL...- 00057100 
596 * 00057200 
B QT RK OK AK ae eK OK RK a he Re A aK AC 2K Xe RE OE RE IE RO OK I OO OE A AE IE OK CO A KE OK OK KK KKK ek KKK OO057 300 


Sle 


$------------- + 
V 
ENDOF ILE ie TOOLONG 
fick A] SOs ick x : "€, SOGIOK A Rode tok 
* BEGIN * COMA .* . NONE * # 
* POSITIONAL # 4-- WHAT WAS IT? .* —-----—># TAKE A DUMP. # 
*PARAMETER SCAN # «, .* ¥ * 
SOR EE Kx ae * FC HR tok tok 
*. 4k 
{ BLNK 
V 
fo gGtGK B oo dot ki kok Hk BQ RRK KEK 
* * * * 
*HOUSEKEEP ING - * * SET LAST # 
*INTT TAL IZATION. * * VALUE FLAG. #* 
x x * xx 
* * * x 
SRC FCRIII EC ca aR aR ak See ak aka ak ak ak ak ak a 
i aera ties aes > 
} V 
SC ANL OOP oe 
foc gk C] to C2. *. FO C3 gk ag a a ok 
* * .# *. * FNKNWGNL x 
* SCAN FOR A # ~*HQW LONG IS*. 1-8 tm KKK EH 
* DELIMITER. * --+ *. THE FIELD ? .* ------->#INSERT NAME IN * 
* ‘ i . * DICTIONARY. ¥ 
* x K, x * * 
errerrrre eters ss" BOGGS aii iok daick 
A * ZERO 
- Besse SS SS eA ee ee 
BUMPIT o*, STRINGND 
D2 #% 
rs * 481K D3 sok dak ktok xk 
.*" END OF 9*. YES * * 
fe STRENG FR aoe RETURN. * 
"ie ae FOR CE RACK 
*. Ak 
( NO 
| 
V 
KE 2 Ra 
* * 
*POINT TO NEXT# 
tS * FIEL e * 


CHART POSI 
PAGE OO!1 O 


TIGN 
F 00 


1 


PAGE 1? 


9Le 


DICTIONARY BUILDER. 

LOC OBJECT CGDE ADDR1 ADDR2 STMT  SNMURCE STATEMENT FOSAPRTO 9/16/70 
GLB RR KR Re a 2 a ee a a 2 a i fc He Oe ae ae a af he fe ote ae he ae XC 2 he Kafe fe i ok he ie oe oe ie Eo ok Ke eK kk KK KKK «=OOO05S8900 
614 * | 00059000 
615 * THIS ROUTINE WILL SCAN A SERIES OF CHARACTER STRINGS» 00059100 
616 * SEPARATED BY COMMAS, FIND ALL THE INDIVIDUAL FIELDS, AND 00059200 
617 * CHAIN THEM BY LENGTH, USING BACK=CHAINING (SEE DIAGRAM) 00059300 
618 * INTO AN AREA CALLED "DICTNARY'. THE START OF EACH CHAIN WILL 00059400 
619 * BE POINTED TO BY AN ENTRY IN A "*THUMB INDEX*. 00059500 
620 * 00059600 
621 * THIS ROUTINE SEPARATES THE FIELDS AND LINKS TO THE 00059700 
622 * DICTIONARY BUILDING ROUTINE. IT ALSO FINDS THE END OF THE 00059800 
623 * CHARACTER STRING. 00059900 
624 * 00060600 
625 CCG io ok lok CK ac a i i ioiok sik ao gock aoc §=OOU60L00 
000474 9200 C3CB 003D1 627 ENDOFILE MVI  TRTABLEtC*)',C RESET RIGHT—PAREN. 00060300 
000478 9200 C3EC 003F2 628 MVI TRTABLE#C*=",0 DISABLE THE "=" DELIMITER. 00060400 
00047C 9400 C36D 06373 629 NI TURN, OFF—ALL RESET ALL FLAGS 00060500 
C00480 4160 C4AC 004B2 630 LA R6,STRINGS ADDRESS OF THE STRINGS 00060600 
C00484 1B22 631 SCANLOOP SR R2,R2 RESET BRANCH INDEX 00060700 
000486 DDC8 6000 C36E 00000 00374 632 TRT  0(9,R6),TRTABLE FIND A DELIMITER 00060800 
C0048C 47F2 C48A 00490 633 B *+4(R2) BRANCH BASED ON THE DELIMITER 00060900 
000490 47FO C4EC 004F2 634 B TOGLONG ERR, NONE FOUND. 00061006 
000494 9640 C36D 00373 635 OI TURNyON+LASTONE BLANK, THIS IS LAST VALUE. 60061100 
000498 1B16 636 SR R1,R6 COMMA, GET FIELD LENGTH. 60061200 
00049A 4780 C49C 004A2 627 BZ BUMPIT NULL FIELD, CONTINUE 00061300 
O0049E 45E0 C4EE 004F4 638 BAL R14+FNKNWGNL LINK TO DICTIGNARY BUILDER. 00061400 
OCO4A2 9146 C36D 06373 639 BUMPIT  T™ FLAGS,LASTONE WAS THIS THE LAST ? 00061500 
0004A6 4710 Cb6S6 0069C 640 BO STR INGND YES, QUIT. C0061600 
OOC4AA 4161 6001 00001 641 LA R6,1(R1_R6) NO, POINT TO NEXT FIELD 00061700 
COO4AE 47FC C47E 00484 642 B SCANLOOP CONTINUE SCAN. 000618006 
644 STRINGS DC C8 THES EgAREq THE, FIELDS» USEDy BY » THEs DICT IGN—yARYy BUILDING 9 0006200€ 
000482 E3C8C5E2C56BC1D9 »PROGRAM * C0062100 

O0004F1 00 
OCO4F2 0012 645 TCOLONG DC H'18° 00062200 
EGTRRA KE OK NE OE CIE AE NE A IE OI OK OK OK ai og IE I 2 EO SC IE 2 AE I KO AE OK OI OK OIC IK OK A AE OK AE OG EE SK OK IE IS Ae 00062400 
648 * | 00062500 
649 * ANSWER THESE QUESTIONS ABOUT THE SCANNING ROUTINE. 00062600 
650 * 06062700 
651 * lL. WHAT IS THE MAXIMUM VALID LENGTH OF A FIELD ? 00062800 
652 * 00062900 
653 * 2. WHICH DELIMITERS ARE "ACTIVE" IN THIS ROUTINE ? 00063000 
654 * 00063100 
655 * 3. WHICH DELIMITER INDICATES THE END OF THE ENTIRE STRING ? 00063200 
656 * 00063300. 
657 * 4, WOULD A NULL FIELD IN THE STRING BE VALID ? 00063400 
658 * 00063500 
659 * 5. COULD YOU CALL THIS A "KEY=WORD DRIVEN" ROUTINE ? 00063600 
660 * | 00063700 
BBL RRA RH A A HE EK OK I ae i a ea 2 Oe ae 2 i A A a I KE OK A A KE A AE AE IC AE FE OR KK AK OE EK 00063800 


LLé 


DICTIONARY BUILDER. 


NBJECT CODE ADDR1 ADDR2 


STMT 


663 
664 
665 
666 
667 
668 
669 
670 


~—6T1 


612 
673 
674 
675 
676 
607 
678 
679 


680 * 


ae 


SOURCE STATEMENT FO8APR70 
FOGG IG OIG GR Ga oii kkok doiatotoiai ok tok ako koi ak kak ok ak akc ak aka ak ak ai ake ae ak ak ok icc ak a ak kc akc a a ae a ok 
: ANSWERS TO THE QUESTIONS ON THE SCANNING ROUTINE. 

: 1. THE MAXIMUM LENGTH OF A FIELD IS 8 BYTES. 

: 2e THE BLANK AND THE COMMA ARE ACTIVE DELIMITERS. 

: 3. THE BLANK INDICATES THE END OF THE STRING. 

, 4. YES, A NULL FIELD IS VALID. 

: 5. NOy THIS IS A FCRM OF "POST TIONAL™ VALUES (PARAMETERS). 
errr WHEN YOU HAVE GCTTEN HERE? DISPLAY THE GREEN SIDE OF YOUR 
* WANSWER CUE. 

xx 


CORI RO IK OG tok ii itok kok tok koto i ako ik ke ak ok ok a a ok ke afc ok ok aK aK kc a ake oe oe a a a oc of ok a oe 
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9/16/70 


00064000 
00064100 
00064200 
90064300 
00064400 
00064500 
C0064600 
00064700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
000656C0 
00065700 


8LZ 


LOC 


DICTIONARY BUILDER. 


OBJECT CODE ADDR1 ADDR2 = STMT 
682 
683 
684 
685 
686 
687 
688 
689 
69C 
691 

692 
693 
694 
695 
696 
697 
698 
699 
700 
101 
702 
103 
104 
(05 
706 
TC7 
7108 
709 

. 710 

711 
712 
PL3 
114 
€15 
16 
17 
18 
719 
120 
721 
422 
6123 
(24 
25 
126 
27 


SOURCE STATEMENT 


FO8APRI0 


PAGE 19 


9/16/70 


ME AE AE AE AE I ARK A I EK IS OE OK A IK KKK aK OK kok ak ok ai a ke ok aK kok ok ak ok kk ak ok ok ak aK ok aK KKK «6Q0G65900 


i i a a a a a a a a a a 


THE DICTIONARY THAT IS TO BE BUILT LOOKS LIKE THE FOLLOWING: 


$———— ~--—-—-—-~--—---- >+ 

A 1 

| #<------------ ~-C--------- ~------ + 

14 #<-C----------- + 
*THUMBNDX* { | "DICTNARY' V Vf 
$n tt $a a $e $a tt 
1DC ACE) J { 4#->]|C0O0000j$ A {000000} AAA | + [-C i 
+——-——--—---+ | $a a $a ta te tt $e t 
{ 000000 f tK<----+-—+ { EEE 1 O00000 | ABCDEFGH | 
+—~——+———— + +——---—— tom a—— t—— t—— — tt - + 
{DC ACEEE) (=== 1 E—€ {¢{ OO0OGCONDQOONCOONCVOONONCOD | 
$2-2>—=== + | t------+----+ ( UNUSED CORE STORAGE ) | 
Y))0)0990)0) | | DODOCODCONDDNNOONNGONONNDNOOONNNONNONNDOUO | 
(COCOCOOCL | 1 DOOGCODOCIOCONNDONOCNOOOGCOCOOCNONONVOONDND | 
SS SSSs + { 1 OOOCCONNDONNNONCONGCCNdNNNNCGCVGOOOONNND | 
| AC ABCDEFGH) { 1 DOTCOCOOQNDONNNOONONNNNNCONDNDNNNONONOTGONNNND } 
ta + Jo +--+ + — - + + + + + 

, | 

"'NEXTBYTE® tor—---- ~~ -- ~~ -- +--+ - +--+ ---- - ----------- -> 
+ -—— =~ + 
! ---> | ADDRESS OF FIRST UNUSED BYTE IN *DICTNARY®. 
+-=-~-—--- + 


WHERE EACH ENTRY IN THE DICTIONARY LOOKS LIKE: 


$a a a $e + $+ +--+ + 
{CHAIN -—>] SYMBOL ( 1 —- 8 BYTES LONG ) | ZERQS 
+—-———--——=— $a + ee ce ~—-------= + 
0 2 4~l11 6-13 


THE ENTRIES ARE CHAINED BY THREE BYTE POINTER FIELDS WHICH 
POINT TQ THE ENTRY IN THE CHAIN THAT WAS IN THE DICTIONARY 
BEFQRE THIS ONE WAS ADDEC. (BACK CHAINING? THE POINTER 
CONTAINS ZEROS IF NO PREVIOUS ENTRY EXISTS IN THE CHAIN. 
THE ENTRIES ARE CHAINED BY SYMBOL LENGTH, THE FIRST IN 
EACH CHAIN [S ADDRESSED BY AN ENTRY IN THE APPROPRIATE 
WORD IN THE "THUMB INDEX™ (SIMILAR TQ THE THUMB-NOTCHED 
INDEXING USED IN A REAL DICTIONARY TO REDUCE YOUR SEARCH 
TIME: WHEN TRYING TO LOCATE THE FIRST WORD STARTING WITH 

A GIVEN LETTER). 


00066000 
00066100 
00066200 


00066300 


00066400 
00066500 
00066600 
00066700 
00066800 
00066900 
00067000 
C0067100 
00067200 
00067300 
00067400 
00067500 
090067600 
00067700 
00067800 
O0C067900 
00068000 
C9068100 
00068200 
00068300 
00068400 
00068500 
00068600 
00068700 
00068800 
00068900 
00069000 
00069100 
C0069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 
00070000 
00070100 
000762060 
00070300 


BO COC ORC Hoi tok dO 2 i ok iiiok dk gokdoktck etki 900070400 


612 


CHART DICTNARY 
PAGE 001 OF OO1 
KK KK 
* * 
* EOD x 
* %* 
KK ok 
A 
| ves 
FNKNWGNL o*, SEARCH oe o*, 
A2 % . A3 *, A4 *, 
KKK AL KK A a KK KK ox *. ox * o * x, 
* BEGIN * *~TS THERE A *. YES ° END OF *. NCO * DUPLICATE *. 
* DICTIONARY * +-->%*, CHAIN ? ce SSD, CHAIN ? <a SSS ee= *, ENTRY ? . * 
* BUILDING R™N. * *, . * A ° .* *, * 
AK AK 2 KC a aK ie oc ok ic ie cK *x, o* | x ox x, ox 
%K » o* *. o * xX, 2X 
* NO Mek * YES * NO 
* x 
| * AZ3 * 
* x 
| aK AC KK 
V V NOTYETIN V V 
ak KK BK eK OK KK oo ARK KK AK BOD eK i oe ok ek XK OK MEK AK BD oe oe Ae eK aK i KKB GK KKK KEK 
* * * * * * * * 
* HOUSEKEEPING * * ZERO CHAIN _ * * CHAIN TO * * GET ADDRESS * 
* AN O x *POINTER IN DATA*®  +--—-- * PREVIOUS LAST * +-— *OF NEXT IN THE * 
ENE AEE ee of ITEM. * 26 IN CHAIN. * | a CH ° xx 
AK oo ee a i oie 2K ak 2c ok Ack ok ok ARE 2K Xe eC 2 OK oe ag Ko i KK Sok dockoiok dokdok dak ak & V OK Ae Me OK ae ee 
KK KK 
* * 
<----------- * AZ * 
* * 
MK XK KK 


ADDIT 
HRC 2 OKA OK RK 
* * 


*ADD THE TTEM TOx 
* TO DISPL. IN. * ----- *THE DICTIONARY * 
" CHAIN. x 


* THUMB INDEX. 
* * * 
Ae a aa a a a ok ak ak Kk SOR a eK kK 


Bok tok (tok tec eto tok 


* * 
* CONVERT LENGTH 


H% te 


Vv 
MK ZK KKK KKK 
* 


DICTIUNARY BUILDEF. PAGE 21 


LOC OBJECT CODE ADDRIL ADDR2 STMT SQURCE STATEMENT FO8APR70 9/16/70 

TG 4 RRA EK EE A OK A EO IE ACE OC RE OS CE A iC OE CO 2K Og EE oi ACE OK AC IK OK OK OK AE OK KK OK KK Kok KK KKK ROKK OOOTZ1LGG 

145 % 00072290 

146 * THIS IS THE ROUTINE THAT DGES THE ACTUAL GICTLONARY BUILDING. 00072300 

T47 * 00072400 

TGQ RANK KR A RE ER A FE RO CK a A OO i SE ie a NE OK Ok I a ae IE OC EE i a OK a OK ER OK Ie Ok a oe KK KKK EK OOO 72500 

150 * VOCT27T00 

751 %* FIND THE CORRECT THUMB INDEX ENTRY. | 00072800 

152 * 00072900 

002000 153 USING DCTENTRY,RI1 00073090 

O904F4 9OOF C58A 90590 154 FNKNWGNL STM ROsR1I5,yTEMPSAVE SAVE THE CALLER'S REGISTERS. COO7T3100 

OOC4FB 1831 755 LR R3—R1 SAVE FIELD LENGTH. OGOT3200 

OOO4FA 90630 156 BCTR R3,0 “1 90073300 

wean etene tear QeEHP ES 8930 0002 CCOC2 U57 StL R392 * 4 C0073400 

OC959C 41°3 C566 QO056C 158 LA RL5—9THUMBNDX(R3) ADDR OF INDEX ENTRY. 00073500 
900504 8830 uuo2 00V002 759 SRL R302 RETURN LENGTH TO NORMAL. COO7T3600 
~U95 08 SSBP. UCCO Jd 09 169 L RLi,yOt(R15) ADDRESS OF CHAIN. Q0073700 | 

O0%50C 1283 (61 LTR Ril,RI1L = 0 ? G0073800 

CCOC5SOE 4770 C52E 00534 162 BNZ SEARCH NG, GQ TEST FOR DUPLICATE SYMBOL. C807T29900 

Cole 5860 £SCA CCI00 163 L RLIgNEXTBRYTE YES, ADD THIS ONE CUUT4&CGC 

290516 Df02 Bev Bouu GG900 90000 164 XC BACKCHN » BACKCHN ZERQ CHAIN POINTER. OCOT4100 

7165 * VVOT4200 

T6646 * ADD T9 TRE DICTIGNARY. 00674300 

ToT % OOCT4& 49 

COOD1LG 0202 FOCL CaCR uuCcel CCSD) 768 ADDIT MVC VCS,R1L5S),NEXTBYTE+1 ADL CHAIN POINTER TCO THUMB ENDEX. C0074500 

COS522 4430 C55E 00564 1469 EX R3—,ENTER . MOVE THE DATA TO THE DICELONARY. COCT4429 

COC526 418B 3006 OCOC5 C79 LA RLi,vsO€(R1L1L;R3) ADD LENGTH OF DATA & ATTRIBUTES TO JOOT4H TGC 
N OCo52A 5CBO COCA CO5D0 TTL ST RLi,NEXTBYTE ADDR. [Fr Next FREE bYTc. COGT4S8SS | 

CoC 52h SOF -CSeaé OG599 ¥T2 RETURN LM RGyR15_yTEMPSAVE B0OT4SO0 

000532 O7FE CL BR R14 COS TD0UU 

774 = COUISLOG 

LEB os SEARCH FOR A DUPLICATE SYMBOL. YOO T5200 

116s G00 75300 

C30524 1266 7? SEARCH LTK Ril,sR1Ll ENOQ GF CHAIN ? OCOT5 400 

[99536 4780 C54A 00550 778 BZ NOTYETIN YES, THIS IS TO BE ADDED. OCC T5590 

COT53A 4430 055% COS55E 09 EX R3_,COMPARE NO, CUNTINUE DUPLICATE SEARCH. QOOTSE90 

OSSBSE 4780 C526 OO52E 71890 oe RETURN DUPLICATE FOUND, STOP. OCOTS IC 

£09542 0202 C587 eC0C 9u58D OCb0C 781 MVC WORD+1(3),BACKCHN SET UP CHAIN POINTER 90075300 

©60548 58BC C586 O056C 182 L R1l1l,WORD FOR LOAD. O00 75SC0 

OCC54C 47FC C52E 00534 183 i SEAKCH QOS T6900 

¢c00550 58RG CS5CA OC5D0 785 NOTYETIN L RLL,sNEXTBYTE SET UP FGR ADDITION TO CHAIN. 000 762G0 

C90554 D202 BoOc FOOL GO000N OCO0L 186 MVC BACKCHN,1L( R15) 000 76300 

COC5SA 47FO C516 0051C (87 B ADDIT 00076400 

00055E D500 8003 6G00 00003 00000 789 COMPARE CLC DICTDATA,O(R6) O0C076600 

0390564 D200 B003 6000 00003 00000 790 ENTER MVC DICTDATA,O(R6) 00076700 

OCO56A 0000 
00056C O0D0CDOOGOOONONCO . 791 THUMBNDX DC 8A( 0) 00076800 


Lez 


LOC 


2005 8C 
000590 
GCO9500 
00504 


00069C 
OOC69E 
000642 
0006A6 
0006A8 
000000 
OQO0FF 


CO0000 
COI090 
CCC003 


DICTIONARY BUILDER. 


OBJECT CODE 


00000000 


990095D4 


C200000000C0UC 


JOLE 


58DD 0004 
9REC DUOC 


O7FE 


ADDR1 ADDR2 


00004 
O0090C 


STMT 


93 
194 
795 
196 


798 


799 


BOC 
801 
802 
8C3 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 


824 
825 
826 
827 
828 
829 
836 


832 
833 
834 


SOURCE STATEMENT 


WORD 

TEMPSAVE 
NEXTBYTE 
DICTNARY 


BORIC OIG IC ICR II i I aK ka a fof kk a ak ak Sak ai Kk aK a ke ake a ae a ak 


ee ee a a es 


STRINGND 


SAVEAREA 
ON 
ALL 


DCTENTRY 
BACKCHN 


DC 
DS 
DC 
CC 


ANSWER THESE QUESTIONS ABOUT THE DICTIONARY AND THE RGUTINE 


Fro 
16F 

AC DICTNARY) 
20CX*O! 


THAT BUILT IT. 


l. 


Ze 


DC 
L 
LM 
BR 
DS 
EQU 
EQU 


DSECT 


DS 


DICTDATA DS 


WHAT WILL THE PROGRAM DO WITH A DUPLICATE SYMBOL, 


FINDS ONE ? 


WHAT FACTOR DOES THE PROGRAM USE TO DETERMINE INTO WHICH 


CHAIN A SYMBOL IS TQ BE ENTERED ? 


WHICH INSTRUCTION(S) 


CHAIN ? 


WHICH INSTRUCTION(CS) DETERMINECS) THE END OF A CHAIN ? 


USING THE DUMP ON THE FOLLOWING PAGE, ANSWER THESE: 


A. 


Be 
C. 
D. 


BOI RO OI ak a kak ok ao a ke aa ak ok ok ok ok 


WHAT IS THE ADORESS OF THE FIRST FREE BYTE IN THE 
DICTIONARY ? 

HOW MANY CHAINS ARE THERE IN THE DUMP ? 

WHICH SYMBOL IS FIRST IN THE 3-BYTE CHAIN ? 

WHICH SYMBOL IS LAST IN THE 3-BYTE CHAIN ? 


HeSO" TAKE A DUMP TO SEE THE DICTIONARY... 
R1394(R13) 

R14,R1i2,12(R13) 

R14 

1 8F 

X*00! 

eae oa aa 


AL3 
C 


FO8APRT/0 


IF IT 


ARE EXECUTED ONLY WHEN THERE I[S NO 


oe trCeCrCeres ets Ste fee eS et eo 2 2 2 2 85 to 2 
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9/16/T0 


00077000 
00077100 
00077200 
000773900 


CO0771500 
000 776900 
O00 77TT00 
00077800 
OOCTT900 
00078000 
OCG?78100 
90078200 
C09783C00 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 
00079300 
00079400 
00079500 
00079600 
00079700 
00079800 
00079900 


00080100 
00080200 
00080300 
00080400 
00080500 
00080600 
00080700 


00080900 
OCO81CCO 
00081100 


99C020 
C00040 
C00060 


O2ZA2650 
O2A280 
QO2A2A9 
O2A2C0 
C2A2E0 
C2A30C 
024320 
02A349 
02A369 
92A380 
O2A3A0 
O2ZA3C9O 
U2A3E0 
22A499 
22A429 
C2ZA449 
O2A460 
02A430 
O2A4A0 


924409 


CZA4EC 
OZA5S0 
O2A529 
C2A540 
OZA565O 
O24580 
[S2A5A0 
J2A5C9 
Gig Bey eae) 
92A669% 
C24620 
O2A649 
G2N650 
O02A689 
O2A6A0 
J2A6C0 
O2ZA6E 0 
O2 ATCO 
O2A729 
92AT4C 
O2A760 
I2N780 
Q2ZATAO 
I2A7TCS 
D2ATEC 
C2A80C 
O2A820 
O2ZA84C 
O2A860 
C2A880 


UG.G6DCC1i CUC1C529 


FFFFFF2E GoQCO007 OCCO0C04 D002A410 
OOO02Z2A54A GGQ00000 GU0OLDBC8 00000000 


CGOUCCO00 
FF 040003 
OC0C1 366 
OCU40C0C 


SOECDOCCC 
F5UCCO26 
E60540D3 
CO781244 
C9E240C9 
40404040 
4&7FCCOC4 
C2EA94T7F 
416C0901 
4 TF CC296 
86860C 290 
C15C47FC 
412CC1C& 
04054040 
C540E9C9 
C28b47Fu 
C3601B22 
C2990964C 
C3CB972U 
47FOCIFC 
47700156 
40C1C4L4 
C509C5D3 
E850D4046 
49404040 
49404049 
404704040 
45404046 
DOGUGGOC 


doGG00CO 
coca0cec 
co0ccocs 


COUUGGCUO ¢ 


Io9CCCOG 
416CC4AC 
C4EEG140 
C6CSC5D3 
C2E4C9D3 
41F3C506 
C5C844306 
C 5280202 
BIUZ6UCD 
QCCZAB4E 
UCCUCC06 
6FCZA266 
90C1D9C5 
IOOGOO0C 
69C2E4CS 


COOCOCCO 
SOOC4A4E 
O8G00C00 
CCOCUTBC8B 


C5CC41 FO 
4 7F OC 04C 
C5D5C 7E3 
4780C078 
D540C 1D5 
40464843 
D26CCO78 
C36D4110 
4170C2E0 
47FOC12A 
954C8000 
C2904T7FO 
C6104410 
C1C4C 409 
01464040 
C28E47FO 
DDG A&000 
C36D1P18 
C36D4780 
41618¢CC1 
95407001 
4uC4C5D7 
C4C165C8 
40404040 
40404040 
4040404C 
4C4U4040 
4+0404CE4C 
oC IUUCUC 


~ eR N 


GECGUC co 
1B220D08 
C3604710 
C4EZ6BE4 
C4CSD5C7 
88300002 
C55E416B 
C567BUC00 
D200BU03 
0OG2A88B 
CO02ZA428 
GOCZA908 
CCOCO2AR8 
GEC2ZE8CO 
D3C4C9D5 


O0000C00 
FFCSCOOL 
00001358 
00040000 


C6A250FD 
OCCOZ2AC16 
C 840D4C5 
D2006C00 
40E4D5D2 
0CG00640 
39924 7FC 
C29658F9 
8686C 290 
41FO0C290 
4780C13A 
C2904TFO 
Ci92C0782 
4040D7C8 
EZESe1LES 
C28E47FO 
C36E47890 
C6104416 
C262949F 
95408000 
4780C290 
C5D5C47E 
C5D7E9C5 
40404049 
40404040 
40404040 
40404046 
40404040 
OGCGOCO0O 
OGUDOVUDC 
O0U9CI900 
OcCCcoeso 
CGCI0000 
OCococce 
0O09COCD 
00000000 
6C00C36E 
C6964161 
E2C5C46B 
6BDID9ID6 
58BFOG90 
30065CB0 
58B0C 5&6 
60000000 
OOGG2ZA8BTE 
0O002A 149 
AFO2ZAT02 
3EE3C 8C5 
00000000 
C7000000 


86.C6&D476 OCOTOFA8 


00000C00 
TFO2ZA8FE 
00695920 
C0007588 


O0O0C850DF 
OTFEDC22 
E2E2C1C7 
50904155 
D5D6E6D5 
4240COAB 
CCCAOO1? 
C6EAO5EF 
95408000 
47FO0C290 
47FO0C150 
C2904140 
41220004 
D605C 540 
E4E247F9 
C28E4181 
C29047F2 
C24C41FF 
C36D47FO 
4780C0C8 
9680C36D 
4DC 5E9C5 
C2C1C86B 
40404040 
490404040 
40404040 
404904046 
40494040 
00090009 
090000000 
00G00000 
COO00000 
CI000000 
OO00C00G 
GCO00000 
90000000 
47TF2C48A 
600147F 0 
C2E86BE3 
C7D9C 104 
12BB4770 
C5CA9I80F 
47FOC52E 
COIV00000 
90000000 
O00O02A546 
OOCO2ZAFFC 
O0COQ000 
C4C9C3E3 
Q009D7D9 


40.C6DBA6 OCO6DO0E8 


00.01ADAO OCOCOOCND 


COCO0006 0002A428 O002ZAT49 0002A546 
6FOZA266 OCO02ZA908 AFC2ZATO2 OOOZAFFC 


OIO2Z2A260 
OOOCFFOO 
O2CO40A4 
O00COCO0 


00041 8DF 
E3C8C9E2 
C54B4130 
00014166 
40D3C5D5 
D221C078 
9180C36D 
DS8FCC6EE 
478CC 102 
1B184789 
D2900C2EA 
Q00G64150 
8734C1890 
C4C5D7C5 
C28E47FO 
BOC241F0 
C20C47F0 
OO0A4181 
C25ED2C0 
956B8CCC 
47FOCOC8 
D2C9C1D3 
C8C5D9D4 
40404040 
40404040 
40404040 
40404040 
404C4C040 
COOQ0OCDD 
COCGOCOD 
0OCGO000 
ICINCONCES 
09CC0000 
COOCOCDD 
OVOCIVI0D 
OO0COCCO 
4TFCC4EC 
C47EE3C8 
C8C56BC4 
4900C 012 
C52E58B0 
C58ACTFE 
58B0C5CA 
OCOO02A862 
PFEFEEZE 
OOO2ZA54A 
OO02ZA897 
QOC6C9C5 
C9D6D560 
C6C7D9C1 


00G09000 
00000000 
COO0996C 
00012D10 


D?03D0C8 
40090540 
C0284843 
90014640 
CTE3 C846 
30024843 
4710CODC 
9500F003 
1B22DD07 
C2900610 
B0001B22 
C1C 24130 
47FCC290 
D5C4C3C9 
C28E47FC 
C309954D 
C29047F0 
80029140 
FOOC8000 
4770C 290 
CCOB0C14 
6BC1C2Cl 
C9ID6D5C5 
40404040 
40404040 
40404040 
40404040 
CCCCO00U 
OCGO00CD0 
C40C0000 
OGO900000 
COC00000 
COO0C0000 
00000000 
COO0000C 
9200C3CB 
9640C36D 
C5E2C56B 
C9C3E3C9 
9O0O0FC58A 
C5CADT02 
12BB4780 
D202B000 
OO02A816 
OGQO00Q007 
CO000000 
COOQQ0E 3 
D3C4E200 
000002A8 
D4000000 


FFO40080 
FFO50230 
00040000 
00040000 


DOC858FO 
C1D540E4 
000C4153 
CC6247F0 
C4C5E2E2 
CO000640 
9240C2EA 
477CC46E 
8000C36E 
4410C14A 
DDO&8000 
C1981B18 
05003000 
F3E84040 
C28E47FC 
80004780 
C29C4TFO 
C36D4780 
9210C3CB 
41880001 
4TFOC46E 
C7c1cgpd3 
6BC3C8C1 
40404040 
40404046 
40404040 
40404040 
Q000000C 
O00G0000G 
OOOOCO0C 
QQ0000C0 
OO0V000CC 
OOOTOUCTO 
COO000000 
QO00G0CTO 
9200C3EC 
18164780 
C1D9C56B 
D6D56C6B 
18310630 
BOOOBCOC 
C54A4430 
FOO147F0 
CQO02A859 
OQ0000C4 
Q0001DB08 
C8C5E2C5 
00000000 
46C1D9IE8 
CoQCOdD0C 


AOOCA93C 
B007E0OBA 
00007498 
OCOOTS51A 


CO22D0201 
D5D2D5D6 
00024160 
COADE3C8 
C1C7C54B 
4440COBE 
D281C2EB 
4180C29A 
4TF2C1LIA 
41818000 
C36E47F2 
41780C290 
8000D5C1 
EZESC1 G3 
CLE847F0O 
C2529620 
C2204TFO 
C1FC9200 
418800C1 
95468000 
OCO2A500 
6BC5E9D4 
E4D5C 305 
4040404C 
4040404C 
40404040 
49404040 
00000000 
COOCOOCS 
OCQG0000 
000C0008 
COo0Q0000 
00000000 
CGCOO00000 
OCQ00G0C 
9400C 36D 
C49C45E0 
E3C8C56B 
C1D9E86B 
89300002 
D202F001 
C558478C 
C516D500 
0002A834 
OOO2A410 
000000T0 
QO00Q00CO0 
E4E2C5C4 
000002A8 
00000000 
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DICTIONARY BUILDER. 


LCC OBJECT CODE 


vzz 


COSE6FO 00090000 
COD6F4 00000000 


ADDR1 ADDR2 STMT 


836 
837 
838 
839 
840 
841 
&42 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
359 
860 
861 
862 
863 


SQURCE STATEMENT FO8APR70 


+ 
at 
a 
3 


SE Oo RIO a kak ok aki ak ak kote ac ak akc ak ak ak aca a ak ae a a a a kc oe a a a ie ke ak ak akc ak a ake ok 
ANSWERS TQ THE DICTIOGNARY BUILDING ROUTINE. 
1. IT WILL IGNORE ANY DUPLICATE. 
2- THE CHAINS ARE SEPARATED BY SYMBOL LENGTH. 


3. STATEMENTS #767 AND 768: 
L RL1lyNEXTBYTE YES; ADD THIS ONE 
XC BACKCHN, BACKCHN ZERO CHAIN POINTER. 


STATEMENTS #781 AND 782: 
SEARCH LTR R1l1,R11 END OF CHAIN ? 
BZ NOTYETIN YES, THIS IS TO BE ADDED. 


5. A) X! *" OR ®*CARDSCAN'#+X*0637" UR *DICTNARY'+X*63!. 
B) THERE ARE SEVEN CHAINS. 

C) "ARY® IS THE FIRST SYMBOL IN THE 3-BYTE CHAIN. 

D) "ARES IS THE LAST SYMBOL IN THE 3-BYTE CHAIN. 


wea WHEN YOU HAVE FINISHED THESE QUESTIONS, DISPLAY THE YELLOW 
SIDE OF YOUR “ANSWER CUE". 


a i i i ei eo 
aS 
e 


x 


HEAR A A AE AC A OA 2 RE OE A A IE REN A I I A A A A IE 2 ia 2 i a i a a ak a 2 a a a ok 
END 

=V(READ) 

=V( EOF) 
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00081300 
600081400 
00081500 
00081600 
00081700 
0008180C 
00081900 
00082C00 
00082100 
00082200 
00082300 
00082460 
00082500 
00082600 
O0C82700 
COC8280C 
0C082900 
00083C0C 
00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
OCVU838900 


See 


RELOCATION DICTIONARY . PAGE 1 

POS.IN REL.ID FLAGS ADDRESS - 9716/70 
Ol 01 OC 00029C 
O1 O1 OC Q005D0 
01 02 i€ 900028 
Ol 03 1C QQOG6FO 
Ol 04 1c COO6F4 


922 


SYMBOL 


A 
ADDIT 
ADDRESS 
ALL 
AROUND 

B 
BACKCHN 
BR14 
BUMPIT 
CARDAREA 
CARDPTR 
CARDSCAN 
CHKEYWDS 
CITY 
COMPARE 
CONTINER 
CONTINUE 
DCTENTRY 
DEL IMERR 
DEPENDNT 
DEPNDMVC 
DEPNDSCN 
DEPNDSC2 
DEPNDSV 
DICTDATA 
DICTNARY 
ENDOFILE 
ENTER 
FINDKYWD 
FLAGS 
FENKNWGNL 
GETACARD 
GOONBY 
INVALTOK 
KEYDC OMP 
KEYWDCLC 
K EYWDEND 
KEYWOTB 
KWOBRTAB 
LASTONE 
LKWOTEST 
LKWDOTSTL 
LOOP 
LOOPS AMP 
MESSAGE 
MODIFY 
MOVE 
MOVEDATA 
NAME 
NAMESAVE 
NEXTBYTE 
NOKEY WD 
NORESET 
NOTYETIN 
NOVERB 


LEN 


00034 
00006 
00001 
00001 
00001 
00001 
00003 
00002 
00004 
00001 
00004 
00001 
00062 
00001 
00006 
00001 
00001 
000C1 
00001 
00001 
00006 
00001 
00001 
90100 
C0001 
00001 
00004 
C9006 
00t02 
20001 
00064 
05002 
09004 
09001 
N0CC4 
00606 
02001 
O5C06 
05002 
00061 
C0004 
00064 
00001 
00004 
09001 
C0004 
99006 
C0006 
0c001 
90025 
COCO4 
00001 
09004 
00004 
COOC1 


VALUE 


000030 
00051C 
000294 
OOOOFF 
OOOO7E 
000052 
OCQ000 
00002C 
0O004A2 
0002A0 
00029C 
000000 
066156 
000294 
OGO55E 
006296 
0000680 
OG0G0G 
000296 
OCOLEE 
000252 
00C202 
000226 
OCO30F 
OGG003 
000504 
OC0474 
000564 
000130 
CG03 73 
UGO4F4 
OCOCCE 
OCOGCA 
000296 
OUC186 
C6C198 
UGC1C3 
COCIGE 
UOLITE 
000040 
VC0264 
OCC268 
OC UU68 
000052 
OCOCTE 
OGUCAS 
QIOC BO 
CCOCC4 
GU0294 
GOC2F6 
CGG5DC 
GOC296 
OCOCE2 
006550 
0C0296 


DEFN 


00060 
00768 
00518 
00830 
00106 
00061 
00833 
00033 
00639 
00535 
00534 
00001 
06379 
00519 
00789 
00525 
00542 
00832 
00526 
00431 
00461 


00437 


C0447 
00538 
0G834 
00796 
00627 
00790 
CU 362 
00539 
OC 154 
00327 
002C6 
00530 
00392 
60398 
G9410 
C0403 
00416 
00543 
00470 
vO471 
00100 
Q0084 
OO1CT 
00128 
06138 
00197 
JO517 
Gua ac 
CO195 
00529 
00332 
GO785 
00527 


REFERENCES 


0059 


0764 
0345 
0477 
0332 
0354 
0465 
0433 
O790 


0532 


6436 


C472 


0453 


0138 


CT68 
0389 


CROSS~REFERENCE 


0781 


0534 


0480 


0355 


0446 


0481 


0458 


01s? 


OTTL 


0786 


0382 


0453 


C635 


Q0785 


0383 


0456 


06395 


0384 0440 0442 


0480 


0541 


0639 


0443 


0445 


0474 
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Lez 


SYMBOL 


OFF 
ON 


ONLYONE 


PHONE 


RI 


SAVEAREA 
SCANLOOP 


SEARCH 
STATE 
STATUS 


STRINGND 
STRINGS 
SUBDE PND 
TEMPSAVE 
THUMBNDX 
TOOLONG 
TRTABLE 


TURN 


VARTABLE 
VCONPCHK 
VERBERR 
VERRMYC 
VERBSAVE 


WORD 


ZIPCODE 


LEN 


00001 
00001 
00001 
00002 
00004 
00001 
99001 


00001 
COOOL 
COCOl 
00001 
00001 
COG 


000CG1 
000C1 


OC001 
00001 
00Cul 
00001 
00001 


00001 
C0004 
COCG2 
00002 
900C1 
090901 
COCC2 
00063 
00004 
090004 
C0004 
00002 
CI0U01 
COCO] 
00002 
00004 
Co0o01 
CUCC6 
00CU6 
00004 
COOC]1 


VALUE 


OOCOFF 


000000 


OGGU26 
GCG294 
OCO52E 
OGOGO0O0 
erorererer 


OCGCGOA 
COOOCB 
voococ 
vOGCGCD 
GOGOQUGE 
uC QUOUF 


0C0002 
0000C3 


COCULG4 
GO0C05 
000006 
GOCCOT 
COOCO8 


occoT9g 
OCCOAB 
GOU484 
000534 
900294 
OGG294 
00069C 
90C4B2 
OCU258 
000590 
O00056C 
QOU4F2 
000374 
000373 
OOO0ZE 
GO00C28 
000296 
QOC15G 
OCOZFO 
00058C 
UO0294 


DEFN 


00540 
00829 
00544 
00523 
COT72 
00003 
COC04 


00013 
00014 
00015 
00016 
00017 
00C18 


GQ0C5 


GO0OC6 


COOCT 
00008 
COCO9 
00010 
COOl11] 


00012 
C0828 
00631 
Cor? 
00520 
00522 
00824 
00644 
00463 
COT94 
00791 
00645 
00545 
00541 
00059 
00032 
00528 
00372 
00536 
CO193 
00521 


REFERENCES 
0332 0458 
0635 
0436 0456 
0419 
0780 
0754 0772 
0333 0362 
0641 0755 
0753 0760 
0019 0020 
0019 0623 
0019 0033 
0022 0023 
0758 G760 
0349 0349 
0633 
0084 6085 
0769 O770 
0085 0098 
0086 0101 
0087 0101 
0345 0478 
0343 0346 
0434 0439 
0022 
0642 
0762 0783 
0422 
0424 

0640 
0630 
0435 
0754 o772 
0758 
0634 
0350 0380 
0332 0458 
0084 
0029 
0363 
C365 
C330 0331 
0781 0782 
0423 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
SGURCE RECORDS (SYSIN) 


*STATISTICS*® 
*OPTIONS IN EFFECT 
993 PRINTED LINES 


CROSS~REFERENCE 


0629 


0458 


03 64 


O761 
0021 
0024 
0335 
C024 
C768 
0351 


OC86 
Oo7T79 
0098 
0102 
0103 


0347 
C448 


0439 
0629 


C331 


838 


0455 
0635 


0331 


0366 


0763 


OC26 
OT7T3 
0029 
0786 
0379 


0138 
C128 
0386 
0344 


0362 
0452 


0463 


0372 


0388 


O770 
0026 
0826 
0030 
0381 
0189 
0135 
0346 


0366 
0461 


0546 


0391 


0770 
0825 
0827 
0334 
0390 
0197 
0136 
0367 


0366 
0464 


0548 


0392 


O771 


0825 


0335 


0393 


0387 


0189 


0630 


0367 
0464 


0550 


SGURCE RECORDS (SYSLIB) 


0432 


OTT 


0826 


0336 


0394 


0395 


0190 


0632 


0368 
0470 


0552 


LIST, NODECK, LOAD, NORENT, XREF, NOTESTs ALGNe OS, LEINECNT 


0448 


OTT 


0337 


0394 


0398 


0191 


0636 


0372 
0470 


0627 


0449 


0782 


0433 


0438 


0755 


0385 


0641 


0380 
0471 


0628 


0450 


0785 


0451 


0438 


0756 


0395 


0641 


0388 
0473 


0632 


0452 


0451 


0441 


O57 


0789 


0398 
0475 
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C470 0636 
O461 0754 
0631 0631 
O758 O759 
0790 
0432 0432 
0475 0476 


822 


~F44—-CLEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARIABLE OPTIONS USED — SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
TEWOO00 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
CARDSCAN 00 " 6F8 
UTILITY 6F8 5 A0 | 
PRINT 75A PCHKRETN 986 
READ C98 108 
EOF DIC 
ENTRY ADDRESS 6F8 
TOTAL LENGTH DAO 


KARAS O DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


62¢ 


VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VV VV 
VVVV 
VV 


AAAAAAAAAA 

AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAABAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


RRRRRRRRRRR 
RRRRRRRRRRRR 
RR RR 
RR RR 
RR RR 
RRRRRRRRRRRR 
RRRRRRRRRRR 
RR RR 

RR RR 

RR RR 
RR RR 
RR RR 


YY 
YY 


YY YY 


YY YY 
YY YY 
YYYY 
YY 
YY 
YY 
YY 
YY 
YY 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 


99 99 
999999999999 
9999999999 


TTTTTTTITTTT 
TTTTTTTTTtitT 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


1111111111 
1111111111 


TT eTCCCTSCLLCCeS TOSS CCCSOCCLO SOC SSL CSCS SLCC SCL LSSCLCCSCS OCC OSS SSS TCP OL ECL OSI LTTE SS LL STL PSP L CLS ST eCrCeLeeCereoCee eer ree fe Lee LS ss 


0&2 


SYMBOL 


SYMBOLTB 


. TYPE ID ADDR 


LENGTH LD ID 


SD G1 000000 000300 


EXTERNAL SYMBOL DICTIONARY 


14.23 
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LOC 
090000 


000000 
CO9001 
O0o0002 
COCO03 
CO0004 
900005 
0000096 
900007 
900008 
COC009 
OCIJOOA 
OC0900B 
O90000C 
OcQ00D 
COCOOE 
OOS900F 
800090 
OCCOC4 
CO9006 
000006 
N90CIA 
COOOUE 
my 000012 
= 000014 


VARTABLE LENGTH FIELD TROUBLE ANALYSIS PROBLEM 1. 
OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8SAPRTI0 
2 SYMBOLTB CSECT 
3 COPY MHMBEGIN 
4 RO EQU 0 
5S Rl EQU 1 
6 R2 EQU 2 
T R3 EQU 3 
8 R4 EQU 4 
9 R5 EQU 5 
10 R6 EQU 6 
11 R7 EQU 7 
12 R8 EQU 8 
13 R9 EQU 9 
14 R1C E QU 10 
15 Ril EQU ll 
16 R12 EQU 12 
17 R13 EQU . 13 
18 R14 EQU 14 
19 R15 EQU 15 
9CEC DBCOC OO0COC 20 STM R149R12,12(R13) SAVE THE CALLER'S REGISTERS 
05CO 21 BALR R12,0 ESTABLISH PROGRAM BASE. 
22 USING *,R12 LET THE ASSEMBLER KNGW. 
41°O C2B2 OC2B8 23 LA RLSOsSAVEAREA ADDRESS OF MY SAVE AREA 
5CFD 0008 00C08 24 ST R15,8(R13) BACKWARD CHAIN 
50DF 0004 00004 25 ST R1344(R15) FORWARD CHAIN 
18DF 26 LR R13,R15 ESTABLISH MY SAVE AREA 
D703 DOC8 DOD8B 00008 00008 2? XC 814,R13),8(R13) TERMINATE THE FORWARD CHAIN 
28 * END GF STANDARD ENTRY LINKAGE CONVENTIONS. 
2.9 ORC IO A RII aI OR IE IOI III ROR ka ak ae ake kcal ae ake 2k ak ake ak a ak oft a a a af 2 ak a 
30 * 
31 * THIS ROUTINE BUILDS A SYMBOL TABLE CONTAINING CHAINS OF 
32 * SYMBOLS (CHAINS BASED ON SYMBOL LENGTH; WHICH MAY BE FROM 
33 * ONE TO EIGHT CHARACTERS. THE CHAINS ARE POINTED TO BY 
34 * AN INDEX TABLE (CALLED A *THUMB INDEX! ), WHICH CONTAINS 
325 * ADDRESSES POINTING TO THE BEGINNING OF THEIR RESPECTIVE 
36 * CHAINS. THE PROGRAM WILL CHECK FOR DUPLICATES, AND IF 
37 * ONE IS FOUND, IT RETURNS A CODE QF 4, IF NOT, THE NEW 
38 * SYMBOL IS ADDED TO THE END GF THE CHAIN, AND A CODE OF 
39 * OQ IS RETURNED. 
40 * 
41 * THE PROGFAM SEEMS TQ BE CUT OF ADJUSTMENT TODAY, AS {fT 
42 IS NQT WORKING TOO WELL. FIND THE ERROR AND THE CODE 
43 THAT CAUSED IT. 


,> 
aS 
eH HH 
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00000200 
00000300 
OOoco0gTOC 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 


00001800 


000019C0 
00002000 
00002160 
QO00022CU 
00002400 
00002500 
00002600 
00002700 
000028006 
00002900 
00003000 
00003100 
00003200 
O0GOQ00400 
00000500 
O0000C6&CO 
CO00G 700 
00000800 


00000900 


00001000 
OO0001L1L00 
00001200 
00001300 
COQ0001400 
00001500 
99001600 
00001 700 
OGCC18CO 
QOIV01STCO 
OO0002T00 


CES 


VARIABLE LENGTH FIELD TROUBLE ANALYSIS PROBLEM 1. 


LOC 


OCOOLA 47FO COAE 


OBJECT CQDE 


ADDR1 ADDR2 


CO0B4 


STMT 


47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

57 
58 
59 
60 
61 
62 
63 
64 
65 


SOURCE STATEMENT FO8APR70 
B TESTCASE BRANCH TO THE TESTING CODE. 
PCS TCLCLOCCOSCSCSC£L OSC S SSS LSS SS SS CLL L SS SSS SSS CLS SE SS SS Se Se SSeS Se Ss SS 
* 
* ON ENTRY, REGISTER 1 POINTS TO THE LENGTH OF THE SYMBOL 
* TO BE INSERTED (HALF-WORD), WHICH [TS FOLLOWED BY THE 
* SYMBGL ITSELF. 
x 
* +¢——- + $-——-——— $ 2 + + 
* | temm tema =—— => FLENGTHI SYMBOL (1-8 BYTES) | 
x tee + $m ee $f a + 
* REGISTER 1 0 2 3-10 
oe 
* THE SYMBOL WILL BE ENTERED INTO A TABLE THAT LOOKS LIKE: 
* 
* IN THE TABLE, * ~-> X © MEANS "ADDRESS OF X*". 
* 
* ‘INDEX® "DICTNARY ® 
x $t-------- + + $e + t—--—— +——~—-~-—-—------— + 
x { ~---> A { {A { -> B JAA | ~> BB {AAA | -—> BBB I 
* t—+- + $—--—---- == $= tam er ee + 
* [ ~--> AA | {8 JQOOOCCOIBB | -—> DD {BBB [ ~> EEE | 
x ton + town = + ~—--—---——-— + ——— =~ ~~ + 
* | ~-> AAA | {DD JOOOOOOJEEE JOOCODOIL xX { 
* ta + tenn 4 —— ~~ + A | 
* { ocgov0Sd | { { { 
x taaa-----= + | ! | 
* yo¥d9990000 i | { 
* COCO OCOOOC i (UNUSED SPACE} { i 
ta-a------ + | | 
* { oo00000 | } | 1 
x +--------- + a nee C---------- + 
* 1 
* *NXAVAIL® * ==> X § MEANS "ADDRESS OF X". |} 
* $e + { € ADDRESS OF LST 
* { +----— ,sheesteariaietaateninententteateeetesiennemennatneineneseeiaanaiaiaetannnaenneanened >+ FREE BYTE IN 
* : osteeteenimaneteanmtnad + "“DICTNARY'.) 
ok 
* ONCE IN THE DICTIONARY, THE ENTRY LOOKS LIKE: 
* 
* towne ———— $n nn nn eee t—-----—- + 
* { SYMBOL (1-8) { ATTRIBUTES (11) {CHAIN |] 
* tare en ne ee fae ee +-—-—---—— + 
* 0 1-8 12-19 15-22 
* 
FR AR aK KK fork Ae ok 


Be ie ke ake te fe fe ke a fe fe oe Ree fe fe Re ae ae fe eR a ae OK iC a i I I OK BE I OK A AK I OK AK OK A FC OK OK AE AE OK 2 
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00002200 
0G00230C 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00903000 
00003190 
00003200 
00003300 
06603400 
60003500 
Y0003600 
00003 70G 
00003800 
Q00039C0 
00004000 
00004100 
06004200 
00004300 
900004400 
00004500 
00004600 
00004700 
CO00480C 
00004909 
00005900 
0€005100 
G0005200 
00005300 
00005400 
CQOU05500 
00005600 
00005700 
00605800 
00005900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 


3 A 


Loc 


OCIOLE 
090022 

‘C0024 
900928 
CO002C 
OO902E 
902032 
000034 
0C9036 
COO03A 
COO03E 
900040 
C090044 
OCC048 
OCCO4C 
C0C050 
000054 
000058 
QOOO5E 
000062 
900064 
900068 
COOQO6A 
QCOObE 


COCOT4 
200978 
GOCOTC 
OCC080 
900084 
C00088 
OO0IC8C 
060092 
C02094 
CG0098 
COOOQ9IA 
N0009A 
COCOIE 


2CCQA2 
OCOOA8 
QQOGOAE 
uGOQOBC 


VARTABLE LENGTH FIELD TROUBLE ANALYSTS PROBLEM 1. 


OBJECT CODE 


9320F 
1211 
4780 
48F1 
1L2FF 
4780 
O6FO 
1@BF 
Q9FC 
5 8EF 
12EE 
4770 
41LAF 
4 TFC 
44B0 
478¢ 
G1LAB 
202 
SRI 
1299 
4786 
18E9 
4&TFO 
D292 


5R20 
413B 
5036 
44B0 
416B 
4122 
702 
1BFF 
9B0E 
JTFE 


41FO | 


4TEG 


N200 
D590 


920 


ADDR1 


AQUU GuGB1 


Clo3 GOCIO 


2000 00C00 


ADDR2 
N9000C 


QO09A 
00090 


OO09A 


00002 
00168 


G004C 
60168 
GOO6E 
OO0A8 
OCO9A 
0000B 
OGCOO 
Oo3BU 


OO06E 


OOG04C 
00189 


00188 
JOOOE 
06188 
OSIA2 
O00CB 
OGcdl 
00000 


O000C 


90004 
OCO94 


20G0 10602 90000 90002 


EVO? 


OIC 9000CN 


Lud2 vuld00 


OOCC2 


SOURCE STATEMENT 


ENTER 


LOOP 


EXIT 


NOENTRY 


DUPE 


MOVE 


COMPARE 


WORD 


STM 
LTR 
BZ 
LH 
LTR 
BZ 
BCTR 
LR 
SLL 
L 
LTR 
BNZ 
LA 
3) 
EX 
BE 
LA 
MVC 
L 
LTR 
BZ 
LR 


RO,R15,12(R13) 
R1LsR1 

NOENTRY 
R15,0(R1) 
R15,R15 
NOENTRY 

R15,0 

R11,R15 

R15e2 
R14,INDEX(R15) 
R14,R14 

LOOP 
RLOvsgINDceX( R15) 
ENTERC 
Rl1leCQMPARE 
DUPE 


QRICyglLILC(R11,R14) 
WORDt+1 (32) ,C(R10) 


R9yWORD 
R9O_RI 
ENTERC 
R14,R9 
LOOP 


O0(3,R10),NXAVAIL#1 


R2_9NXAVAIL 
R3,14(R11_,R2) 
R3_NXAVAIL 
R1l1,MOVE 
R1li,sllC(R11) 
R2,L€R2,R11) 
O0(3sR2),0(R2) 
R15,R15 
ROsR14,120R13) 
R14 


we 
Pp 4 


R1594 
EXIT 


O(OgR2)920R1) 
OL yR14),20R1) 


Fro 


FO8APR/0 


SAVE MAINLINE ROUTINES REGISTERS. 
IF NO SYMBOL GIVEN, 


RETURN. 


GET LENGTH OF SYMBOL. 


IF ZERO LENGTH, 


RETURN. 


ELSE SUBTRACT ONE. 
COPY LENGTH FOR EXECUTE. 


*4 FUR DISPLACEMENT IN THUMB INDEX. 


GET ADDR. 


IF THE CHAIN EXISTS, 

GO SEARCH FOR DUPLICATE. 

POINT TO ENTRY IN INDEX. 
AND GO ENTER THE DATA 


OTHERWISE, 


OF CHAIN. 


TEST FOR DUPLICATE 


FOUND, 


EXIT 
ADDRESS QF CHAINING POINTER IN CHAIN. 


ALIGN CHAIN POINTER ON A WORD BODY. 


GET CHAINING ADDRESS 


IF END OF CHAIN, 


ADD THIS ONE TO THE CHAIN. 


OTHERWISE REPEAT THE SEARCH. 


SET CHAIN POINTER TO NEXT AVAILABLE 


BYTE IN DICTIONARY. 


UPDATE NEXT FREE BYTE ADDRESS. 
ADD THE ENTRY TO THE SYMBOL TABLE. 


ADD LENGTH OF COMMON. 


ZERQ NEW CHAIN POINTER. 


RETURN CODE TO SHGW SUCCESSFUL OP. 
RESTORE REGISTERS. 
RETURN TO MAINLINE. 
SET UP ERROR CODE. 
SET UP ERROR CODE. 
RESTORE REGISTERS AND RETURN. 


EXECUTED MVC. 
EXECUTED CLC. 


BOUNDARY ALIGNMENT BUFFER. 
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QOGO068COC 
00006906 
OQ007TCOC 
00007190 
00007200 
00007300 
00007400 
00007500 
CUSCTECO 
COCCTTO9 
O0007800 
00007900 
QOUUGCB8OOC 
OCO0C8100 
0C008200 
00008306 
COOCB4CO0 
00008500 
OO008ECO 
COOO8B TCC 
00008800 
O0O0C890C 
00009000 
OCOC91CC 
00009200 
00009300 
00009400 
0O0cC9500 
COCO9IE00 
0C009700 
00009800 
Q0009900 
O0CQ10000 
00010100 
CO910200 
0001030C 
00010490 
00010500 


00G10706 
0001080C 


00010900 


ve? 


TESTCASE 
BR AD FoR ROK IO Kak 
a A) Foe * * 
*BEGIN MAIN . i" 
* ROUTINE kare Sie “gi HOUSEKEEPING. : 
* 
* 


e {7 + 
to | 
< 
m 
+ 


* * 
He oo oe Ke Re ok a KK * 
He 3 RCE AR aK eK fe a ee kK 2K 


PASSLOOP 
ROK B 2a OR ik kok ok 
ea HK *xENTER * 
* x Kok KKK KK 
* B2 *-=--->*ENTER SYMBOL INS 


* * * TABLE. 
kkk * * 


MEO FEE 2h 2c i oe ie ak a OK 


2 eo aR a ok 
A STORAGE * 


*KED* 
: 


ue 


Be te Sle ate ale fe ie Je mle See yt he she 
vet ee AR AR AK SR TR OS OR OS Oe OR AR ee 


ENTER 
HK AK Ke AND KK Re 3 KK Ke ke 
x BEGIN * 
* DICTIONARY * 
*BUILDING ROUT IN* 
We Ae 2 ae a a He ae he ec 2k 2K ok 


V 
sok 40K Bekok dak tk kak ak 
* * 
* HOUSEKEEPING * 
* AND 
ETAL eT ON eS 
OO tek Rok a kai te kkk 


* 


it 


Yo fe ak ee (4 a ag ofc ake ok cae oe 


* 


* QETERMINE * 
s iL Eiwo’ A UF . 
* SYMBOL, * 
* 2 
BO KORO RO ate ake ak ake ake ak ak ok 
V 
e *, 
D3 *, 
aie ee 
«* LENGTH x, 
Eee avn ZERO ? . 
as * 
x, ok 
* YES 
NOE NT RY : r 
eR ORE oe kok kkk kkk 
*RETURN, CONE = * 
* 4. ** 


Ke KA Gk KK KK KK KKK 

* 

* GET ADDRESS 
+---->* FROM THUMB 

: INDEX. 

He Re ae eK KK a eK KK 


H HHH Ht 4 


ARYBUG 
OF O01 


Oo 
o= 
~~ 


ENTERC 
FC CK A 5 tao kak a ak oe 
* 


* UPDATE THE * 
t—<~+>* THUMB INDEX * 
BCHAIN POINTER. = 

ote 


Bok kok ke kk kok ok kak ok teak 


V 
KE BS 2K 3 KK OK 
* BUMP * 
* PCINTER TO ** 
*NEXT AVAILABLE * 
* BYTE. * 


we 
~~ 


ea a a a 

1 

V 
se a eo C5 a a a me Se ne ok 
x * 
* ADD SYMBOL TO * 
* JTC TLONARY. * 
x * 
* * 
SER RGR kok ac ok ede a 

EXIT 


V 
eK D 5 ROK KKK 
REYES CODE = * 


=== O.. * 
* 


* 
ME Re he He ie oe eK A a AC oe OK OK 


Gz 


LCC 


9000B4 
CCO0B4 
COGOBB 
OCOOBA 
OOSOBE 
0090C2 
OC00C 6 
o090C 8 
CO90CC 
OOS0CE 
JoooD2 
COOCD6 


900008 
OOQ0E4 
XOQOEE 
QOC00F 8 
GO01S2 
J90010C 
C00116 
900129 
GOO1L2A 
000134 
OGO13E 
COC14& 
900152 
Cco15se 
C00166 


0090146 
COC16 8 
CCG138 
HOLES 
0GC0285 


VARTABLE LENGTH FIELD TROUBLE ANALYSIS PROBLEM 1. 


ABJECT CODE 


9835 CODZ 
1813 
4550 
4TFF 
4TFO 
0004 
8734 
0014 
58DD 
98EC 
O7FE 


C018 
CCBC 
COC2 


COB2 


C004 
DOOC 


OOCOCOE4OOCOCCOA 
0001C014040404046 
0002C1C140404040 
0003C1C0101404040 
0001024040404040 
90020C2C240404040 
OCC3C 20202404040 
0902C03C0340404040 
0C03C4C4C440404C0 
9003D404D4404040 
JOC6EZCIETDECOF1 
9308C1D303C5C9C7 
OCOOE3C5E2E340D3 
9006D5C1D4C57BF6 


ADDR1 ADDR2 


OOCD8 
OOO1E 
000C2 
000C8 
O0CGB8 


00004 
OOCOC 


STMT 


L239 
160 
161 
162 
163 
164 
165 
166 


167 


168 
169 
170 
171 
l?v2 
173 
174 
175 
176 


178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 


Loo 
200 
201 
202 
203 
204 


SQURCE STATEMENT FO8APR/0 
BO OI CIO IC EI ICI I II II IIE ICI ak ak akc dk ak ofa ak ake ak ak ka ake a ak 
* 

x THIS ROUTINE PASSES SYMBOLS TO THE DICTIONARY BUILDING 
* ROUTINE. 
* 
BCC IOI IO GIO CI IR IR IOI a aK aK I aK ak ak aka ofc akc ak a ak ake ok ok ae ocak ae ak ae 
TESTCASE DS OH 
LM R3~9R5,CGNSTANT LOOP CONTROLLING PARAMETERS. 
PASSLGOP LR R1,R3 ADDRESS OF THE SYMBOL TO BE ADDED. 
BAL R14,ENTER ENTER IT. 
B *+4(R15) TEST THE RETURN CODE. 
B ADDEDOK = QO, CONTINUE. 
DC H®' 4? = 4, TERMINATE. 
ADDEDQK BXLE R3,yR4,_,PASSLOGP CONTINUE WITH ADDITIONS. 
DC H* 20° DUMP TO SEE TABLE * * * * * *® * * KX * 
L R13,4(R13) 
LM R14,R12,12(R13) RESTORE CALLER'S REGISTERS. 
BR R14 RETURN TO CALLER. 


BIO CK ik git ak tok a lok a ak oka a a kaki ai ak a ake ak aK ac oc ak a aK ak ke ak ok ea a afc ak 
* 

* SYMBOLS TO BE ADDED TO THE SYMBOL TABLE. 

* 


OR I RR RR RK IR RK RR a a a OK aR ai a ak kai a ak ka 2 ok cK oi aK ok ok a ak a aoe 
CONSTANT DC A(SYMLIST,10,SYMLSTND-1) 


i 


SYMLIST DC H®1"',CL8tAs 
DC H*2%,CL8*AA! 
DC H#3*,CL8* AAAS 
DC HP Lt —CL3O* 3" 
DC H*2',CL8'*BB! 
DC H*3"',CL8* BBB* 
DC H*2*,CL8°*CC® 
DC H'3*,CL8'DDD! 
DC H*'3",CL8*MMME 
DC H*6" ,CL8'SIXOF1 
DC H*8*,CL8*ALLEIGHT' 
DC H*O',CL8* TEST L=0' 
DC H*'6#,CL8*NAME#6! 
SYMLSTND EQU * 
INDEX DC > BFF U* THUMB INDEX 


NXAVAIL OC A(DICTNARY) NEXT AVAILABLE DICTIONARY ADDRESS. 
DICTNARY DBC Z0CK!O! DICTIONARY 

SAVEAREA DS LEE SAVE AREA FOR CICTIONARY BUILDING 
cS ROUTINE. 


END 
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00013400 
00013500 
00013600 
00013700 
00013800 
00013900 
00014000 
00014100 
06014200 
00014300 
00014400 
00014500 
000146090 
00014700 
00014800 
00014900 
00015000 
CQ06151006 


00015300 
00015400 
00015500 
00015600 
00015700 
00615800 
00015900 
00016000 
00016100 
00016200 
00016300 
00016400 
00016500 
00016600 
00016700 
00016800 
000169C0 
00017000 
00017100 
00017200 


00017400 
00017500 
OGOLTEOE 
COO1LTICO 
0001780C 
00017900 


RELOCATION DICTIONARY PAGE 1 


POS.ID RFL.ID FLAGS ADDRESS 9/16/70 
Ol O1 OG O000D8 
Ol OL OC QOOOGED 


Ot Ol UC J00188 


CRGSS-REFERENCE PAGE 1 
SYMBOL LEN VALUE ODEFN REFERENCES 9/16/70 
ADDEDOK CGO004 OCGOCC8 00172 O170> 
COMPARE 00006 OGOCA8 00133 0107 
CONSTANT 090004 OCO0O0D8 C0183 0166 
DICTNARY 99061 O0C0O18C GO201L1 06200 
DUPE C9094 OCOC9A 00129 0108 
ENTER COCO04 OOOCIE 60093 G168 
ENTERC 00006 COOCO6BE 0G116 0106 0113 
EXIT 00004 O0C0094 00126 0130 
INDEX 69004 GC0168 00199 0102 0105 
LOOP OoCO4 90C0C4C CO10T7 0104 9115 | 
MOVE CU0U6 DIVOCA2Z 00132 0121 
NOENTRY G3OG1 OCCOSGA 00128 0095 G098 
NXAVATL 0004 GOG188 390200 0116 0118 0120 
PASSLGOP OCOCO02 GOCOOKS 00167 0172 
RO O9CO1 80ccco 00004 0093 0126 
R1 O0CUul OCGGCI1 OUC05 C094 0094 C096 0132 0133 O167 
R1C QOCCL OVQVOA CCO14 0105 ¢109 0110 0116 
R11 99001 CCOCOB OOCLS5 O10G O107 0109 C119 €121 0122 O122 0123 
R12 JO0G01 OGGSCUC 00016. 0020 0021 C0022 0175 
R13 o000l ucecoDd 00017 OG20 C024 0025 C026 O027 O027 0093 0126 O174 O174 O175 
R14 COOOL COCOOE CO0C18 60020 C102 0163 0103 O109 O114 ©0126 O127 O133 0168 0175 O176 
R15 -O30C1 GOocoF.coG19 9923 0024 0C25 6026 C093 0096 OC9% Od097 O099 O100 O101l GiG2 0105 O125 90125 
2 3a. Fe 0129 0169 
R2 OCO91 OCGOCO2 .000CE 90118 C119 0123 0123 0124 0124 O132 
N R3 gcodl 000803 C0007 0119 C120 0166 O167 OQO172 
NRG COCO1l GooGC4s VOCC8 O172 
R5 *Oo001 GOCCS5 00009 0166 
R6 » *'09C01 900C06 OGO019 
R7 OOcOl OC0C07 COCII1 
RB C9091 O0CU0G8B 900012 
RI 990001 O0CG009 00013 Olli 0112 0112 0114 
SAVEAREA 09004 0002388 Cu2C2 6023 
SYMBOLTR 99001 GUOCoC 20002 
SYMLTST OG002 OCUCE4 00184 0183 
SYMLSTND OCOOL 000166 COl1S7 0183 
TESTCASE OoOGU2 OCOOB4 00165 0047 
WORD COO004 OCCOCBG 00134 C110 0111 
NGO STATEMENTS FLAGGED IN THIS ASSEMBLY 
*STATISTICS* SGURCE RECORDS (SYSIN) = 179 SOURCE RECGRDS (SYSLIB) = 25 
*OPTIONS IN EFFECT* LIST, NODECK, LOAD, NORENT, XREF, NOTEST, ALGNy OS, LINECNT = 55 


263 PRINTED LINES 


8EC 


F44—-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,sLET,LISTs,NCAL 


VAKIABLE OPTIONS USED — SIZE=(45056,6144)- DEFAULT OQPTIONC(S) USED 
TEWOO00 ENTRY UTILITY 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN CLENGTH NAME LOCATION NAME LOCATION NAME 
SYMBOLTB CU 300 
UTILITY 300 ~5A0 
PRINT 362 PCHKRETN 5BE 
ENTRY ADDRESS 300 
TOTAL LENGTH 8A0 
***KGO DGES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


LOCATION 


NAME 


LUCATION 


6E7 


F.P. REGS. 
REGS 0-7 
REGS 8-15 


000000 
C00020 
OCO004C 
0090606 


O4DF6C 
O4DF 86 
C40FA0 
Q94DFCO 
O4DFEO 
O4E 090 
O4E026 
04E040 
OJ4E06C 
O4EC8C 
C4E0A0 
O4E0CO 
O4EOEO 
O4E19C 
C4E126 
O4F140 
C4E16C 
04E180 
O4E1A0 
C4E1CC 
O4E1EO 
O4E250 
04E220 
O4E240 
94E260 


C4E820 


00.01B5B8 O0O1LDAYIO 


FFFFFF2E 00C4E062 OQOO1LDAAC 0004E062 
OO0G1LBDAID CO0OG0000 DOCILDAB8 00000000 


00000000 
00040003 
C005A498 
90040000 


9OECDOCC 
DOOCI2il 
4710CG46 
COAA1299 
44B0C09C 
CO8BED2Z0C 
COBC47FOG 
QOO004E0C5 
4C4C0G0c1 
0002C3C3 
E2C9E7D6 
D4C57BF& 
Q0uUC CCUG 
VOCS 
ehererere. Ler’, 
Q0000CCD 
O0GuCLUL 
9O0UCdDCC 
DOCOCOVG 
olorerelelerere 
JOCOQ0GTY 
OO000GCCC 
QO0UTCVC 
0001AA48 
OGUGOQUCU 


50401010 


G0GQ0000 
SUQ006A3E 
oco00col 
GOGO?TBC8 


O5C041F0 
47800094 
41AFC162 
4780C 068 
41B6000B 
20001002 
COC 20004 
00010140 
C2404040 
40404040 
C6F14040 
404000C0 
vuGColdd 
OGGCcGoce 
0OGCC0OD 
OGU0ECCO 
OV0GCIG0 
QUCOGOCG 
v000Q90C0 
GOGGGO000 
00000000 
CCGGGOCS 
FFFFFF2E 
GGO1LDASO 
C5CO04FC 


434CAC08 


00000000 
FFA500C5 
00001468 
CO040000 


C2B250FD 
48F190000 
47FO0C068 
L8E947FO 
4122B001 
D50CECO0 
8734C0B2 
40404040 
40494040 
40400003 
CO08C1D3 
C4EOECOE 
OCG4E119 
00CiC1Cl 
OO00CGCO 
WCOQOOCC 
O0VIOCOO 
CCOCOGCH 
Q000C000 
00000000 
00000000 
09000000 
OOC4ECE2 
0000000 
07004119 


12444780 


40.058132 OQ00C0050 


00000000 
AFO4DFBO 
00005920 
0000 7588 


0C00850DF 
12FF 4780 
44BO0COA2 
C046D202 
D7022000 
16020000 
00145 80D 
40400002 
GO02C2C2 
C4C40440 
D3C5C9CT 
O4EOFACO 
€1000000 
06500000 
90000000 
00000000 
00000060 
¢0090000 
00000000 
00000000 
00060C00 
c0000000 
OOULDAAC 
OCO1DAB8 
C0100511 


885C 4820 


FD.000000 00000000 


E2.E8E2E5 &306C340 


OOOCO00A O0004E0CS5 00010600 0001AA48 
6FO4DF66 COO4E218 O4EDECOO OO000000 


OOO04DF60 
QDOQOOFFIO 
083D5B00 
00000000 


G00418DF 
CO9406F0 
41780C094% 
A0UCC1 83 
2ZOCCLBFF 
00000000 
OO0498EC 
C1C14040 
40404040 
40404040 
C8E30000 
04E10900 
O0C000000 
0d00000C 
O00COC00 
OCOOGO00 
0VCC0000 
OCOGOCOO 
00000000 
00000000 
900C0000 
00C0G000 
COO04E062 
00000000 
OFOC4E304 


AN0E5420 


000C0000 
00000000 
OCOC996C 
00012D10 


b703D008 
18BF89FO 
41ABE0O0B 
5820C182 
980EDO0C 
9835C0D2 
DCOCOTFE 
40404040 
40400003 
06003D4D4 
ESCDEZES 
000 G0000 
O000000C0 
00C00000 
O00GO00000 
00C00000 
00000000 
OGO00000 
00000000 
00000000 
00000000 
00000000 
OO00000A 
6FO4DF 66 
TFFFOAOE 


8A9E4780 


FFO040080 
FE040132 
C0040000 
00040000 


DOO847FO 
0002 58EF 
D2O02COAB 
413B200E 
O7FE41FO 
181345E0 
O004E044 
0003C1C1 
C202C240 
D4404040 
40D37EFO 
O000000C 
COOCCIC!L 
OoCO00000C 
00000000 
00000000 
O0000G0G 
00000000 
OCO0OCE0 
OCOd0000G 
OGQ000CO 
CA5E968C 
OCO4E0C5 
COO4E218 
58B00C10 


87FC0620 


A000A93C 
80000A1E 
00007498 
OOOCTS5IA 


CCAE9OO0F 
C1l6212EE 
A0005890 
50300182 
000447F0 
COLS47UFF 
OOO0000A 
C140404C 
4040404C 
40400006 
000605C 1 
COO000000 
000000C0 
C0Q000000 
00000600 
ooo0cgon0nd 
00000000 
000C0000 
00900000 
QO0C0NCDO 
0C000000 
OCO59F68 
0001D600 
SFO4EOLE 
91108974 


5AZCBO10 


a i a i i a 
Keecccccccccsvcccescescscsessesseer 
Se ee ee ee ee ee ee ee ae ae ee ee ee ee 
MG ca: 6: wie ww wee ew oS. © Owe ore ww oe a ee eae 
FeceeeeeGBecsccesscsePecvee eles ee® 
te @ 6b 60S eel 666 44 6 Ses U6 SSO when 
Kececeehe De cccccsccscceekKsccvese® 
Fevcceces eles eK evehoe eAcevcvecAc® 
Kec cccvecccsePeccccvesecsce see 0% 
KeekKeoweseNeccvcvvcescceekKececceser 
KeeeCeBecsccccccecvcscvecccsecssscser 
KeeeEe eA 02 AA 7 eAAA x 
* 2B » «BB «BBB * 
*e CC « ~DDD 2 «MMM 00 ¥ 
*SIXGFl ..-ALLEIGHT..TEST LeU. .NA* 
XME «6 cere reser ececcrcccrccecsaek 
KeeccccccvcceNesesscccsvescANseee* 
KeeccccescAhbeeccccccevrseccseeves® 
Keecccccccccccccssscccccssccccsccex 
Fecccccccersecccsccesecccesecesese® 
ee i er 
Keeesccccsccccsscccccsscccssesevseex 
Keowee ccseresvecscceccsscsescesccsex 
KeecccscccvrccsvccccsccsevcccvceseeeX 
a 
Keer cvcccercecrvescccvccsecvel eee * 
Kececcccvccccsesccscresevcsereccce® 
KevecceeDecccssereelcoevsescccesee® 
XK eaee Terre ee eee Se ee ee ee 


She Ree Re a ake a oe A a RR RR HC RRR ROR ROR CRO RRR CRC ROR I BC CE IK OR Ca a I a a RE A A AK I Ee AC A EE EM HH KH HH EEK EK KERR KEKE KK 


Ove 


JIC ICICI OI CGO GI ol toi i iGo ai i oi tui ii ito cI I III RIO I IO IR FRI OK If a i ale a a a a 2 


QQQQQQQQQG 
QAQQQUQQQQQUA 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ WQ 
QQ QQ AQ 
QQ QQQQ 
QQQQQQQQAQAY 


QUYQQQQRQ AQ 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UY UU 
UU UU 
UU UU 
UUUUUUUUUUUU 
UVUUUUUUUUU 


EPEEEEEEEEEE 
EEBEEEEEEEEE 
EE 

EE 

EE 

EGREPEEE 
EEEEGEEE 

EE 

GE 

EE 
EEEEEEEEEEEE 
EGFEGEEREEEEEE 


UU 
UU 
U 


UU 
UU 
UU 
UU 
UU 
UY 
UU 
UU 
UU 
UU 
UUJUUUUUUUY 
UUUUUUUUU 
9999999999 
999999999999 
a9 99 
99 99 
99 99 
999999999999 
999999999999 
99 
99 
99 99 
999999999999 
9999999999 


EFEEEEEEEEEEE 
EEEEEEEEEEEE 


BEEEEGEE 
EFEEEEEE 

EE 

EE 

EE 
FEEEEEEEEEEE 
EEEEFEEEEEES 


WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW WW 
WW WWWW WW 
WW WW WW WW 
WWWW WW WW 
WWW WWW 
WW WW 


PPPPPPPPPPP 
PPPPPPPPPPPP 
pp pp 
pp pp 
pp pp 
PPPPPPPPPPPP 
PPPPPPPPPpP 
pp 
pp 
pp 
Pp 
pp 


Lve 


SYMBOL 


QUEUE SUP 
PCHKRETN 


TYPE ID ADDR LENGTH LD ID 


SD 
ER 


O01 GOCO000 OCO1F4 
02 


EXTERNAL SYMBOL DICTIONARY 


13.02 


PAGE 1 
9/17/70 


Nh 
-S 
N 


LOC 


990999 


CO0900 
COCC4O1 
005002 
009003 
9990004 
000005 
090006 
OOUCOT 
000008 
CO0909 
DQTGOIA 
000008 
LOOOCC 
co9000 
JOOOOE 
NO000F 
COCO 
000004 
990006 
900006 
QOIOOA 
QOO90E 
O00012 
900014 


OBJFCT CODE 


SO:EC 
O5C0 


41FC 
5oFD 
5 ODF 
180F 
D7C3 


DUSC 


CO8E 
uGd8 
QG04 


ADDR1 ADDR2 


O000C 


00094. 


00008 
00004 


DGO8 DCU CUGO8B 00008 


STMT 


OON AUF WN 


SOURCE STATEMENT 


QUEUESUP CSECT 


RO 
Rl 
R2 
R3 
R4 
R5 
R6 
RT 
R8 
RI 
R10 
R11 
R12 
R13 
R14 
R15 


it 


COPY MHMBEGIN 

EQU Q 

EQU 1 

EQU 2 

EQU 3 

EQU 4 

EQU 5 

EQU 6 

EQU qT 

EQU 8 

EQU 9 

EQU 10 

EQu li 

EQU l2 

EQU 13 

EQU 14 

EQU 15 

STM R14,R12,12(R13) SAVE THE CALLER*S REGISTERS 
BALR R12,0 ESTABLISH PROGRAM BASE 
USING *,R12 LET THE ASSEMBLER KNOW. 
LA R15_,SAVEAREA | ADDRESS GF MY SAVE AREA 
ST R15_8(R13) BACKWARD CHAIN 

St R13,4(0R15) FORWARD CHAIN 

LR R13,R15 ESTABLISH MY SAVE AREA 
XC 8(4,R13),80R13) TERMINATE THE FORWARD CHAIN 


END QF STANDARD ENTRY LINKAGE CONVENTIONS. 
PRINT OFF 


FOSAPR 70 


PAGE Ni 


9/17/70 


00000100 
COOCO2CQ 
OO00CO TOU 
00CUC800 
COGOQ0900 
OCCC1CO9d 
CQ001100 
00001200 
0C001300 
QO001490C 
OGOO01500 
QOG001600 
00001700 
OU0T1BOL 
90001996 
OCTOG2CG0C 
00002100 
QOVO229C 
00G0240C0 
O000 2500 
OC002690 
000027C0 
0C002 806 
OG002990C 
Q0003C00 
OQ0GQ31C0 
Q000320C 
OO00C3C0 


eve 


LOC 


OO902A 
OOO02ZE 


090032 
G00036 
OOCO3A 


OOOO3E 
C00042 
000046 
OCSO04A 
OOS04E 
000050 
0090054 


000056 


QOCO5A 
O0005C 
COO05E 
909062 


000064 


000065 
O0006A 


OOC06C 
009070 


QOG0072 


Q0C078 


COOOTE 


000084 


900088 
C0008C 


200090 


QUEUE PROCESSING TECHNIQUES WORK 


OBJECT CODE 


4150 
4160 
4170 
4180 
4190 
41A0 
4180 
581A 
58F5 
O5EF 
46B0 
0000 
B7A8 
0001 
1B11 
5 8F5 
O5EF 
1211 
4720 
0002 
47FO 
0003 
D707 
D707 
D707 
8756 
5 8DD 
98EC 
O7FE 


CO0D6 
0008 
COED 
0004 
COF9 
COEE 
0002 
0000 
0G00 


C050 


C040 


0004 


CO6A 
CG6C 
COPE 


Cli2 
C126 


C038 


0004 
DOCOC 


ADDR1 


CCFE 00104 
Cii2 00118 
Ci26 0012C 


ADDR2 


00070 


00072 


00104 
00118 
0012C 
OOO3E 
C0004 
CGVOC 


STMT 


PROJECT. 


SOURCE STATEMENT FO8APR70 


BCCI OCI II Oz OI IO IOI IC CI II ICI. I I IOI RI I I ROK a a 40a ak oft aka ak a ak 


THES CODE TESTS ALL THE QUEUEING ROUTINES. 
4 TIMES. 


x, 

* IT LINKS TO EACH 
* IT WILL ADD 2 ELEMENTS TO THE QUEUE, TAKE A DUMP, 
* ADD A THIRD ELEMENT, TAKE ANOTHER DUMP, REMOVE THE FIRST 

* ELEMENT FROM THE QUEUE, AND TAKE ANOTHER DUMP. THIS 

* SEQUENCE ALLOWS YOU TO SEE THE CONTENTS OF EACH QUEUE AS IT 
* IS BEING BUILT. 

xe 

* 


SCC I OI Io ga a ka kai a ok ake ke ai ok aK ake ac ake a a ok 


Fe I 2 a ee a a 2c 2 i 2K CK a 2 oh oak oe a ok ie ai aK aK akc ok ic ok oi oie ake ake akc ok a ok ok oc ok ak akc af oi a ak ok ot ote ake ok ok ok tc ae ak ak akc atc ake ak akc oc 
SR FR RK oe ok aR ee kek kk ok KOK INSTRUCTIONS TO THE READER. x2 2K KKK KK KX 
kote i ok kok ook ek kok ok kk kkk kk eee ae He ate of te ae ate oe fe a eK of ate ak ok ok 
KE NE Ae AK CC ae Oi CK AS AE OS IK AK KK hc eK aC oe hc ae oe a a ok ic ae oc ai ik ic ah fe ofc oe fc Ok i a oe AK OE ok aie aK ic ik oe ic of oe a ok ak ote ake ote oc ok of ok oe ok 
* READ OVER THE TEXT THAT FOLLOWS THIS CODE, IT EXPLAINS THE 
X* TERMINOLOGY ASSOCIATED WITH QUEUES. WHEN YOU HAVE FINISHED 
* READING THAT INFORMATION, DIRECTIONS WILL BE GIVEN TO TELL 
* YOU WHAT TO DO NEXT. DO NOT WASTE TIME READING THE TEST CODE.. 
Sete ft oe Lee see SSL Stele S See Se SeLS SLL SSCS SS SLESSLLOS £2 SS 2 22S SS 2 2 2 2 2's 2 55 
BEGIN LA R5,QUINGLST ADDRESS OF QUEUEING ROUTINE ADDRS. 

LA R6,8 INCREMENT. 

LA R7,QELEMNTS—1 ADDRESS LIST END. 

LA R84 INCREMENT. 

LA R9,BLOCK1=-1 ADDRESS OF LIST END. 
TESTLOOP LA R10,QELEMNTS ADDR. OF ELEMENTS ADDRESS LIST. 

LA R11,2 LOGP COUNT BEFQRE FIRST DUMP. 
QENTER Li: Rl,yO(R10) ADDRESS OF A QUEUE ELEMENT TO ADD. 

L R15,0(R5) ADDR. OF ENQUEUE SUB-ROUTINE. 

BALR R14,R15 LINK TO ENQUEUE ROUTINE. 

BCT R11,NODUMP DUMP ONLY AFTER ADDING 2 ELEMENTS. 

DC Hor | 
NODUMP BXLE R10,R8,QENTER ADD TOTAL OF THREE ELEMENTS TO Q. 

DC H? 1? DUMP AFTER ADDING 3RD. 

SR R1,R1 RESET PARAMETER REGISTER. 

L R1544(R5) ADDR. OF DEQUEUE SUB—ROUTINE. 

BALR R14,P15 LINK TQ DEQUEUE ROUTINE. 

LTR R1,Rl1 FIND ONE ? 

BP DUMPIT YES, TAKE A DUMP, 

OC H'2t NO, TAKE A DUMP (DEBUG). 

Bo DUMPIT+42 
DUMPIT DC H'38 

XC BLOCK1L+4(8),BLOCKL#4 CLEAR THE 

XC BLOCK2+4(8) »BLOCK2+4 LINK FIELDS 

XC BLOCK3+4(8),BLOCK3+4 IN THE BLOCKS. 

3 BXLE R5,R6,TESTLOGP LOOP THRGUGH ALL ROUTINES. 

RETURN L R1394(R13) RELOAD SAVE REGISTER ADDRESS. 

LM R14,R12,12(R13) RELOAD CALLER'S REGISTERS. 

BR R14 | RETURN 


PAGE 2 


9/17/7C 


OCOO1CCO 
00001100 
00001200 
00001300 
00001400 
00001500 
C0001600 
00001700 
00001800 
00001900 


00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
000027006 
00002800 
00002900 


00003100 
C0003 200 
C0003390 
00003400 
00003500 
0000360C 
OC00370C 
00003800 
00003900 
00004000 
C0004100 
0C004200 
C00043900 
00C04400 
00004500 
00004600 
00004700 
000048C0 
00004900 
OC005C00 
00005100 
OG0052909 
000G530G 
0000540C 
00005500 
O000056CO 
00005700 
00005800 
00005900 


ve 


LOC 


000094 
JO0ODC 
DOO00E4 
OOGOOEC 


COOOQF4 
C00190 
CO01G1 
CQ0104 
0C0114 
OCO11L5 
600118 
C0128 
S0G129 
GOI912C 


cO9900 
069000 
000001 
200004 
000008 
OCO0O0C 
CCC004 
CDOS 


o9C9I000 


QUEUE PROCESSING TECHNIQUES WORK 


OBJECT CODE ADDR1 ADDR2 = STMT 
86 

0090013C 00000158 87 
0000016C00C00182 88 
OOOCOLA4OOQONOI1CC 89 
9CO001LGO00CCO114 a1 
09 92 
000000 93 
OOD00GCOOCCOUCUD 94 
Ol 95 
900000 96 
QOD0NDGCOGOUONGNO GT 
06 98 
000050 a9 
OD0DDUG00CGOG0CO 100 
102 

103 

104 

105 

106 

107 

108 

109 

lll 


PROJECT. 


SOURCE 


SAVEAREA 
QUINGLST 


QELEMNTS 
BLOCK1 


BLOCK2 


BLOCK3 


QELEMENT 
PRTY 


LINKFWRD 
LINK BKWD 


DISPLFWD 
DISPLBWD 


QUEUESUP 


STATEMENT FOSAPRTO 
DS 18F 

DC ACF ILFOENQ1,FIFODEQL) 

DC A(LIFOENQ2,LIFODEQ2) 

DC A(PRTYENQ2_PRTYDEQ2) 

DC A(BLOCK1 ,BLOCK2, BLCCK3) 

DC x'09! PRIORITY 

CC AL300) 

DC 4Et Ot 

DC X' OL" PRIORITY 

DC AL3(0) 

DC 4F1O8 

DC X' 06! PRIORITY 

DC AL3(0) 

DC 4ENCE 

DSECT DUMMY SECTION FOR A QUEUE ELEMENT. 
DS e PRIORITY VALUE 

DS AL3 

DS F FORWARD LINK FIELD. 

DS F BACKWARD LINK FIELD 

DS 2F 

FQU LINKFWRD-GELEMENT DISPLACEMENT TO FORWARD LINK FIELD. 
EQU  LINKBKWO-QELEMENT DISPLACEMENT TO BACKWARD LINK FIELD. 
CSECT RESUME CSECT. 
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00006100 
O00C6200 
00006300 
00006400 


00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
00007300 
00007400 
G0007500 


00007700 
00007800 
00007900 
OCO008C00 
00008100 
00008200 
O0908300 
00008400 


00008600 


Sve 


QUEUE PROCESSING TECHNIQUES WORK 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
113 
114 
115 
116 
117 
118 
119 
120 

. 121 
122 
123 
124 
125 
126 
l2t 


128 


129 


130 


131 


132 


133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 

150 
151 
152 
153 
154 
155 
156 
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PROJECT. 

SOURCE STATEMENT FO8APRTO 9/17/T0 
FOO OC GCG IO IOI I aI ii Ice ic i ak aii icdokieak ack ak ici ako tack 00008800 
* 00008900 
* JOR oR cick BEGIN READING HERE . 5323 x 22k a 2k ak a ok ak 00009000 
* 00009100 
* YOU ALREADY KNOW WHAT A "QUEUE" IS, SO [I WON'T BOTHER TO ~ 00009200 
* RE*EXPLAIN. THE FIRST THING THAT IY DO WANT TO LOOK AT IS 00009300 
* SOME OF THE TERMINOLOGY ASSOCIATED WITH QUEUES. 00009400 
* 00009500 
* FIRST, QUEUES ARE MADE UP OF THINGS THAT REPRESENT THE 00009600 
ENQUEVED REQUEST. WELL, "THINGS" PROBABLY ISN*T A VERY 00009700 
* GOOD TERM TO USE, BECAUSE "THINGS® ENCOMPASS A LOT OF 00009800 
** "STUFF" NOT PERTINENT TO QUEUES. SO, I*LL CALL THEM 00009900 
** QUEUE "ELEMENTS" OR "BLOCKS" AS THEY ARE FREQUENTLY 00010000 
* CALLED BY SOME SYSTEM PROGRAMMERS. THESE "BLOCKS" 00010100 
* ARE NOTHING MORE THAN AREAS OF CORE STORAGE THAT CONTAIN 00010200 
* DATA RELATED TO THE "REQUEST" wE HAVE MADE THAT CAUSED 00010300 
* “US TO GET PUT IN THE QUEUE IN THE FIRST PLACE. 00010400 
* | CO _ | 0001050C 
% BEHOLD A “BLOCK: tern rr en nn rn nn nnn + 00016600 
* {| SOME DATA ABOUT THE REQUEST 00010700 
* tween et 00016800 
* | 0 | +N 00010900 
* THAT*S CQOL, ISN*T IT 77? | 00011000 
* | | 00011100 
* DON'T FORGET THAT A QUEUE [IS A LIST OF ITEMS, AND OUR SINGLE 00011200 
* BLOCK DOESN'T COOK MUCH LIKE A LIST, SO WE ARE GOING TO 00011300 
* HAVE TO PUT TOGETHER SOME KIND OF LIST TO LET THE QUEUE 00011400 
* PROCESSING ROUTINE KNOW THE ORDER IN WHICH THE ITEMS ARE 00011500 
* TO BE HANDLED (PROCESSED). 00011600 
* 00011700 
* MORE LIKELY THAN NOT, HOWEVER, THE WRITER OF THE QUEUE 00011800 
* PROCESSING ROUTINE [S NOT INTERESTED IN BUILDING A SEPARATE 00011900 
* LIST OF ADDRESSES, POINTING TO ALL THE “ELEMENTS*® IN THE 00012000 
* QUEUE (YOU KNOW HOW PROGRAMMER'SS CAN BE.weoedys 00012100 
* SO wE WILL PROBABLY HAVE THE ELEMENTS POINT TO EACH OTHER. 00012200 
* ALSO, NOT HAVING A FIXED NUMBER OF POINTERS TO THE ELEMENTS 00012300 
* IN THE QUEUE, WE ARE ABLE TO HAVE A QUEUE OF VARYING LENGTH 00012400 
** (ANY WHERE FROM O TO INFINITY OR THE END OF QUR AVAILABLE 00012500 
** CGRE STORAGE, WHICHEVER COMES FIRST). | 00012600 
* 00012700 
* THE WAY IN WHICH THE ENDIVIDUAL BLOCKS ADDRESS EACH OTHER 00012800 
* BRINGS A COUPLE OF NEW TERMS INTO THE DISCUSSION. 00012900 
* 00013000 
* 


HK 2 aK aK aK ae oie i akc oe oC aK ae Re OK RE a Re ae a oh i ae ake a a a CC RE A RC RC Ae eK A IE KK KK Ka OK KKK 6 OG013100 
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158 
159 
160 
161 
162 
1 63 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 


176 
177 


178 
179 
180 
181 


182 


183 
184 


185° 
186 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 


205 


206 
207 


a a a a a a 


ae 


PROJECT. 


SOURCE STATEMENT FO8APR70 


% 
% 


SKORIK AEE ACK OK I aK aK KK BIOSIS OIG SSIS SI ISIGG IG IGISIS RISC I ISIOI Ia IE tok ak fea TEAK ME IKK 


IN ORDER TG HAVE A QUEUE AT ALL, THE ELEMENTS WITHIN IT MUST 
BE LINKED TO OTHER ELEMENTS IN THE QUEUE. 


IF EACH SINGLE ELEMENT POINTS TO THE ONE THAT FOLLOWS IT 

IN THE QUEUE, THAT [Sy EACH ELEMENT CONTAINS THE ADORESS OF 
ONLY ONE OTHER ELEMENT IN THE QUEUE, THE QUEUE IS SAID TO BE 
"SINGLE THREADED". IN OQTHER WORDS, THERE IS ONLY A SINGLE 
ADDRESS CHAIN (THREAD) LINKING THE ELEMENTS TOGETHER. | 
FOR EXAMPLE, THIS IS A “SINGLE THREADED" QUEUE: 


+ 
{ 
J 
{ 

> 
t 
! 
! 
I 
] 

Vv 

+ 
! 
{ 
| 

+ 
4 
! 
' 
t 
1 

Vv 

+ 
1 
! 
t 

+ 


| | ~---~>{| 009000 | 
$m + 5 iaiesheateatesmementent + » eae + pee er et 


THE ZEROS IN THE LAST BLOCK ARE USED TO SHOW THAT THIS IS 
THE LAST BLOCK IN THE QUEUE (SAME AS IN SYNONYM CHAINS). - 


OR » EACH ELEMENT MAY ADDRESS BOTH THE ELEMENT IN FRONT OF 
ITSELF, AS WELL AS THE ONE BEHIND ITSELF. MAKING UP A 
"DOUBLE-THREADED" QUEUE. THIS,MIGHT BE DONE WHENEVER IT IS 
ADVANTAGEOUS TO KNOW THE WHEREABOUTS OF BOTH THE "PREDECESSOR" 
AND "SUCCESSOR™ OF ANY ELEMENT (TO BE’ ABLE’ TO SEARCH BOTH 
DIRECTIONS IN THE QUEUE). 

HERE 1S A DIAGRAM SHOWING THE RELATIONSHIP ‘OF ELEMENTS IN 

A "DGUBLE THREADED" QUEUE. 


tht———-=--- + +4 tan + t4 tere t+ HG te + 


| #---+----~ >I $---+-~--- >| t-~~+----->} 0G0000 | 
+12+~----- ma + +12+-~------ + + 12+-~----- ~— + +12 t-—-—----—+ 


IF YOU LOCK CLOSELY, YOU WILL NOTICE THE SIMILARITY BETWEEN 
THE ABQVE QUEUE AND THE REGISTER SAVE AREAS THAT YOU HAVE 
BEEN CONSTRUCTING, IF YOU HAVE BEEN FOLLOWING CONVENTIONS. 

Be CE a aK AC AK RK AOR I a I ARR IR CE ACR IC I ICE AR AR IS RC AS RC RE EE AEC HE Ca aK ak aC a iC aC a aC aK ok a 
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00013309 
00013400 
00013500 
00013600 
00013700 
00013800. 
00013900 
00014000 
00014100 
00014200 
00014300. 
00014400 
00014500 
00014600 
00014700 
00014800 
00014960 
00015000 
00015100 
G0015200 
00015300 
00015400.: 


00015500 — 


00015606." 
0C015700 
CO015800 : 


090015900:- 


00016000 © 
000161:00 
06016200 . 
00016300 

00016400 
00016500 
00016600 
00016700 
00016800 
CCO01690G 
0001L7C00 
00017100 
C0017290 
00017306 
00017400 
00017500 
00017600 
00017700 
00017800 
00017900 
000180C0 
00018100 
00618200 


Lee 


QUEUE PROCESSING TECHNIQUES WORK 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
209 
210 
211 
212 
213 
214 
215 
216 
(217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


PROJECT. 


SOURCE STATEMENT 


He 


He 3 3H tH 


“% 


a 3 3b tt ae ete 


3+¢ 


eH He ete He 


we 3 4 4 


tt 4 


we oH 3 4 4 


a 


THE NEXT THING THAT WE OUGHT TO BE ABLE TO DO TS LOCATE THE 
THAT WE KNOW WHO'S FIRST (FAIR IS 
THIS BY POINTING TO THE FIRST ELEMENT 
WITH A FULL WORD OF STORAGE. GIVEN THE FOLLCWING: 


START OF THE QUEUE, 
WE WILL DO 


FAIR). 


+-—------- + +--+ + + 
i ten t—--- >] Foes s—=s 74 
+——<-- = + +----- + + 
HEAD PTR. ; ! { i 
( | i 
$n + + 
WE HAVE A "SINGLE HEADED" QUEUE, 


POINTER TO 


SINGLE-THREADED*™ 


THE START OR 
AND WE FIND THAT THE ABOVE IS REALLY A 


SQ 


QUEUE. 


GET THE PICTURE 2??? 


CARRY THIS A STEP FURTHER, 


HHEAD" 


O00000 


——— <u ae ub au ane co 


FOBAPR7/0 


BRK AK IK IE IK AE OK AE SE A IK FE IK OO OK I ACK I He SE IE IE A I I A OK OK OK A A KK EI OK 2 OK aK 2K KE oi CK AK OK ok 


IN THAT THERE [IS A SINGLE 


OF THE QUEUE. 


AND WE MAY FIND THAT 


fy IS TO 


OUR ADVANTAGE (SOMETIMES) TO KNOW WHERE THE -LAST ELEMENT 


IN THE QUEVE IS LOCATED ALSO, 
WE MIGHT HAVE A "DOUBLE-HEADED™ QUEUE, 


DIAGRAM. ( YQU MIGHT ALSO NOTICE THAT IT*S SINGLE-THREADED.) 
+-—-——-—— ~—+ t-----~—-- + $a t He + 
+-~-+----- >I +---+----- >I $---+----- >{ 000000 | 
oe + $--~----~ + t~---—---- A te--—--—~— + 
| team te >t | | ! t | 
+-------- + 4 
HEAD PTRS. | | | 
{0 tae et $——— == } 9 t-------- + 
V | 
too - - - S eeateaeatetatnieaeed >+ 


YOU CAN RELAX NOW, 
HAVE ATTEMPTED TO DESCRIBE ANY 
OCTAL-BASED? 


THREADED, 


RECIPROCATING, 


FOR AS FAR AS I KNOW, 
"TRIPLE-HEADED, 
BIFURCATED, 


QUEUE", AT LEAST NOT FOR THE MOMENT. 


AE KK A EK AK OK AE OK EK AC I OE OK OK OK A KE AE I OK CE OK OK OK OK EK 


2 


COMBINE TERMS 
"SINGLE-HEADED 


SO (ARE YOU READY FOR THIS ?) 
AS IN THE FOLLOWING 


NOQ FAR-OUT THINKERS 
QUINTUPLE- 
PARAMETRIC 
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00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
000190CO 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
06019900 
00020000 
00020100 
00020206 
00020300 
00020400 
00020500 
00020600 
0002070 
0C020800 
00020900 
0002100C 
c0021100 
06021200 
00021300 
06021406 
00021500 
00021600 
00C21700 
00021800 
00021900 
00622660 
00022100 
00022200 
00022300 
006224C0 
00022500 


FOI ROR ORI oko §=00022600 


Sz 


QUEUE PROCESSING TECHNIQUES WORK PROJECT. PAGE T 


LOC ABJECT CODE ADDR1 ADDR2 STMT SGURCE STATEMENT FO8APR70 9/17/70 
253 KK oko ok KC IO i kk kok sai iio ac kalo kak ok kkk doko ikki aka kde §=O60022800 
254 * 0002296C 
255 * WELL, THAT®S GROOVY, RIGHT ? BUT, ONCE WE'VE GOTTEN ALL THESE 00023000 
256 * ELEMENTS TIED UP IN A QUEUE, WE OUGHT TO DO SOMETHING ABOUT 00023100 
257 * GETTING THEM OFF THE QUEUE. AFTER ALL, THEY WERE QUEUED FOR 00623200 
258 * A REASON (TO GET SOMETHING DONE). . 00023300 
259 * 00023400 
260 * THE ORDER IN WHICH THE ELEMENTS ARE HANDLED (I1I-E-, ADDED TO 00023500 
261 * AND REMOVED FROM THE QUEUE), PLAYS A LARGE PART IN THE NAMING 00023600 
262 * OF THE QUEUE. LET'S TAKE A LOOK AT THE DIFFERENT METHODS 00023700 

(263 * OF PROCESSING THE QUEUE ELEMENTS. 00023860 
264 * . 00023900 
265 * FIRST, AND PROBABLY CLOSEST TO WHAT YQU EXPERIENCE IN C0024000 
266 * YOUR DAILY ENCOUNTERS WITH QUEUES (STANDING IN LINE FOR 060024100 
2670 * SOMETHING)» WE HAVE THE "FIRST COME, FIRST SERVED" PHILOSOPHY. 00024200 
268 * EXCEPT THAT IN THE STANDARD TERMINGLOGY [T'S CALLED FIRST CC024300 
269 * IN, FIRST OUT (FQR THE ACRONYM COLLECTOR-FIFO);, BECAUSE THE 00024400 
270 * FIRST ELEMENT ENTERED IN THE QUEUE IS THE FIRST GNE TO BE 00024500 
2?tl * SERVICED, GR TAKEN OUT GF THE QUEUE. AFTER ALL, THE FIRST 00024600 
2t2 * PERSON TQ THE TICKET WINDOW DESERVES THE TICKETS FOR THE 00024700 
273 * 50-YARD LINE SEATS, OR FIRST ROW CENTER STAGE. RIGHT ?777? 00024800 
214 * C0024900 
215 * FOR THOSE OF YOU WHO DON'T AGREE TO THAT, PARTICULARLY THOSE 00025000 
216 * WHO INVARIABLY ARRIVE LATE AT THE TICKET LINE, HERE IS A 00025100 
21t * METHOD OF HANDLING A QUEUE WHICH IS YOU MIGHT PREFER. 00025200 
218 * 00025300 
219 * LAST IN, FIRST QUT (LIFO) OR FIRST IN, LAST OUT COPTOMISTIC 00025400 
280 * POINT OF VIEW, (FILO)). IN THIS KIND OF QUEUE, THE ELEMENTS 00025500 
281 * ARE ADDED AT THE TOP (OR BOTTCM) GF THE QUEUE, AND REMOVED 00025600 
282 * STARTING AT THE BOTTOM (GR TOP) SF THE QUEUE. YOU MIGHT COG25700 
283 * CONSIDER THIS TG BE UNNATURAL, BUT THINK OF THE FOLLOWING: 00025800 
284 * 00025900 
285 * YQU WANT TO DRIVE DOWN TO THE STORE IN YOUR CAR, SQ: OG026C00 
286 * 1. YOU GET OUT YOUR IGNITION KEY. 00026100 
287 * 2- WHEN YOU GET TO YOUR GARAGE, YOU FIND IT LOCKED. 00026200 
288 * 32. MUTTERING SOMETHING, YOU GET OUT YOUR GARAGE KEY AND 00026300 
289 * MOMENTARILY "PUSH-DOWN®™ THE IGNITION KEY FOR LATER USE. 00626400 
290 * 4. NOW YOU UNLOCK THE GARAGE, AND PUT AWAY THAT KEY. 0C026500 
291 * 5. LASTLY, YOU RETRIEVE YOUR IGNITION KEY, AND START 0G026600 
292 * YOUR CAR (THE THING YOU WANTED TO DO FIRST). 000267C0 
293 * 0C026800 
294 * INITIALLY, YOU HAD WANTED TO USE THE IGNITION KEY, BUT THIS 00026900 
295 * CAUSED YOU TO HAVE TO USE THE GARAGE KEY FIRST, “"PUSHING-DOWN" O0O27C0U 
296 * THE USE OF THE IGNITION KEY FROM FIRST TOG LAST. THE OVERALL 00027160 
257 * ACTIGQN THAT TOOK PLACE COULD BE DESCRIBED AS A ®LAST-IN- 00027200 
298 * FIRST-UUT*® GR "FIRST~IN-LAST—-OUT™ OPERATION. C0027 300 
299 * OG0274C00 


Xx a 
300 RG CIA OOK ZO RIO OR II IG OK IR IC Rao dak ak ak ckcckaet §=60027500 


602 


QUEUE PROCESSING TECHNIQUES WORK 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 


PROJECT. 


Ho 36 HH HH HH HH HH HH 


FOC OR IR SO I IR Rik aaa i a akc ak of fie ak ok ok a ak ok ak ok 


SOURCE STATEMENT 


BC CIO III CIC IC II I I IK I RI aK SIG ak fal ak oie gi ai ake ate ake ak ak ak ak aie ai a age 9 


THE PRECEEDING QUEUES WERE OGRDERED ON THE BASIS OF ARRIVAL 
TIME OF THE REQUEST, BUT NO ONE CONSIDERED THAT ONE REQUEST 


MIGHT BE MORE URGENT THAN ANOTHER. SOy THE NEXT QUEUE TO 
BE CONSIDERED TAKES THE URGENCY OF THE REQUEST INTO 
CONSIDERATION, AND IT IS CALLED A "PRIORITY" QUEUE. EACH 
ELEMENT CONTAINS SOME FIELD WHICH GIVES THE PRIORITY OF 
THE PARTICULAR REQUEST. THE ELEMENT IS THEN ADDED TO THE 
QUEUE IN THE POSITION THAT IT DESERVES (BASED ON THE 
PRIORITY NUMBER THAT IT HAD BEEN ASSIGNED). 


HIGHER PRIORITY ELEMENTS BEING ADDED NEAR THE TOP OF THE 
QUEUE. AND THE LOWER PRIORITY ONES BEING ADDED NEARER TO 
THE BOTTOM END OF THE QUEUE. 


FO8APR70 
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Q0C27TTOC 
00027800 
00027900 
00028000 
00028100 
00028200 
00028300 
00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 


0SZ 
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LOC OBJECT CODE ADDR1L ADDR2 STMT 
320 
321 
322 
223 
324 
325 
326 
327 
328 
329 
330 

331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 


a | 357 


358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
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+ 


BOC CIO OK Gi ok a ck oko io tok a kik tok ak ok kak ae ak 
So took okieckicks: DIRECTIONS TO THE STUDENT. ****#E%X 
Bekok Ac ak ke ok ok ok ok ok kak ok ak of ak aie ak ok se a KK 
COO I IC ok oi IO OK dio oa ak i kak a ak ak ak ok ak ak ak ak ak ak ak ak ake ok ok 


KR KK CK 
ORK kak ok tak cok ok 
x 
kK 


ic 


2! 
4 


gee <a cee any wane <n wom oe —— <= a aye oe UD te > OD 


ROK RK a RK KKK 
AK ok a aK 


3 


xx 
* 
* 
* 


ON THE PAGES THAT FOLLOW, THERE ARE SAMPLES OF THE CODE 
WHICH MAY BE ‘USED TO PROCESS SEVERAL OF THE DIFFERENT 
KINDS OF QUEUES THAT WE HAVE JUST DESCRIBED. 


FIRST, SCAN OVER THE DESCRIPTION OF THE QUEUE THAT THE 
CODE IS PROCESSING, AND BE CERTAIN THAT YOU UNDERSTAND 
WHAT THE QUEUE SHOULD LOOK CLIKE. 

THEN, LOOK AT THE FIRST OF THE THREE DUMPS THAT FOLLOW 
THE CODING SAMPLE. THIS DUMP SHOWS THE QUEUE AS IT WILL 
LOOK AFTER *BLOCKI1!® AND "*BLOCK2* HAVE BEEN ADDED. USING 
THE CODE AND THE DATA IN THIS FIRST DUMP, DRAW A PICTURE 
GF THE QUEUE AS [T LOGKS NOW. USE THE WORK PAGE SUPPLIED 
(NEATNESS OOESN*T NECESSARILY COUNT). 


a ee ee er 


He 


THE NEXT THING THAT WILL HAPPEN TO THE QUEUE I[S THIS: 
THE ADDRESS OF *BLOCK3* WILL BE PASSED TO THE ENQUEUE 
ROUTINE IN REGISTER 1. IN THE SPACE PROVIDED ON THE 
WORKSHEET, DRAW THE QUEUE AS IT WILL LOOK WHEN 'BLOCK35 
HAS BEEN SUCCESSFULLY ENQUEVED. YOQU MAY USE INTUITION 
OR THE CQDE TO FIGURE OUT WHAT IT wIitt LOOK LIKE, BUT 
BE CORRECT .42-e-eOR ELSE see ence 
NOW, CHECK YOUR DIAGRAM AGAINST THE DATA IN THE SECOND 
DUMP, WHICH HAS *BLOCK3* ENQUEUED. IF YOUR DIAGRAM DOESNIT 
MATCH, YOU MAY: 
A. GO BACK OVER THE CODE AND FIND OUT WHERE YCU WENT ASTRAY. 
Be. WAIL», GNASH YOUR TEETH, AND SHOUT FOR YOUR INSTRUCTOR, 
WHO WILL LEAD YOU BACK TO THE STRAIGHT PATH.... 


% HH H 36 HH 


% 3 oH 4 


% 4 


3 


LASTLY, THE DEQUEVE ROUTINE WILL BE LINKED TQ, AND AN 
ELEMENT wiItLlL BE REMOVED FROM THE QUEUE, IN ACCORDANCE 

WITH THE QUEVE'S METHOD OF PROCESSING. AGAIN, DRAW THE 
QUEUE AS IT SHOULD LOOK AFTER THE ELEMENT HAS BEEN 
REMOVED. 

AS BEFORE, CHECK YOUR DIAGRAM AGAINST THE QUEUE THAT IS IN 
THE DUMP, AND THEN CHOOSE ONE FROM A. OR Be. ABOVE, IF 


YOUR DIAGRAM DOESN'T MATCH. 


Se de ek Oe 


AT THE END OF THIS TOPIC, YOU WILL BE GIVEN AN HONORARY 
"NORMAN ROCKWELL FAN CLUB" MEMBERSHIP OR A GIFT CERTIFICATE 
ENTITLING YOU TO A CORRESPONDENCE COURSE IN PENMANSHIP, 
DEPENDING ON THE ARTISTIC QUALITY QF YOUR DIAGRAMS. 

MONTHLY WINNERS WILL PARTICIPATE IN A “DRAW-OFF", TO BE 
HELD IN MISSGULA, MONTANA DURING THE ANNUAL ICE-SCULPTING 
FESTIVAL. 


Ho HM He te ae de te 


+ 


% % 


BE CICERO GIGI IOI IOI OR OI IC RO IK a ik a ka aa a a aR af a ic ak kek Kc ak fea ak akc ak 
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00029500 
000296G0 
00029700 
00029800 
00029900 
00030000 
00030100 
00030200 
00030300 
C6030400 
C003U0500 
00030600 
00030700 
00030800 
00030900 
00031090 
00031100 
0003129C 
00031300 
00031400 
00031500 
00031600 
00031700 
00031806 
00031900 
90032C00 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 
00032700 
00032800 
00032900 
00033000 
00033100 
00033200 
00033300 
G0033400 
00033500 
00033600 
00033700 
00033800 
60033900 
00034660 
00034100 
00034200 
00034300 
00034400 
00034500 


LSZ 


3 3 
mM 

cz 

4D 
Cc 
m 
c 
mm 


KK IK ADK KR eK eK 
* * 
*GET ADDRESS OF * 
~------ >* ~ THE HEAD # 
* POINTER. + 


MR He eo a KK 


FENQ2 V 

Fok ACK B 2 ak ak kctok Kk 

x * 
*GET ADDRESS OF * 

+-->*THE NEXT BLOCK * 
* IN QUEUE * 
x * 

Jot oi doko ie kok ak ike k 


V 
oo ®. 
C2 ° 
.* * 
NO .* 2S THIS THE*. 
+-- *. LAST IN THE .* 
*. QUEUE ? .* 
*, ox 
x, 4X 
-* YES 


V 
sea tok DD eK RK KK 


* ADD THE NEW * 
* BLOCK TO THE * 
* END OF THE * 
* QUEUE. x 
x % 
He RK IK eK KK KK Ok ok 
V 
HK KE DK aK KK ok ok 
* * 
* RETURN * 
x * 


MK Me MAC Ae RK a ok KK 


FIFQDEQ2 


HEE KE AS 2K ROKK eK 
* START FIFO * 
*DEQUEUE ROUTINE® 
we 


MEK AE FEC RE IK eK OK Xe ae ok 


V 
it aR BS a ak tok dak ak 
oe Xx 
*GET ADDRESS QF x 
*FIRST BLCCK ON * 
% QUEUE. 


Xe Se KE KK 


w* * 
YES .* IS THE *, 


*, .* 
x, 4X 
* NO 


V 
He XK D5 Xe KK eK AK 
* * 


* DEQUEUE THE * 
* FIRST BLOCK * 
ZFROM THE QUEUE .* 


Ak too tok ke ok ok 


V 
HCE 5 2 $k ok ak 
_ * RETURN TO * 
; > CALLER * 


HE I KKK OK KK 


(AST A 


FIFO QUEUE, SINGLE HEADED, SINGLE THREADED. PAGE 11 


LOC OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT FOBAPR70 9/17/70 
387 40 OI IGOR A ER IO RC a a a aaakook 2k ak ok tk ok ak ok kK 0036200 
388 * 06036300 
389 * THESE ROUTINES PROCESS A SINGLE-HEADED, SINGLE-THREADED, 00036400 
390 * FIRST-IN-FIRST-QUT QUEUE. 00036500 
391 00036600 


BID RRA A AE EK AE KK BE HE AE AE AE AE EI CE A RE I RE I AE SE EE A AE AE AE EA ECE IE CE I AE OE EE A AE IE A 2K A EE A RAC AK i 00036700 


394 OK RO I Ook tok took dct etcktek 00036900 


395. > 00037C00 
(396 * ENQUEUVE SUBROUTINE. 00037100 
397 * 00037200 
398 * ON ENTRY, REGISTER 1 CONTAINS THE ADDRESS OF THE ELEMENT TO 06037300 
ae be BE ENQUEUED. 00037400 
400 * 00037500 


AOL RK I FE A FO HE A 2 RO OC OC AE OK OO A Re CEE IE OK EK ie fs a OC CH EE OC EC RE KC I OK OK KR KKK KKK KKK 6 OO03 7600 


C00000 403 USING QELEMENT,R1 00037800 
00013C 4120 C15E 00164 404 FIFOENQI] LA R2,FIFOLHIT-DISPLFWD FAKE THE ADDR. OF A BLOCK POINTING €0037900 
000140 1832 405 FENQ2 LR R3_9R2 TO THE FIRST ON THE QUEUE. | 00038000 
000142 5822 0004 00004 4 06 L R2,DISPLFWD(R2) GET THE ADDRESS QF THE NEXT. 90038100 
000146 1222 407 LTR R2_,R2 IS THIS THE LAST IN THE QUEUE ? C00 38200 
000148 4770 C13A C0140 408 BNZ FENQ2 NOy SEARCH SOME MORE. 00038300 
90014C D203 1004 3004 00004 00004 409 MVC LINKFWRD,DISPLFWD(R3) YESs ENQUEUE THE NEW ONE. 00038400. 
000152 5613 0004 00C04 410 ST R1L,DISPLFWD(R3) 00038500 
090156 OTFE 411 BR R14 RETURN. : 00038600 
413 [eR OR I I I KI I I KK I Ia ik ak aK a kk ak ak a a a aR ico ke ok ak ake ak ak ok ak ok a ok ok ce =OOCO38 800 
414 * CCO389C0 
415 * DEQUEUE SUBROUTINE. COO39C0C 
416 * 00039100 
417 * ON RETURN, REGISTER 1 WILL CONTAIN THE ADDRESS OF THE 0603920C 
418 * DEQUEVED ELEMENT. IF THE QUEUE WAS EMPTY, OFS WILL BE 00039300 
419 * RETURNED [IN REGISTER 1. 00039400 
420 * 00039500 


42.1 ORC ROCIO IO OIC IC GIGOK OK dak gk ok ok ck zc kak ak tokek = 0039600 


900158 581C Cl62 00168 423 FIFODEQ] L R1lyFIFOLHIT FIRST ELEMENT ON QUEUE. 0C03980G 
OO015C L2hi 424 LTR R1lyR1 WAS THE QUEUE EMPTY ? C0039900 
COOL5SE O78E 425 BCR 8+R14 YES, RETURN. CO040C00 
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LOC OBJECT CODE ADDR1 ADDR2 STMT  SOQURCE STATEMENT _ FOB8APRTO 9/17/70 
494 =O OIG OCI IO IOI i i ito koa akkktokemek §00046900 

495 * 000470600 

496 * THESE ROUTINES PROCESS A SINGLE HEADED, DOUBLE THREADED, 00047100 

497 * LAST—IN-FIRST-OQUT QUEUE. 00047200 

498 * | 00047300 


499 [KOK III CI OC ok ick i oak dokok lok kkk ok tok kt 00047400 


50] 3 OKO IOI I IG a i ick dolok ick doko yok iog ak tcc 00047600 

502 * | 00047700 

503 * ENQUEUE SUBROUTINE. 00047800 

504 * 0C047900 

505 * ON ENTRY, REGISTER 1 CONTAINS THE ADDRESS OF THE ELEMENT TO 00048000 

506 * BE ADDED TO THE QUEUE. CO0C48100 

507 * 00048200 

508 3 OC ORO a ok GC a kk iook ck dok tok took ack 00048300 

90016C 5826 C19A COLAC 510 LIFTENQ2 L R2,LIFOLH2T ADDRESS OF FIRST ON QUEUE. 00648500 

ia teat a i an OC0O17CG 5010 C19A OC1AO 511 ST RlL,~LIFOLH2T ADD NEw AT TOP. OC0486CO0 

000174 1222 512 LTR R29R2 WAS THE QUEUE EMPTY ? 00048700 

OO0176 O78E 513 BCR 8yR14 YES, RETURN. . 00048 8C0 

CC0178 5C20 1004 C0004 514 ST R2,LINKFWRD NO,» ENQUEUE THE NEW QNE. CO0%48900 

COOL?C 5012 CCC8 00C08 515 ST R1lL,»DISPLBWDC(R2) OUG49CO0 

Ny O0C0O180 OTFE 516 BR R14 00049100 
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524 * OCC499C0 

575 CO IC HIG Za IG IO I I I aK ROE Ro a tok kok ta ak dakota = 9050000 
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G0C194 O78E 535 BCR ByR1i4 NO, RETURN. 00050800 
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FOO OC ICICI IICR OI SO IO IOI Ck I a RK aR ao OR a ek fe a af ofc a ak ak 
THESE ROUTINES PROCESS A DOUBLE HEADED, DOUBLE THREADED, 
PRIGRITY QUEUE. THE QUEUE [IS ORDERED ON THE BASIS OF A 

1 BYTE FIELD LOCATED IN THE "PRIORITY" FIELD, AS DESCRIBED 


BY THE DUMMY SECTIGN REPRESENTING THIS Q-ELEMENT. 


van ee ey eS 
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IK IC EI ZOO I OK Ik II III IK IOI EC ak ak a kc ofeake ak ak afc ak ak aka ak ofc ofc afk akc akc a akc ak 
RC CIC IOC ICI IO I III i tok ai ok ska kk ak kak fo ok ake dk aff ak af ak ae a a 2k ake a 
ENQUEUE SUBROUTINE 


x 
* 
* 
3 
x ON ENTRY, REGISTER 1 ADDRESSES THE ELEMENT TO BE ADDED. 
* 

FOI CI I ORI ICRI Ii i a a ICI I a I IR IOI I i 2k a a a a ae ai a a a ae aa 


PRTYENQ2 LA R2_yPRTY2H2T-DISPLFWD FAKE A BLOCK POINTING TO HEAD. 


PRTYLR LR R3,R2 ADDRS. OF NTH AND (N—-LITH ON Q. 
L R2,DISPLFWD(R2) 
LTR R2,R2 IS THIS LAST ON Q ? 
BM PRTYSTM YES, STORE THE POINTERS. 
CLC PRTY,O(R2) NO, TEST FOR PRIORITY SEQUENCE. 
BL PRTYLR NOT THE RIGHT SPOT, SEARCH. 
PRTYSTM STM R2_9R3y,LINKEWRD ENQUEUE THIS ONE. 
ST Rl,»DISPLFWD(R3) BETWEEN THE RIGHT 
ST Rl,yDISPLBWDU(R2) TWO ELEMENTS. 
BR R14 RETURN. 
ek ote oe rie ofc ok ak ic fe ak ak ekg ac a 2K ic fe ak af of ot oe ie eo aie ae ote kc oe RC a ae oe a oe a a ate ae ae ote afc ote ake ote abe fe afc a fe ate ae oi ofc ake ak ate ake oe 2c af afk ae 2 ake ok 
x DEQUEUE SUBROUTINE. 
* REGISTER 1 WILL CONTAIN AN ADDRESS OF DEQUEUED ELEMENT OR 
* ZEROS ON RETURN. 
x 
oe oie OK oe i ok ok of ak ok aK oi Xe a ac 2k 2 kc oe ke ic a fe 2 a a a ke aK ok ake ok ok a oi aK fe ok ok of ak ok ok ak akc ak ote kc ak fe ok ok oe ok ac ok ok ofc kc ok ok ok ica ok ok ok 
PRTYDEQ2 L R1l,PRTY2H2T ADDR. OF TOP OF QUEUE. 
LTR Rl RL IS QUEUE EMPTY ? 
BNM PRTYDQO1 NO, CONTINUE. 
SR RL,RI YES, SET R1 TO ZERO. 
BR R14 AND RETURN. 
PRTYDQOL LM R2eF3yLINKEWRD GET ADDRESSES OF ELEMENTS TO 
ST R2 sDISPLFWD(R3) EITHER SIDE OF THIS ONE. 
ST R3sDISPLBWD(R2) AND REMOVE THIS ONE FROM QUEUE. 
BR R14 RETURN. 
PRTY2H2T DS OF 
DC X*808 
DC AL3 (PRTY2H2T~DISPLFEWD) 
DC X' got 
DC AL3(PRTY2H2T—DISPLFWD) 
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PRIORITY QUEUE, 


LOC OBJECT CODE 


COOLFO O0000000 


DOUBLE HEADED, DOUBLE THREADED. 
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678 
679 
6.80 
681 
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683 
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6 93 
694 
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699 
100 
701 
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WORKSHEET FOR THE DOUBLE HEADED, DOUBLE THREADED PRIORITY Q. 


AFTER *BLOCK1* AND "*BLOCK2* HAVE BEEN ENQUEUED, THE QUEUE 
LOOKS LIKE THIS: 


"PRTY2H2T 
$———~---- + 
l i 
Sa + 
i i 
toa + 


AFTER "BLOCK3" HAS BEEN ENQUEUVED, THE QUEUE LOOKS LIKE THIS: 


*"PRTY2H2T! 


{ i 
+ ew we oe ow we + 
{ i 
y ekeuutemntnenetenedmn Snemitanetioned + 


AFTER AN ELEMENT HAS BEEN DEUEUED, THE QUEUE LOOKS LIKE THIS: 
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$e we ee ee + 
| { 
+ ie «tb <ai> em a ae + 
| l 
tener ren + 


JOC OCI CCR IGIOR III GI IO I IO IG I i i ioiiak ik gai doa koi dak i kok aca ia ak 
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0066 

0624 
0089 
0642 
0089 
0625 

0623 
0619 0640 
0108 0109 
0058 0061 
0068 
O1ll 

C056 
0063 OC070 
0627 0628 
0061 0063 
0062 0066 
0019 0020 
0019 0023 
OOlS .OuU3zZ 
0644 0648 
0022 0023 
0404 0405 
0534 0534 
0405 0409 
Y056 C064 
CO5¢ 0081 
0058 
0059 0068 
0060 
0022 

0081 


CROSS~REFERENCE 


0078 OQOO091 

0091 

0091 

0534 0628 0647 
0409 0410 0619 
0426 

0527 0531 

0426 0514 0530 
0652 0654 

0403 

0070 0073 0073 
0640 0641 0641 
0068 

0021 0083 

C024 0625 C026 
0065 Q0f2 0083 
C024 0025 0029 
0406 0406 O4C7 
9619 C620 0621 
C410 0620 0626 
OO71 CO8l 


0621 


0626 


0403 
0643 


0026 
0054 


UO3C 
0407 
0621 
v62T 


0627 


0645 


0410 
0643 


0082 
0411 


OG64 
0510 
0622 
0645 


0646 


0423 


C082 
0425 


0065 
0512 
0622 
0646 


0652 


0424 


0083 
0427 


CCH 
0512 
0624 
0647 


0654 


0424 


0513 


0072 
C514 
0626 


0511 


0516 


0515 
0628 


O515 


0529 


0530 
0645 


0527 


C533 


0531 
0646 
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0528 


0535 


0532 
0647 
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0528 


0629 


0532 


LZe 


STMT ERROR CODE 


DIAGNOSTICS 


MESSAGE 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 


*STATISTICS* 


SOURCE RECORDS (SYSIN) = 619 SOURCE RECORDS (SYSLIB) = 


*QOPTIONS IN EFFECT LIST: NODECK, LOAD, NORENT, XREF, NQTEST, ALGN, OS, LINECNT 
779 PRINTED LINES . 
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9/17/70 


cle 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARTABLE OPTIONS USED -—) SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
TEWOO0O ENTRY UTILITY . 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
QUE UE SUP OG 1F4 
UTILITY 1F8 5A0 
PRINT 25A PCHKRETN 4B6 

ENTRY ADDRESS 1F8 

TOTAL LENGTH 798 
*xXGO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


ELZ 


Q2Q0QQQ0QQQ 
QQQQQQQdQQQY 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ QQ 
QQ QQ QQ 
QQ QQQQ 
QQQQQQQLQAQ 


QQQUQAQAQ QQ 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UUUUUUUUUUUU 
UUUUUUUUUU 


EFREEFFEFFFF 


BEEEREEEEEEEE 


EEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
EGEEEEEEEEEE 
EEEEEEEEEEEE 


UU 
UU 


Wu 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UUUUUUUUUU 


UUUUUUUUUU 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 

99 

99 99 
999999999999 
9999999999 


FEFFFEEFFEEF 
PPEEEEEREEEEE 
EE 

EE 

EE 

EEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
EEEEEEEEEEEE 
EEEEEEEEEEEE 


TUTTTTTITTTT 
PETTY Trire 
TT 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


LLILILIII1 
L111111111 


He HA KR KK KH a a a a Re ae a a a a ea RO A A 2 RC I CO 2 ee he A AE 2 Me he He fe he a OR 2 he a a ae a 2 i A A Oe A EH EH HH HE He HE He He A He He HH ME He He HE EH Me HH He OE ee 


EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL TYPE ID ADDR LENGTH LD ID 13.02 9/17/70 


QUEVETAL SD 01 000000 00013C 


vLe 


LOC 
900000 


900000 
000001 
009002 
000003 
CO0004 
000C05 
906006 
O0I007 
000008 
COS009 
CICCOA 
COC00B 
OO000C 
COO00D 
COOOOE 
QQ000F 
COCO00 
000004 
000006 
000006 
OOO00A 
OOOOQO0E 
n 000012 
900014 


GZ 


OBJECT CODE 


9CEC 
05C0 


41FC 
50FD 
50DF 
18DF 
D703 


DCOC 


CUDE 
0008 
0004 


ADDR1 ADDR2 


OO000C 


OOOE4 
00008 
00C04 


DOU8 DOGG8 C0008 00008 


STMT SGURCE STATEMENT 


QUEVETAL CSECT 


IO ON OUMNH WN 
v2) 
NO 


COPY 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


XC 


MHMBEGIN 


OANA U PWN MO 


R14,R12,12(R13) 


R12,0 
* R12 


R15+SAVEAREA 
R15,8(R13) 

R13 ,4¢R15) 
R13,R15 
8(4,R13),8(R13) 


SAVE THE CALLER*S REGISTERS 
ESTABLISH PROGRAM BASE 

LET THE ASSEMBLER KNOW. 
ADDRESS OF MY SAVE AREA 
BACKWARD CHAIN 


FORWARD CHAIN 


ESTABLISH MY SAVE AREA 
TERMINATE THE FORWARD CHAIN 


END GF STANDARD ENTRY LINKAGE CONVENTIONS. 


FO8APRTO 
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S9/1TSTO 


00000100 
00000200 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
06001500 
0C001600 
00001700 
00001800 


00001900 


00002000 
00002100 
00002200 
00002400 
06002500 
00002600 
00002700 
000028C0 
00002900 
00003000 
00003100 
00003200 


91Z 


QUEUE PRJUCESSING TRGUBLE ANALYSIS PROBLEM NUMBER 1. 


Lac 


OBJECT CODE ADDR1L ADDR2 STMT 


SOURCE STATEMENT FO8APRT7O 
*K BE A eK OC CE OK EK 3 KO AC a Eo i oe i A oe OK Eo AC ae IE OK ak 
* * QUEUE PROCESSING TROUBLE ANALYSIS BUG lL. * 
* K eee eae a x 
* ERK AE AE RE AC CK CE RES AE EO A A EAE A EK CA RE EK OK AC EK OK OK KC KE KK 
PLS SSeS SSeS SLL SSS SL SS SSL SSL SSS SPSS SSCL SSCS SL SS SSCS SS SSS SSS CSS SCS LL SS SS Ss 
* 
* THIS ROUTINE IS DESIGNED TO PROCESS A DOUBLE HEADED, SINGLE 
* THREADED, FIFO QUEUE. THE ENQUEUE ROUTINE WILL ENQUEUE THE 
* BLOCK WHGSE ADDRESS IS PASSED IN REGISTER ONE TO THE BOTTOM 
* OF THE QUEUE. THE DEQUEUE ROUTINE WILL DEQUEUE THE BLOCK AT 
x THE TOP GF THE LIST AND RETURN IT*S ADDRESS IN REGISTER ly 
* UNLESS THE QUEUE WAS EMPTY, IN WHICH CASE, A NEGATIVE VALUE 
* WILL BE RETURNED IN REGISTER l. 
* 
Se ee Sf SSS eC SLL ESL SS SSS SS SSL LSS SS SS CSS SLL SSL CLS SL SSS CLS SS SL eee SSS 2 2 22 25 23 
3 2 2 ok ac ak ate ake ie a eK a aK OK a KK OK OK aK aK a oe oe ok aK a ok i oe a oo oe a KK oe ok a oo oko ai KK oe ic KO ok KK ee 2K ok 
* 
* FOR SOME REASON GR OTHER, THE PROGRAM DOESN*T SEEM TO BE 
* WORKING. YOU ARE TO FIND OUT WHERE THE FAILURE IS BEING 
* CAUSED AND TO SUGGEST A CODING CHANGE THAT WILL CAUSE THE 
* PROGRAM TO WORK IN THE MANNER INTENDED. TO SIMPLIFY YOUR 
* TASK, READ THE PROLOGUE OF THE TEST CASE ROUTINE, SO THAT 
x YOU WILL UNDERSTAND THE SEQUENCE OF EVENTS TAKING PLACE. 
* 
* GOOD LUCK.... 
HE A IK IK OK AE IE OK AEE KC OE OO 2s OK CS CK EO OK A a EE A OIE IE EE IE EK OE IE AE OK EAE EO OK AS OIE OK IKK IS I OE IK KE A AE OK HE 2K 
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00000400 
00000500 
00000600 
00000700 


00000900 
O0G001000 
00001100 
00001200 
00001300 
00001400 
00001590 
00001600 
00001700 
CQ001800 
00001900 


00002100 
00002200 
00002300 
00002400 
00002500 
O00O2600 
00002700 
00002800 
00002900 
00003000 
00003100 
G0003200 


QUEUE PROCESSING TROUBLE ANALYSIS PROBLEM NUMBER 1. PAGE 3 

LOC GBJECT CODE ADDR1 ADDR2 STMT SGURCE STATEMENT FO8SAPRT0O 9/17/70 
59 * BIOORG GIO IOI Ia a aiakaiok 00003400 

60 * * TEST CASE CODE FOR THE FIFO QUEUE. * 00003500 

61 x Ko man ee ---- --- --- ---- ------ * 00003600 

62 * FOC I OI i a a acai ak ak ak teat ak a aie ae ake ca 2 ak ak 00603700 


C4 RRA A A A EE I AE A OR RE RC OK CE OK OK EK OE OK OK OR KK KK OK KK KEK KKKKKKK OOOOZ9I00 


65 * 00004000 

66 * THIS ROUTINE CONTROLS THE OPERATIONS TAKING PLACE ON THE 00004100 

67 * FIFO QUEUE. IT WILL ENQUEUE GNE BLOCK, DEQUEUE IT, 00004260 

68 * ENQUEUE THREE MORE, THEN DEQUEUE ONE. IF ALL GOES WELL, 00004300 

69 * A DUMP WILL BE TAKEN AT LOCATION "GOODENUF*. ANY OTHER 00004400 

70 * DUMP INDICATES AN ERROR OF SOME TYPE HAS OCCURRED. IF THE 00004500 

TL DUMP AT 'GGODENUF' DGES OCCUR, CHECK THE CONTENTS OF THE 00004600 

72 * QUEUE FOR CORRECT GRDER;, THAT SHOULD NOT HAPPEN..ee. | 00004700. 

73 * REMEMBER, THIS IS A TROUBLE ANALYSIS PROBLEMscsscceseee 00004800 

74 * 00004900 

TS RAR SRE RK I i Oe OK EE OK A I KE CE AE EK OO AE OK A OK AE OK OK OK KK KK KKK KKK OOOOSOOND 

OOO0LA 4140 COS5E 00064 77 LA R4,BLOCK1 ADDR OF FIRST BLOCK. 00005200 

OOOO1LE 9857 C12A 06130 78 LM R5¢R7+=A(OPLIST,4,O0PLSTND-1) 00005300 

000022 1814 79 TESTLOOP LR R1,R4 ADDR. OF BLOCK TO BE ENQUEUED. 00005400 

000024 58F5 0000 00000 80 L R15,0(R5) ADDR. OF ENQ/DEQ ROUTINE. | 00005500 

N 000028 O5EF 81 BALR R14,;R15 | - LINK TO THE ROUTINE. 00005600 

~ 90002A 1211 82 LTR R1yRL DEQUEUE TEST. DID I GET A BLOCK BACK? 00005700 

00002C 47D0 CO3E 00044 83 BNP  TOOBAD NO, ABORT. 00005800 

000030 4144 00CC 0000C 84 LA R4,12(R4) ADDR. OF NEXT BLOCK 00005900 

000034 8756 CO1C 00022 85 BXLE R5,R6,TESTLOOP REPEAT TO END OF LIST. 00006000 

000038 0000 86 GOODENUF DC HOF 00006100 

00003A 58DD 0004 00004 87 L R13+4(R13) 00006200 

00003E 98EC DOOC 0000C 88 LM R14,R12,12(R13) 00006300 

000042 O7FE 89 BR R14 00006400 

000044 0001 91 TOOBAD  0C Hilt 00006600 

000046 47FO C034 0003A 92 B GOODENUF #2 00006700 
30004A 0000 

90004C O00000ACCOOUCOBC 94 OPLIST DC ALENQ, DEQ, ENQ,ENQ,ENQy DEQ) 00006900 

000064 95 OPLSTND EQU- * | 00007000 

000064 0000000000000000 96 BLOCK1 OC 3FtO8 00007100 

000070 97 DS 3F FAKE BLOCK FOR DEQUEUE. 00007200 

O00007C 000000000600CG000 98 BLOCK2 OC 3F8O! 00007300 

000088 000000C00CbLC000 99 BLOCK3  0C 3FtO8 00007400 


0900094 90000000000UC0000 100 BLOCK4 DC a0 00007500 


MOK XK AL Ge KK He KK KE 


DEQ 


He KK KAD RK KK KK 


ENQ 


HR AK A KK RK KK 


FIFOTEST 


tt tt of % FH 4 + HH 
+ % * + +* * 
4 % + + + * 
+ % + * * * 
# # # + + 
* ° * . + . 
* 2 + %* 2 % * 2 * 
* we % LCL * aw + 
* D * OD * D * 
% KF # % hm + 3% be 
iW Wi WwW Ww + WU tu + 
I we a tf Ww Ow + 
4 + + * % + 
*% 5 td * + * + 
* + + 3 er 4 
% % % % + + 
te 4 + tH % $ 3 tH 
AN “A A 
{ ! | 
} | { 
| { | 
| | { 
| | ! 
VY) | | | 
Lu | O } { 
~ = 
MH 3t 4 Me tse Hh Mb te He % % eH 3 He 3 tH 
* % + #6 “as %* O2 * 
Lu) * % be a He Oo % % FO 
= * * O24 + ° ° elu © as * 
> * * Ui e + %+ > # %¥rr # W % owe * 
Wwe + + Ms ° aaa - - eo ee » W 4% Ula & 
Mw + * YWYWD # * Wa Hz % Oo > % Rl es + 
wae + 4% Wijus ° BS Bo ° e MZuU e %* Zew + 
On >%t xrWwD # > % be LL % >+# m4 OD Cee LUD Ot 
— 4 *x* OA GD ¥* e ° ° XZ Ww e * mouWw + 
Z2> +t OF % + Ww * t erFD # + aW>D # 
“rr + ao ainz WO mm e a Wey » uJ a 
Or * % xed 3% Ul HUNT * OF * 
uJ * %*% eR * * De emt %* oo” *% 
ea) * 3 WU % OH % 4% % We + 
* %*% © % ee ee % Nw % 
HHH HHEHHH HF + ¥ HH Ht HH Ht 4 
HHH 4 Fe tH 36 $e IF St Be te tt HE 3 4e H te 3¢ 4 
a + . + % 3 + + 
uw + % WM + + Wn + 3 + 
> + % fad ag % het + + 4 
uw 3 % Ow % te ZL + *% * 
> -« % Ze % % WOr a * e 6% 
Cus + MW at * <t + * 2 
22 +* % Oa 4 Ho-O + + % a * 
Liner = 3 >t WO * >t Zeu + >* D * 
3% UL sis %RuU a %+ bk %* 
Zz=> * mo woe + MZ=zZwo + eo Ww 
mm am WwW % Worsriti a + mo we * 
oar %# WNW a %#O WwW % + + 
uw + * D> + + AWD % + * 
faa) + * cel * + a 3 * *% 
+ %* IM + + cg * + 
% 4 H 46 Fe 3b 3t 4 Ht 3 $e He HE 36 3t H % 1 
3% 3 HH 
at +t 3 * 
as a % * 
% ° 4% 3 ° 6% 
%* QA + * Qa + 
% 2 + * = 
+ D # + D #* 
* QO * © 
x * + + 
% qt x < + 
N stg N + 
O wi * Ws li 
* Mw + uo% MSM“ # 
x at + > * <t 
O + Fm Zz * — 
<a %* x lub 4 + 
faa) at 46 4¢ (an) i 36 4 
we) ran oO A 
om | © | 
be { a) ' 
{ | 
| | 
| | 
{ Y | 
tT | Lut | 
2 > 
4H 3 3 3 Ge FE HE ge 4 3 Me He HEE te * % 
- +t 3 3 % yu % ee ee 
“” + rT iis * 2D a ot x 
Uy + % ONUW 4 % of uw 4% . ° ° ° 
- © + % Ze % DU 4 et O eH MN + % 
ui + ois eat Bt 3 | TDU x eth e W e CQ) e 
OO + %* acdtwo % %ruUS Ht * DOA + > % WO *% 
woo + 3 UL es % st f ULI TD bet 36 e Caw ° e as. e 
mo + >i Wer >e + hk + > + Siw x > Te) oe cig 
UL 3 e+ yen + Fa! OWwWD*# e ene) e e me LJ ° 
ul a Uru 4% ent LL HE pe OO 4 oa wo % a > % 
be) oOo Wee WO | eH ce OD Wi ° 
eat * D + axrxrn tyao % x ow HL * 
Im * * OW * OX Glan + ° ° e e 
- # % TZ0 + Ox ze *# % eee 
”) * + au + ew) + Ar) oe 
3 4 3 Fe 4 46 3 te ja HE HE HE IE HE OH He 4 * 
WM AN oO 
LL { zi 
b | | 
+ + 


278 


622 


Lt OC 


C00000 


COCOAO 
OOG0A4 
D000A8 
COOOAE 
0000B2 
OC00B6 
COOOBA 


CO008C 
CQ00C 0 
QOD0C 2 
0090C4 
0000C8 
OOOOCE 
0000D0 
CQOQ0D6 


90C0D8 
9000008 
CO0O0D9 
COCODC 
COOODD 
COO0EO 
OGO0OE4 


C00000 
00C090 
000004 


C00130 


eo eee ete 


QUEUE PROCESSING TROUBLE ANALYSIS PROBLEM NUMBER 1. 


OBJECT CODE ADDR1 


502C 
5820 
D203 
5012 
5010 
5820 
O7FE 


CGDA 
CoDé 
1000 
00006 
COD6 
CCBA 


2600 00000 


5816 
1211 
OT4E 
DoL0 
D203 
O7CE 
D293 
OTFE 


COD2 


CCD6 


COoD2 icGCG 000D8 


COD6 1G00 90GDC 


FF 
000008 
FF 
0000D8 


00000G4CT OC CGC00G4 


ADDR2 


QOQDJED 
QOO0DC 
C0000 
00000 
QGODC 
OOOEO 


COUD8 


000DC 
00000 


00006 


STMT 


125 
126 
127 
128 
129 
130 
131 
P32 
~133 


135 
136 
137 
138 
139 
140 
141 


143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 


161 
162 
163 
164 
165 
166 
167 


169 
170 
171 
LT2 
173 


FO8APR70 


LESS SECC CLSOCSCECCCCS SS SCOCOCCCC.S§ £LCCCCCOCCCSCS SC CeCe. CS . £2 2 22 2 2 2 2 2 8 2 22 SS 


THE BOTTOM OF THE QUEUE ANY BLOCK WHOSE 


FE AE AE REE AE AE OK A ACK ARK 2 ik A A 2 a Re A Ra A A i CO KE AR OK OK A aK KK OK a EK OK KK 


SAVE REGISTER TC BE USED. 


ADDR. 


OF BOTTOM OF QUEUE. 


ENQUEVE THIS ONE AT THE BOTTOM. 
ADD LINK FIELD. 

MAKE THE NEW ONE LAST IN QUEUE. 
RESTORE REGISTER USED. 


RETURN. 


FOO IC ok qk i kk 2k kok go kK ak ok oko a ake ate ake a ok ak ak akc akc ak ok as ok 


IN REGISTER 1 THE ADDRESS OF THE BLOCK THAT 
A NEGATIVE VALUE IS KETURNED 


SOURCE STATEMENT 
* 
* 
* ENQUEUE ROUTINE. 
* 
* WILL ENQUEUE GON 
* ADDRESS IS PASSED IT IN REGISTER ONE. 
oe 
x IK OK 
USING BLOCK,R1L 
ENQ ST R2,yTEMPSAVE 
L R2, QUEVEPTR+4 
MVC LINKFLD,O(R2) 
ST R1l,O(R2) 
ST Rl »yQUEUEPTR+4 
L R2,TEMPSAVE 
BCR 15,R14 
* 
* 
* DEQUEUE ROUTINE. 
* 
* WILL RETURN 
# WAS AT THE TOP OF THE QUEUE. 
* IF THE QUEUE IS EMPTY GN ENTRY. 
* 
HE DK OE IC AK OK OK ie aC OI RK OK Oe BIE AS KK OK ie OC OK OK Oe KC ik KK OK IK KK OK 
DEQ L R1l,yQUEUEPTR 
LTR R1,R1 
BCR 4_,R14 
CL Rl,yQUEUEPTR+t4 
MVC QUEUEPTR,yLINKFLD 
BCR 12,R14 
MVC QUEUEPTR+4,yLINKFLD 
BCR 15,R14 
QUEUEPTR DS OF 
DC X*#FRE 
DC AL3(QUEUEPTR) 
DC X'FFS 
DC AL3{QUEUEPTR) 
TEMPSAVE DS F 
SAVEAREA DS 18F 
BLOCK DSECT 
LINKFLD ODS F 
PADDING DS 2F 
END 
=A(OPLIST»4,O0PLSTND 


COR OK IO Ra a 2 ak ako a ok ok ok oie ok oe ak ok ak ook ak ak ok 
ADDR. OF FIRST BLOCK ON THE QUEUE. 
IS THE QUEUE EMPTY ? 
YES, RETURN. 
NO, [IS THIS THE LAST ONE ON Q ? 
DEQUEUE FIRST FROM TOP. 
NO; RETURN. 
YES, RE~-INITIALIZE THE EMPTY QUEUE. 
AND RETURN. 
-1) 
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00010000 
00010100 
00010200 
G0010300 
00010400 
00010500 
00010600 
0C010700 
00010800 


00011000 
00011100 
00011200 
00011300 
06011400 
00011500 
00G1160C 


00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
09012 500 
00012600 
00012700 
00012890 
00012900 
00013000 
00013100 
00013200 
00013300 
00013400 


00013600 
00013700 
00013800 
00013900. 
00014000 
00014100 
00014200 


00014400 
00014500 
00014606 
00014700 


08Z 


POS.ID 


REL.ID 


FLAGS 


OC 
OC 


RELOCATION DICTIONARY PAGE 1 


ADDRESS 9/17/70 


O09904C 
00C050 
000054 
000058 
00005C 
00C060 
O000D9 
VOOODD 
000130 
000138 


L8z 


SYMBOL 


GOODE NUF 
LINKFLD 


OPLIST 


OPLSTND 
PADDING 
QUEUEPTR 
QUEUETAL 


RI 


SAVEAREA 
TEMPS AVE 
TESTLOOP 


TOONBAD 


LEN 


00001 
00004 
00004 
0C004 
C0004 
C0004 
00004 
00002 
00004 
00004 
00001 
C0004 
00004 
C0001 
00001 
00001 
COCOl 
00001 
00001 
C0001 
00001 
CoCcOl 
Co001 
00001 
00001 
009001 
00001 
00001 
00001 
Q0001 
C0004 
C0004 
00002 
00002 


VALUE 


CO00G0O0 
000064 
COCcOTC 
000C88 
000094 
OOGOBC 
OOGOAG 
000038 
COGOGO 
OOCC4C 
000064 
CCCCO4 
GOCOD8 


6cOC0O 


000000 
Ooud01 


OCCOOA 


OCCGOGOB 
OCOOO0C 
000CG0D 
OOOCOE 
GOOCOF 
OOGC02 
000C03 
GOCO04 
000005 
uGQ006 
000007 
JO0GC08 
0OCCG9 
OOCOES 
OQOOEO 
OG0U22 
0GC044 


DEFN 


00169 
00096 
00098 
C0099 
C0100 
06152 
06135 
00086 
OO170 
6G094 
0G095 
00171 
00161 
00001 
00003 
I0C04 
00013 
00014 
00015 
00C16 
00017 
00018 
00005 
00006 
OOCOT 
v0008 
0G009 
OO91C 
OcOl1lL 
OGO012 
OG167 
00166 
OGOQ7T9 
00091 


REFERENCES 
0133 
0077 
6094 0094 
0094 0094 
0092 
0137 0156 
0078 0173. 
0078 0O173— 
0136 0139 
0079 C082 
0019 0020 
0019 0023 
0019 0081 
0022 0023 
0135 0136 
0077 90079 
0078 O0c80 
0085 
0078 
0022 
(0135 0140 
0085 
0083 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 


xSTATISTICS* 
*OPTIONS IN EFFECTx 
229 PRINTED LINES 


SOURCE RECORDS CSYSIN) 


LIST, 


NODECK, 


LOAD, 


CROSS~REFERENCE 


0094 0094 
0158 
0152 0155 0156 0158 0163 0165 
0082 6133 0138 0139 O152 0153 0153 
0021 0C88 
0024 O0U25 0026 0026 0087 O87 0088 
0088 C089 0141 0154 O157T 0159 
0024 C6025 0080 0081 
0137 0138 0146 
0084 C084 
0085 
147 SOURCE RECORDS (SYSLIB} 25 
NORENT, XREF, NOTEST, ALGNs OSs LINECNT = 


0155 


55 
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F44—-LEVEL LINKAGE EDITGR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VARLABLE OPTIONS USED - SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
1EWOOQO ENTRY UTILITY | 
MODULE MAP 
| CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME 
QUEUETAL 00 13C 
UTILITY Aa 5A0 
PRINT 1A2 PCHKRETN 3FE 
ENTRY ADDRESS 140 
TOTAL LENGTH 6EO 
#4G0 DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


282 


LOCATION 


NAME 


LOCATION 


£82 


F.P. 


REGS. 0-7 


REGS 8-15 


000000 
000020 
000040 
000060 


010920 
010940 
01D960 
01D980 
O1D9A0 
01D9C0 
OLD9EC 
O1DA90 
OLDA20 
O1DA40 
C1DA60 


C1EO20 


REGS. 


40.FOFSF5 


FFFFFF2E 
OOOLAEEC 


00000000 
00040003 
BOO41EFS8 
00040000 


9OECDOOC 
C12A1814 
DOOCCTFE 
O9001D9DC 
00000060 
5O020C ODA 
L211074E 
QOOLAEFC 
B20EGT00 
D2030048 
9O0ECDCOC 


4AQCOBLE 


00000000 
5O0006A3E 
O0COQ0G000 
OGOO07BC8 


O5CO41FO 
5 8F50000 
GOG147F0 
QO001D99C 
00000000 
582C0C0D6 
5510C0D6 
98BDEO020 
SOG38FFA 
C5724550 
O5COC4FO 


40050000 


F2404000 


00000000 
FFC50001 
BO00014D0 
00040000 


CODE50FD 
O5EFI211 
C 0340000 
066000000 
00G1D9B4 
D2031000 
D203C0D2 
O0029F 68 
QO0O3C3BE 
C27TAD203 
07004110 


47FO95C6 


00.090000 O0000000 


FFOLDSF8 GOOLAEFC 00000000 
0G000000 OOO1AFCB 00000000 


00000000 
5FO1D966 
00005920 
00097588 


000850DF 
47DOCO3E 
0001D9C0 
00000000 
00000000 
20005012 
LOOOO7CE 
QO000000 
9903D3BE 
00480576 
CO100511 


48609BEE 


06.000000 020000000 


00.000000 00000000 


0001D9CO0 00010980 00000004 00010983 
6F01D926 OOOLDA0D4 6FO1LDI4A OOODLDIDC 


00010920 
QQQOFFOO 
O2Z2BFAFA4 
00000000 


~ 00041 8DF 


4144000C 
0001D9D0C 
16021702 
09000000 
00005010 
D203C0D6 
CFFA48A0 
DTC40C79 
0001D96C 
OFCICBO4 


8A600001 


00000000 
00000000 
Q0000996C 
00012D10 


D703D008 
87T56CO1C 
C001D9C0 
50000232 
FFO1D9F8 
COD65820 
LOOOO7FE 
D2825880 
00700202 
00000004 
TFFFOAOE 


4770969E 


FFO60000 
FFC50231 
C004 0000 
00040000 


D0084140 
000058DD 
0001D9CO0 
O7FESOBD 
00000000 
CODAOTFE 
FFOLDOFS8 
C5D640A8 
OO75D60E 
00010983 
58B00010 


48609C 26 


80000000 
8FOLDAT8 
00007498 
OOOCT51A 


COSE9857 
OOO498EC 
O0001D9CO0 
0001D9A8 
00000000 
5810C0D2 
O0O01D9B4 
OOU047FO 
47FOB20E 
41300007 
9LLOBOT4 


41660001 


Oe) ave: ae Gala e ie bk eee WAS Meee ewes eee 
Mg ete ss 6 Oe SE eae a eee eS OSS we Ce eee ee 
Tg SSO aie eee el eee SG eee 06 66-6 6046 
% 


oe ee eee ge a ee ee ae eee ar ee ae ee eee 


Sena 
Ae gee 9 wale ane Ww ca Seta eo ele were a SUE eee eee 
Hg See ole 6 6 oe ee hh wee Ne ees oe Rees Re 


ORS eRe Sw SA wre ee Oe Ki ee ewe eRe 


6 6g te 6 ae Obie 00 e666 ee wer © wleleces 


ere Te eer ee se ee ee ee ee es ee ee ee 


a eee ew Kee ed’ ww we ot 6 aw oe oe a RO 


Kewcec ec eDKe Ke weeK se ee ove e eRBLLRO* 
eee OF 
Keowee ccccceeCes eh oP ocee eKoe ee e0e eX 
EK eee Le ee BeKo we eEe eo eReeeee ee Reece e® 


A 66 es G68 AO S..0 @, wi ee Bb eae RS eG aS OS Sa we oe 


t st ot ot 


Te i ge baa ele 6 SS Ole eee ee SEU 


Ke eee Pre her. ee eee ee ee eee ee ee en 


eH He RC AG a a a he Ho a he af a 2 2 i 2h ee RC eR HE I I Fe He eA He fe oe He Be Re fe He ah oe He he a Rc ae eee ae he ee 2 A i Re EE RC RE a A Re a He i he He He Be He He He ee EH He he He Me He He He He eH A KK IK 


v87z 


CQQGQQQQQQA 
QQQQQQAQQAAY 
QQ QQ 
2Q QQ 
QQ QQ 
QQ QQ 
Q9 QQ. 
QQ QQ QQ 
QQ QQ QQ 
QQ QQQQ 
QQQAQQQQAAD 


QQQWQQQQ AQ 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
YUUUUUUUUUUU 
UUYUUUU UU 


EEEEEEEEEEEE 
EEEEEEEEEEEE 
EE 

EE 

EE 

EEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
FEEEEEEEEEEE 
EEEEEEEEEEEE 


UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 


UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 


UUUUUUUUUUUU 


U 


UYUUUUUUUUU 


9999999999 
999999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 

99 

99 

99 99 

999999999999 
999999°999 


EEEEEEEEEEEE 
EEEEEEEEEEEE 
EE 

EE 

EE 

EEEEEEEE 
EEEEEEEE 

EE 

EE 

EE 
EEEEEEEEEEEE 
EEEEEEEEEEEE 


TUTTTTTTtrTty 
TUTTI 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 


AAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 
AA AA 
AA AA 
AA AA 
AA AA 


2222222222 
222222222222 
22 22 

22 
22 
22 


22 
22 
22 
222222222222 
222222222222 


He ake ae aK CK oC a fe aK ae ae ak akc age ae afc ake afc ake oi of a 2 akc Se ae ae he a 2 oe a Ke eo he he AE He a he He Hee Ae Be he 2 2 He ae ee He A he He a 2 2c OK he ae 2 he ie He A A CO A OR CS IC A KE KK aK 


S82 


SYMBOL 


QUEUETA2 


TYPE ID ADDR 


LENGTH LD 


SD O01 000000 O0C0O1T4 


1D 


EXTERNAL SYMBOL DICTIONARY 


13.03 
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LOC 
C9000 


000000 
000001 
000002 
000003 
C0004 
000005 
000006 
000007 
000008 
000099 
OOCOCOA 
COOCOB 
O0000C 
SJ0000D 
DOOD0E 
OCOOOF 
600009 


OBJECT CODE 


9OEC 
05C0 


41FO 
50FD 
5 CDF 
18DF 
D703 


DCOC 


C1lA 
COC8 
O00G4 


ADDR1 ADDR2 


OOO0C 


C0120 
00008 
00004 


DOO8B DCCs 00008 00008 


STMT SOURCE STATEMENT 


QUEVETA2 CSECT 


OO ann Pp WA we 
75) 
N 


COPY 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


MHMBEGIN 


OMNOMUF WN O 


R1L4e¢R12,12(R13) 
R12,0 

* R12 
R154SAVEAREA 
R15,8(R13) 
R13,4(R15) 
R13,R15 
8(4,R13),8(R13) 


FOBAPRTO 


SAVE THE CALLER®S REGISTERS 
ESTABLISH PROGRAM BASE 

LET THE ASSEMBLER KNOW. 
ADDRESS OF MY SAVE AREA 
BACKWARD CHAIN 

FORWARD CHAIN 

ESTABLISH MY SAVE AREA 
TERMINATE THE FORWARD CHAIN 


END QF STANDARD ENTRY LINKAGE CONVENTIONS. 
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00000100 
00000200 
00000 700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
06001400 
00001500 
00001609 
00001700 
00001890 
G0001900 
00002000 
CO000219C 
00002200 
00002400 
00002500 
0c002600 
G00C02700 
00002800 
00002900 
00003000 
00003100 
C0003200 


L82 


LOC 


QUEUE PROCESSING TROUBLE ANALYSIS PROBLEM NUMBER 2. 


OBJECT CODE 


ADDR1 ADDR2 


STMT 


HHH OH 


HE AR HRA AE IK Ae A HE IC BE EC CC EC OK RE I OA ee A AE A RC EI AE AE OE AE OOK OE OO I OK KO I EE OE KK OK KK 


* 
* 
* 
* 
* 
* 
x 
* 
* 
* 


3 aK 2 Re a a RE ER I OO OK RI I EC RC RK a RK OK XK a OR Co a aK KE aK 


* 
oe 
* 
* 
* 
* 
* 
* 
* 
* 
* 


SGURCE STATEMENT 


THIS ROUTINE IS DESIGNED TO 


THREADED, 


FO8APR7O 


FR AK AE ME A HE A OK AE A KK I EK OK OK KK 


* QUEUE PROCESSING T/A BUG NUMBE 


R2e * 


HH RC 2 A RC a a FE a A A A CE 2 I A a AR A I IK OK 


PROCESS A SINGLE HEADED, 


LIFO QUEVE. THE ENQUEUE ROUTINE WILL ENQUEU 


SINGLE 
E THE 


BLOCK WHOSE ADDRESS IS PASSED IN REGISTER ONE TO THE TOP OF 


THE QUEVE. THE DEQUEVE ROUTINE WILL DEQUEUE THE BLOCK AT 


THE TOP OF THE QUEUE, AND RETURN IT*S ADDRESS IN REGISTER 


ON RETURN. 


IT LOOKS LIKE THE PROGRAM 


IS ACTING UP TODAY. YOU ARE 


REQUESTED TO FIND OUT WHERE THE FAILURE [S OCCURRING 
AND TO MAKE THE CODING CHANGEC(S) THAT WILL MAKE IT 


WORK AGAIN. 


TO MAKE YOUR TASK EASIER, READ THE PROLOG 


ONE. TF THE QUEUE IS EMPTY, REGISTER ONE WILL CONTAIN ZEROS 


FOC RG I RG I I ICR I RGR I IG FOR CK a ak sok ak 


UE | 


OF THE TEST-CASE ROUTINE BEFORE YOU START TO SHOOT THE 


TROUBLE. 


THIS WILL INFORM YOU OF YOUR CONSTITUTIONAL 


RIGHTS AND ALSG TELL YOU WHAT I[S EXPECTED OF THE PROGRAM. 


HAVE FUN sca ecw 


BR ARE HE Oe Re AE RC I EE A OE Ee ee A ic Se AC OK FE IE A A A A I EE I A A AE EK A A OK AK KE KK 
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00000400 
00000500 
O000GO0600 
00000700 


00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 


00002100 
00002200 
00002300 
00C02400 
00002500 
OC002600 
00002700 
00002800 
0G002900 
00003000 
00003100 
00003200 
00003300 


882 


LOC 


OOCOLA 
COOOLE 
000022 
CO9024 
C00028 
CQI002A 
O00002C 
906030 
090034 
609038 
SQ003C 
Q90003E 
900042 
000044 
000048 
00C04C 


QOQOQG4E 
CO0CO50 


099954 
N0006C 
06006C 
coo08C 
OOOOAC 
2000CC 


QUEUE PROCESSING TROUBLE ANALYSIS PROBLEM NUMBER 2. 


OBJECT CODE 


ADDR1L ADDR2 


4140 C066 O006C 
9857 C162 00168 
1814 

58F5 0000 00000 
O5EF 

1211 

4780 C032 00038 
4144 0020 00020 
8756 CO1C 00022 
4100 C062 00068 
1905 

4770 C048 OOOC4E 
0000 

58DD 0004 O0Q004 
98EC DGOC 0000C 
OTFE 

2001 

4ITPOC COSE 00044 
OCGICOECQQVOGOEC 
IOOICVOCOOGUNOONNG 

00000000 000CEO00 
ooCcd0GO0NOCGOGGGO 


STMT 


60 
61 
62 
63 


ee 


SOURCE STATEMENT 


HH tH HH % 


—TECteCCCCeeeeeCTCCeCCeCteCCeTete STS CCOCESCOS COS. CL eee SS SSL Se TST ee eee 2 oe 


TWO. 


KK ook 


LIFOTEST LA 
LM 
TESTLOOGP LR. 
L 
 BALR 
LTR 
BZ 
LA 
BXLE 
TESTLAST LA 
CR 


BNE 


GOESWELL DC 
L 
LM 
BR 


ABORT DC 


OPLIST DC 
OPLSTND EQU 
BLOCK1 DC 
BLOCK2 DC 


BLOCK3 DC 


DEQUEUE ONE, 


NOTE: 
IF THE DUMP AT "GOESWELL* DOES OCCUR, EXAMINE THE STATUS OF 
THE QUEUE. THIS IS A TROUBLE ANALYSIS PROBLEM, SO SOMETHING 
MUST BE WRONG. RIGHT ?2727? 


FO8APR70 


FRE Re A AE AE SK OK RO OK OK KE AE I I AK OE OK A AK A I A KK EK KK AK AK 


* TEST CASE CODE FOR THE LIFO QUEUE. 


oe 


* ~~ a on <2 on <—e a — << <> —<e—o = <p ae — on oe te ee ee awe oe tie * 


He A eK i aK oe a ak ef Ra aK 2K a RC 2K ok a te a ok ae OK Ko 2 oe 


IF ALL GOES WELL, 
"GOESWELL'. 
INDICATION OF ERROR. 


AO ok lok tok doko tak ak ak a ak teak ok ak ok ok ak ok 3 


R4,BLOCKIL 


ADDR. GF. FIRST BLOCK 


THIS ROUTINE CONTROLS THE SEQUENCE OF EVENTS THAT WILL 
TAKE PLACE WITH THE LIFG QUEUE. 


IT WILL ENQUEVE TWO BLOCKS, 


eK ek ok ke kok ao kok aK ak a ek ok KK OK 


R5y9R7T,=ACOPLIST,4,0PLSTND-1) 


R1,R4 
R15,0(R5) 
R14,R15 
R1l,R1l 


TESTLAST | | 
R4,BLOCK2—-BLOCK1(R4&) YES; ADDR. OF NEXT BLOCK. 


R5_,R6E,TESTLOCP REPEAT TO END OF LIST. 


ROyOPLSTND-4 
ROR5 

ABORT 

HtOf 
R13,4(R13) 


~R14_,R12,120R13) 


R14 


Hee 
GOESWELL+t2 


BF'O! 
BFIO! 
8F 


~BE*O! 


ADDR. 
ADDR. 
LINK TO 


DID I GET A BLOCK BACK ? 


THE ROUTINE. 


ENQUEVUE ONE MORE AND THEN DEQUEUE THE REMAINING 
A DUMP WILL BE TAKEN AT LOCATION 


TF A DUMP OCCURS ANYWHERE ELSE, THIS IS AN 


OF BLOCK TO. BE ENQUEUED.. 
QF ENQ/DEQ ROUTINE. 


NO» TEST FOR LAST OPERATION. 


LAST OPERATION ? 


NO», .ERROR. 


YES, 


ACENQ+ENQsDEQyENQy DEW, DEQ) 


TAKE. A DUMP. 


DUMMY BLOCK FOR DEQ. 
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00003500 
00003600 
00003700 
00003800 


00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800. 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 


000056G0 
00005700 
00005800 
00005900 
00006000 
00006100 
00006200 
00006360 
00006400 . 
00006500 
00006600 
00006706 
000068006 
00006906 
000C7C00 
90007100 


GUUO7T300 
00007400 


00007600 
00007700 
00607800. 
00007960 
00008000 
00008100 


3 
© 


LIFOTEST 


V 
Mee KKK BY] KKK KK KKK KK 
* 


* HOUSEK EEP ING 
: FOR TEST CASE. 


3 3b 6 36 36 Ht 


* 
BO he KK KK KK Ok ok ok 


TESTLOOP V 
KC | ea ok Ka K 
* ENQ/ DEQ * 
K- Kk — ~ K K K K K K 

+--—>*LINK TO ENQUEUE* 
* OR DEQUEUE * 


* ROUTINE. , 
Me fe HK he fe 2 aK 2c ae ok 2 ak 2K aie Koo ok 
V 
o*. 
Dl *, 
x * 
-* DID THE *. YES 
x, DEQUEUE FAT e —“—— 
x, ? ox 
ae oe 
* NO 
V 
o*, 
El *, 
. * x, 
YES .*MORE BLOCKS*. NO 
+—--— *.TM PROCESS ? .* ~---- 
*, er 


aan TAKE A DUMP. 


ABORT 
HK KY D RRR KK KK 


3 tt 


Oe eK oe eo ok ae oe ofc ok Kk 


GOE SWELL 
HOKE 2 tk a EE KK 


* * 
--->* TAKE A DUMP. * 
*K x 


FRR OK AE i I A OK KK KK 


V 
ek ko PB ek a ek 
* * 
*HOUSEKEEPING —- * 
FSAVE REGISTERS. & 


x 
SR RC a a oak ok ocak ak ak ak ate ak 2 


V 
ok tok 03 kkk bake kako 
x * 


* ENQUEUE THIS * 
*BLOCK IN FRONT * 
: OF OLD FIRST. ; 


RAE RK oe eK ie aK a aK a KK OK 


V 
etek ok EB 2k sak tok ok a 
* x 
* POINT HEAD * 
ge OENTER TO THIS 


* 
Fe x 
* x 
HR eK oe ee ik ok 2c ok ok it 


t 3 


DEQ 


KK AG det a ae ok 
BEGIN LIFO * 
DEQUEUE * 
ROUTINE. * 

FOR I ok ak a akc ok ok 


K 
* 
* 


V 
KKB ARKE ERK KEK 
* 


x 
*GET THE ADDRESS* 
*OF FIRST BLOCK * 
. ON THE QUEUE. * 


Fo a do a kok 


C4 * 
*, KR C5 RK ee a 
IS THE  ¥*. YES * * 
UE EMP RETURN. * 


TY 2.* =------>* 
* x 
He He Re a a ae He 2 OK a oe OK 


V 
ek kok 0G sok ORR 
CHANGE HEAD * 
POINTER TO * 


Po 
* MK a LB ok eK EK KK 
x * 
* POINT TO NEXT * ------- >* 
* Q * 
* 

* 


* 
RETURN. x 
* 
He IK Re OK fe a KK OK OK 


N Q. * 


* 
HK he He he Ke eK KK Kk oK KOK & 


KK ek KE Gk KKK KK KK 
* 


RETURN. 
ek eK RK dK KKK ok 


at 4b 4 


QUEUE PROCESSING TROUBLE ANALYSIS PROBLEM NUMBER 2. PAGE 5 


woe 


062 


LOC OBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/70 
LB RA RI HI HA RE eR HE RE IK KE HE OK AE OK A A I AR AE OK Ae I OC OOK i ae ae aK ee a KR KK KKK KK KKKKK OOOLOSOO 
131 * | 00010600 
132 * ENQUEUE ROUTINE. 00010700 
133 * | | 00010800 
134 * WILL ENQUEUE ON THE TOP OF THE QUEUE ANY BLOCK WHOSE ADDRESS 00010900 
135 * IS PASSED IN REGISTER ONE. 00011000 
136 * | 00011100 
VL BO RRM RR I eK KE A a he EA ie he he Re i a ae he Ae ACK OE KK aK eK OK KKK KKK KK EKKKKK OOOLL2Z0O0 
000000 139 USING BLOCK,»R1 00011400 
QOOOOEC 5020 C116 , 0011C 140 ENQ ST R2~9TEMPSAVE SAVE CALLER'S REGISTER. 00011500 
OOOOFO 5820 C112 00118 141 L R2,QUEUEPTR | ADDR. OF FIRST ON THE QUEUE. 00011600 
OOOOF4 1222 | 142 LTR R29R2 QUEUE EMPTY ? 00011700 
OOOOF6 4740 COF8 OOOFE 143 BM ADDIT YES, ENQUEUE THIS AS FIRST. 00011800 
OOCOFA 5020 1010 00010 144 — ST R2,yLINKFLD NO, ENQUEUE THIS IN FRONT OF FIRST. 00011900 
COOOFE 5010 C112 00118 145 ADDIT ST R1l,yQUEUVEPTR POINT TO IT WITH QUEUE HEAD. 00012600 
00C102 5820 C116 0011C 146 L R2,TEMPSAVE RESTORE USER*S REGISTER. 00012100 
CO0106 OTFE 147 BR R14 RETURN. 000612200 
1 4D RRR A EE OK Ee A AE A RE aK AE OI OK AK OE KC CAR OK OE OK AE CO CA AE OK OI OK IKE CK AK KK KKK ARK K KK OOOL2Z400 
150 * 00012500 
151 * DEQUEUE ROUTINE. 00012600 
152 * : | 00012700 
153 * DEQUEUVES THE TOP BLOCK FROM THE QUEUE AND RETURNS ITS 0C012800 
154 * ADDRESS IN REGISTER ONE. REGISTER GONE WILL CONTAIN 00012900 
155 * ZEROS IF THE QUEUE WAS EMPTY ON ENTRY. 00013000 
156 * 00013100 
157 He ok fe ofc ak kk ae afc Oc ok he fe a aie ok ok oh af aig ah oie ae ote ate 2K a ae oe ok of ae he ote ok ie oe KO KK ai oe 2 RK KR OK KK OK OK RK KEKE OO0O1L32700 
000108 159 DEQ EQU * . | 00013400 
900108 581C C112 00118 160 L R1»QUEUEPTR ADDR. OF FIRST ON QUEUE. 00013500 
ooo1cc 1211 | 161 LTR R1,R1. QUEUE EMPTY 2? | 06013600 
OCGLOE O78E 162 BCR 8yR14 YES, RETURN. 00013700 
000110 0203 C112 1010 00118 00010 163 MVC QUEUEPTR,LINKFLD NO, DEQUEUE THE ONE AT TOP. 0001380C 
000116 O7FE 164 BR R14 AND RETURN. | 00013900 
000118 OC00000G 166 QUEUEPTR DC For 00014100 
QOOLLC 167 TEMPSAVE DS F 00014209 
000120 168 SAVEAREA DS 18F | 00014300 
SOCCCO ) 170 BLOCK DSECT : 9001450C 
os0000 171 DS 4F 000146CO 
000010 172 LINKFLD ODS F | 00014706 
900014 173 DS 3F 00014800 
COo01LD 174 LINKDISP EQU LINKFLD=-BLOCK 00014900 
175 END OC01L5000 

900168 G000005400000004 176 =A(OPLIST+4,0PLSTND-1) 


L6Z 


POS.ID 


REL.ID 


FLAGS 


RELOCATION DICTIONARY | PAGE 1 
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000054 
000058 
00005C 
000060 
900064 
000068 
000168 
000170 


c6Z 


SYMBGL 


ABORT 
ADDIT 
BLOCK 


BLOCK1 | 


BLOCK2 
BLOCK3 
DEQ 
ENQ 


GOESWELL 
LIFOTEST 
LINKDISP 
LINKFLD 


OPLIST 


OPLSTND 
QUEUEPTR 
QUEUETA2 


SAVEAREA 
TEMPSAVE 
TESTLAST 
TESTLOQP 


LEN 


00002 
00004 
00001 
00C04 
00004 
00004 
00001 
00004 
00002 
00004 
00004 
00004 
CO0C4 
00001 
00004 
00001 
00CO0l 
00001 
C0001 
00CO01 
cCOOoOo1 
00001 
OOCcOl1 
00001 
09001 
00001 
00001 
00001 
OCOC1 
OO0CCl 
OOGC1 
00001 
OC 0U4 
C0004 
CO004 
00002 


*STATISTICS* 
*OOTTONS IN EFFECT* 


CROSS~REFERENCE 


VALUE DEFN REFERENCES 
OOCO4E 00098 0092 
COOOFE 00145 0143 
000000 00170 0139 0174 
00006C 00103 0081 0088 
O0008C C0104 0088 
OO0OCC 00106 
000108 00159 0101 O101 0101 
OOGOEC 00140 0101 0101 0101 
000042 00093 #0099 
OCOC1A 00081 
000010 00174 
060010 00172 0144 0163: 0174 
000054 00101 0082 0176 
OGO06C 00102 0082 00990 0176 
GO0118 00166 0141 0145 0160 0163 
O4UG000 O00C!L 
000COQ0 00003 0090 0091 
O0C001 00C04 0083 0086 0086 0139 90145 0160 0161 O161 
GCOOCOA 00013 
O00CO0B 00014 
OOcOO0C 00015 0019 0020 0021 0095 
O0GO0D 00016 0019 0023 0024 0025 0026 0026 0094 0094 0095 
OCGOCE 00017 0019 0085 0095 0096 G147 0162 0164 
OOCOCF GO0018 0022 0023 0024 0025 0084 0085 
GCO00G02 G0005 014CG 0141 0142 0142 0144 0146 
000003 00006 
OCOO0G4 QO0007 0081 0083 0088 C088 
vOCO005 00008 0082 0084 0089 0091 
000G06 00009 0089 
OOGGO7 OG010 0082 
00GuUU8 00011 
Geccogyg 00012 
uGOQ120 0G168 GO022 
GOC11C CC167 014C 0146 
006038 00C90 0087 
OC0G22 G0083 OC89 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
SGURCE RECORDS (SYSIN) 150 SOURCE RECORDS (SYSLIB) = 25 
LIST, NODECK, LOAD, NORENT, XREF, NOTEST, ALGNy OS, LINECNT = = 55 


231 PRINTED LINES 
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€62 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LETsLIST»NCAL 


VARIABLE OPTIONS USED - SIZE=(45056,6144)- DEFAULT OPTION(S) USED 
IEWOO00 ENTRY UTILITY | | 
MODULE MAP 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH | NAME LOCATION NAME  LCCATION NAME LOCATION NAME LOCATION 
QUE UETA2 00 174 
UTILITY 178 50 
PRINT LDA PCHKRETN 436 

ENTRY ADDRESS 178 | 

TOTAL LENGTH 718 
# KE KG O DOES NOT EXIST BUT HAS BEEN ADDED TG DATA SET 


FeP. REGS. 00.0186B8 0V0O1B69G 50.04BC6A 00000050 00.00C7D4 C4&F2F6F3 00.000000 O0Q000C0 

REGS 0-7 00040950 00040954 OO01LBE6AC GO00D0NC 00040A14 00040954 00000004 00040953 | 

REGS 8-15 OOG1BE9C 00009009 0001B6B8 9C0000CO0 6FO408EE O0040A08 6F040912 000409F0. 

000090 0C000000 00600000 00000000 00000000 000408E8 COODOCO0DN FFOGODDDN BOCQD0D0D Keven eeerccrevever es eVecsevevesses® 
090020 FFO400603 4CO006A3E FFB50001 5F040938 OOOOFFOCO OC0000000 FE040233 BO0DDDADG Fe eee secre ccccevccvvsccvecsessee® 
C00040 00061360 68000000 A0001468 C0005920 O2CO1BA4 OOOD9I9EC C0040000 JCOOT4SIB Kew veveccevecvecscrsvessescsccesee® 
OCO0060 90040060 O0GO7BC8 00C40000 00007588 OOD00000 DODIZDLO CO040000 GOOD T5SIA Kees cre Hes ecccerecesccvesvssesee® 
0408E0 D5G16012 9BC84780 YOECDOOC O5C041F0 CLIA5SOFD OOOB50DF OOO4LBDF DI0ZD008B 9 FNeceeHeeecereesDNa cee secceceePoee® 
940900 D008414C0 C0669857 €1621814 58F590000 O5EF1211 47800032 41440020 BI56COIC Kone wee eNe eee Dec cennccscccscccee® 
C40920 410C0C 062 1905477C C0480000 58DD0004 SBECDOCC OF7FEOQOOL 47FOCOZE OO004OIDS = Keccccccr ccc vccvecceveeseeQecee oM¥ 
040940 00040904 OU0409FC 000409D4 000409F0 O00409FO OOD00D00DN ACOODOOD OODODDOD Kee eMe ew eD eee Me oe Gee eDe navn e veces e® 
040960 OOG000TG CO000080 COG00000 00G00000 OO000000 OOGCOGCO00 DODOOOOG OOODOCOOOO Kee cence ecrcccesesescescessees® 
0406980 Q0G0000G 60040954 OCO00000 90C00000 OOCOO00N 92E49210 LOODZ4TFO G2E49240 FececcccceesceveseseceUevse eQUe * 
O409A0 190492BC 414692900 10029200 10019200 10034110 COCO000DN DODODD0CN DOOOGOOD Feccecccesvececveseesessvevsesseeek 
040900 OO00CGOG 00440954 9OG00C0N B0000000 OOCOOBNN 5020C116 S5B20C112 12224740 Krewe wccevesccccsevvcechoesAevee * 
O409E0 CGOF85020 10105010 €1125820 Cl1l6O7TFE 58100112 1211C78E D203C112 LOLOOTFE F.Be cece eabNe a eNew ee eNeveeeKe None ee® 
040A00 O00GV000 GIGLBEAC OTTES5SFF OOD4CFE68B COCOQG0C DZ6D4152 415196012 41085820 Freee erececcesccveceeKecvevvccese® 
040A20 G9A32562CG 20000214 41482000 95FFEC02 477C995C 02024152 600DD205 41566010 FesceeeKecescrcrecvecKecvecKessee® 
C40A40 D2074156 ACO084150 41504570 957E58A0 0004093C GO0000004 00040953 SOOSCD2Z0T KK eccccncccccccescceeesesscseceieo® 
040A60 9CECDGCC O5CO0C4FO 07004110 CO1VN511 OF040804 TFFFOADE SBBOOOLO GLICBOTH Feeer eee Dee e veers evcceveecesesseeX 
C41020 4ACTOBDE 40050C00 47F095C6 48609BEE BAGOGOOL 4770969E 48609026 41660001 Feeee eee eDe Fo cece resesesercsccse® 


v6~ 


He eH a RK ER RK KK RC RE KR BOR KK OK I RH HE HC CR A 2 oe 2 ee i IK he Be ht ec ee ae he he ee ee a 2 2 2 OR A EE A A RE CR RR OK CK EK OK 


S6Z 


SSSSSSSSSS 
SSSSSSSSSSSS 
SS x5 


SSS 
SSSSSSSSS 
SSSSSSSSS 
SSS 
~ £35 
SS SS 
SSSSSSSSSSSS 
SSSSSSSSSS 


OV0GGOGCCO0N0N 
o00000cn00g0gc 
00 00 
00 00 
00 O00 
OG 00 
00 00 
00 00 
O00 00 
00 00 
ooog000g00000 
OOO000G00000 


RRRRRRRRRRR 
“-RRRRRRRRRRRR 
RR RR 
RR RR 
RR RR 
RRRRRRRRRRRR 
RRRRRRRRRRR 
RR RR 

RR RR 

RR RR 
RR RR 
RR RR 


TUTTTIITTITTT 
TTTTTTITTTTYT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 
9999999999 
299999999999 
99 99 
99 99 
99 99 
999999999999 
999999999999 
99 
99 
99 99 
999999999999 
9999999999 


SSSSSSSSSS$ 
SSSSSSSSSSSS 
SS SS 


SSSSSSSSS$ 
SSSSSSSSS 
SSS 
SS 
SS SS 
SSSSSSSSSSSS 
SSSSSSSSSS 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
YUVUUUUUUUUUU 
UUUUUUUUUU 


PPPPPPPPPPP 

PPPPPPPPPPppp 
pp pp 
PP pp 
pp pp 
PPPPPPPPPPPP 
PPPPPPPPPPP 

Pp 

pp 

pp 

pp 

pp 


He fe 2 ie 2 Ro ef he a fe a a oe a 2 i a a he fe ae a 2c ae ae he a of 2 he a ae ae aie 2 ee he 2 ae fe ate he afe ae abe ae Re he 2 he ae ae ae 2 ae he Oi ee he he HK Ie HC Me He He EH He He Hee HE He He He HH HH He AE HH HK He He He HK IK 


962 


SYMBQL 


SORTSUPL 
PCHKRETN 


TYPE ID ADDR LENGTH LD ID 


SO 
ER 


Ol GGOQ00G 000282 
02 


EXTERNAL SYMBOL CICTIONARY 


13.04 
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LOC 
00000 


CQ0000 
occool 
009002 
000003 
C00004 
009005 
000006 
000007 
CO0008 
9009009 
OQ0V00A 
COO00B 
0909900C 
CO009D 
COOODE 
NCOOOF 
CClOG0 
O00CE4 
009006 


i 900012 
~ 009014 


OBJECT CODE 


QOEG 
O5CO0 


41 FO 
SOFD 
5 ODF 
18DF 
D703 


OGOC 


C216 
CO08 
0004 


ADDR1 ADDR2 


OOOOC 


OO021C 
00008 
00004 


UGO8 DGO8 0G008 00008 


STMT 


OON AU LPWN 


SOURCE STATEMENT 


SORTSUPL CSECT 


COPY 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


MHMBEGIN 


OaONoU PR WHE O 


R14, R12,12(R13) 


R12,0. 
*yR12 


R154 SAVEAREA 
R15,8(R13).. 
R13,4(R15) 
R13,R15 
8(4,R13),8(R13) 


FO8APRT0 


SAVE THE CALLER*S REGISTERS. 


ESTABLISH PROGRAM BASE 
LET THE ASSEMBLER KNOW. 
ADDRESS OF MY SAVE AREA 


-.., BACKWARD. CHAIN 


FORWARD CHAIN 


-ESTABLISH MY. SAVE AREA 


TERMINATE THE FORWARD CHAIN. 


END OF STANDARD ENTRY LINKAGE CONVENTIONS. 


PRINT 


OFF 
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00000100 
00000200 
C0000700 
00000800 
00000900 
00001000 
00001100 
0U0012C0 
00001300 
00001400 
00001506 
00001600 
00001700 
00001800 
000C1900 
00002000 | 
00002100 | 
CO0GG2200 . 


O0CC2400:. . 


00002590 . 
00002600. 
00002760... 
00002800 - 


00002900 . 
06003000 


00003100 | 
00003200 
00000300 


LINEAR SELECTION «24. FINDING THE SMALLEST. PAGE 2 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APRTO 9/17/70 

BS KARA OK EEK OK A OK OK OK OK AK OK BK A OK EK OK AK A AE OK OK KK KOK AE EK KOK OK OK OK OK AK KK KOK OK KKK ERK AKK QOOCOLCCO 

26 * 00001100 

37 * THIS ROUTINE IS AN EXAMPLE OF A “LINEAR SELECTION" SORT 00001200 

3a * 00001300 

39 * THE LINEAR SELECTICN WORKS ON THE PRINCIPLE CF FINDING THE 00001400 

40 % SMALLEST DATA ITEM AND MOVING IT TO IT'S APPROPRIATE PLACE COOGL500 

4) * IN THE LIST, THEN FINDING THE NEXT LOWEST DATA ITEM AND MOVING 00001600 

42 x IT, ETC., ETCee ETC. GRAPHICALLY, IT LOOKS LIKE THIS: 00001700 

43% 00001806 

44 * LEGEND: SCAN #0 IS THE ORIGINAL LIST. THE + SIGN SHOWS THE 00001900 

45 % START VALUE FOR THE NEXT SCAN. 00002090C 

46 * 00002100 

47 * SCAN #0 #1 #2 #3 #4 = #5 00002200 

tee 48 * 00002306 
49 * * +5 1 l l l l NUMBER OF SCANS = N -l. 00002400 

50 * D 6 +6 2 2 2 2 (EACH IS SHORTER THAN THE LAST) 00002500 

51 * A 4 4 +4 3 3 3 NUMBER OF COMPARES = N(N-L)/2 00002600 

52 * T l 5 5 +5 4 4 00002700 

53 %* A 2 2 6 6 +6 5 NUMBER OF DATA MOVEMENTS G00028C0 

54 * * 3 3 3 4 5 6 (WORST CASE) = N-l. co002900 

55 * 0C003000 

56 * A *SCAN' IS A SINGLE PASS THROUGH THE LIST. 00003100 

57 * 00003200 

58 * THIS PARTICULAR SAMPLE WILL SORT A LIST OF HALF-WORD 06003300 

iy 59 x QUANTITIES IN THE LIST CALLED "INPUT*® INTO GRDER BACK INTO 00003400 
o 60 * THE SAME LIST. WHEN FINISHED, A DUMP IS TAKEN TO VERIFY THE 00003500 
6l * ACCURACY OF THE SORT. 00003600 

62 * 00003700 


63 RK RK RK OE a OK RE 2c a KK 2 AK Oe 2 OK OK KO AK cK aK 2 OK 2 EE KO AE OK AE AC EE OK OK FE KK ORK KEE KK KK KKK OOOO3S800 


LOC 


CQO902A 


N0C02E 
200032 
000034 


000036 
00003C 
900040 
CO09042 


909046 
OCcoG4C 
909052 
000058 


000062 
COOO6E 
OCOO6E 
90cC70 


LINEAR SELECTION ... 


OBJECT CODE 


989B 


9867 
1889 
1858 


D501 
47D0 
Lope 
8786 


O2C1 
D2C1 
D201 
879A 


0001 
47FO 


C26E 


C262 


5000 
CCO3C 


C030 


CC68 
50 CO 
GCOQ9 
C628 


CUGA 


ADDR1L 


8060 0OC00 


5¢00 OUQ6E 
9uLuG 0G000 
CC68 CO0CE 


0019061306210029 


FINDING THE 


ADDR2 


00274 


00268 


00000 
00042 


00036 


COC00 
00000 
OCO6E 
OCO2E 


00070 


STMT 


SMALLEST. 


SOURCE STATEMENT 


* 
SORTPASS 


x 

* 

* 
COMPARE 


LOWER 


Ho H 


it 


INPUT 
INPTEND 
LINETEMP 
PASTLINE 


+ 


a a a i a iL 


BK EK RK OK 


INITIALIZE THE REGISTERS FOR THE OUTER LOOP. 


LM 


RO gR112=AC INPUT ,2+  INPTEND—3) 


FO8APR70 


INITIALIZE THE REGISTERS FOR THE INNER (SELECTING) LOOP. 


LM 


LR 
LR 


R6,R7,=A02,INPTEND-1) 


R&B RI 
R5,R8 


SET THE NEW LOWER END ADDRESS. 


ASSUME THAT IT'S THE LOWEST VALUE. 


SEARCH FOR THE SMALLEST VALUE IN THE LIST 


CL 
BN 


LR 
BXLE 


C 
H 


0(2,R5),0(R8) 


LOWER 
R5eR8 


R8eR6, COMPARE 


COMPARE TWO VALUES 
BRANCH, 
NEW LOW FOUND, 
CONTINUE TO END OF LIST 


PREVIOUS LOW STILL HOLDS 
SAVE ITS ADDRESS 


AY THE END GF ANY CNE PASS, REG 5 ADDRESSES THE LOWEST VALUE 
REMAINING IN THE LIST. 


MV 


C 


MVC 
MVC 


BXLE 


DC 
B 


DC 
EQ 
DS 
DS 


te we 
Ce 


U 


nd 
Pa 


LINETEMP,O(R5) 
0(25R5),0(R9) 
O(2,R9O),LINETEMP 
R9,R10,SQRTPASS 


H* 8 
PASTLINE 


MOVE LOWEST TO TEMPORARY SAVE AREA 


REPLACE WITH POSITIONALLY LOWEST. 


CREATE A DUMP TO SEE THE OUTPUT LIST 


BRANCH AROUND THE TABLE. 


H*25919933941715922' 


H 
OH 


TEMPORARY SAVE AREA . 


PUT THE LOWEST BACK IN THE LIST. 
CONTINUE UNTIL END OF LIST ITS FOUND. 


FOO OI OE RO FO OR IO it ak ke 2k a ok a ak ak a akc a ac ak ok 


ANSWER THESE QUESTIGNS ABOUT THE LINEAR SELECTION ROUTINE 
AND THE MATCHING DUMP. 


‘MVC! 


USING THE DUMP, 
END OF SCAN # 2 ? 


- WHAT WILL BE THE ADDRESS IN REG. 


IF THE FIRST ITEM IN 


WHAT WILL BE THE ADDRESS IN REG. 


9 AT THE START 


THE LIST WERE A "OG", 


5 AT THE 


QF SCAN 2 ? 


HOW MANY TIMES WILL THE 3 MVC'S BE EXECUTED DURING THE 
SORT ?_ 


WOULD THE THREE 
INSTRUCTIONS STILL BE EXECUTED IN THE FIRST SCAN ? 
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00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 
COC05900 
000C6000 
00006100 
00006200 
00006 300 
00006400 
CQ006500 
00006600 


00006806 
000069900 
COO00T000 
00007100 


CO007300 
00007400 
00007500 
00007600 
00007700 
00007800 
0co07900 
OC008000 
00008100 
00008200 
00008 300 
00008400 
00008500 
00008600 
C00 08700 
00008800 


He KA I i A EK A CK I I AE OK i AE HE 2 aE A I A IK AE OC ACE 2 AE A AE OK KK KR KK KKK OOOO8IDN 


F.P. REGS. 686.0C1C5C JUC1DODC 00.01D11C CCO00GOO0 00.0181C8 000647C8 - 0C0.000000 00000000 


FFFFFF2E OG063FF8 OOO1CFIC 00000000 


REGS 0-7 OCO01B3A8 00058044 O0G000002 00058045. 
REGS 8-15 CC058046 00058044 00000002 00058043 6FOCS7FDE O00581F4 O000C7TD4 O0OO05851E 
000990 O00GGIGE 00000090 DOCOO0NG CO0000000 OOO57FDS -OCO00000 -FFOG0000 SCOC0000 4 iss esi wese wee es Qe Ce awe ieee 
000029 FFC50001 4007F04A FFA50001 6F058036 OOGCFFCO DQ00000G FE040234 BODDODALE eee e eOeeeecc vse veceesevcsccece® 
000040 00000000 04000000 006014D0 C0005920 083D5600 OO0O0C996C CCO4O0000 ODD0NTEOB = Feececs neces ccererecreasvesescences® 
09006C 9CO4000U0 GU007BC8 00040000 0000 7588 VO90NN000 00012D10 DO04GOGO OODOT5SIA KeveceecHev een seescccevecesesesee® 
OS. CFGS 96204177 O00847FO 96085870 9CE547F0 95C6D500 9CD59CAT GOECDOOC O5CO41L FO Feecee re eDe ee eee ee FNeeNoceceee se OX 
O57FECO C2165CFD 200850DF 000418DF D7030008 DOO8B58FO C26AD201 FOOOCO22 47FOCO2Z4 *FBe cee eee e eee Pere ee eDBeKeOn eo ea e*® 
£58050 OTFE989B C26E9867 C2621889 1858D501 50008000 47D0CO3C 18588786 COBZODZOL Fee ec Be ee Bowne eNer eevee vevsecseeke* 
058020 C06850C0 D20150C00 9000D201 9000CCE8 BTIQACO2Z8B OOOL4SETFO COGADNLO OOLZOOLEG FeeeeKe wee eKacerecccvessVeveccsve® 
058040 00190021 06296021 41400010 4150008 960ICOFC BEO2ZCOFC 41800002 11884168 Kee ccc eee coves rcessesecscesecee™® 
958969 90024186 00621946 4740COA4 41E6COEA 41FE8CCEA D5S0LEO000 FQO004S7T20 COCA4STFO Kec ecceeee we eWoe ce Be eNe ee De eee e 0% 
058080 CO0809101 CuFC4T80 COE44650 COB447F0 COES494FE COFC9I1LO2 COFC4ST80 COTEI4GFD Ke ece were eee eee eVerevvsrveveveee® 
O580A0 COFC168& 4/7FOCC8G D/7O1LEO00 FOOODIO1 FOOOEQOO DZO1LEOOO FOCO9IEGI COFC4ETFO Fee eee Dee Powe De Pe Dee eP one De eae e 0% 
9580C 0 CO8uUCCO3 47FOC CFE OOLIOOOF GO0280025 0G150041 00020013 00630020 1B224920 FeeeeeDeccecneverecccccvsesccveced 
9580E0 C1724780 C15A4132 O00241E2 C16241F2 C160D501 ENOOFO0O 47400126 412200G2 New e Nees ee eSNee2AeNee eee Aves ae%® 
058190 47FCOC10C D?fGlECCO FOOCD7CL FCOOECOO DTOLEGOO FCOO4B20 C2TA1L222 474CC154 *.0ALP 2 oe Oe Pe Dee Po ee Gee ee Benne An* 
058120 41E2C162 41F2C160 D501E000 FO0004740 C1261823 47FOC100 O00447FO0 Cl7T40057F FLSA e2NeNe ec eee Nowe eGAne eo eDAe ee ® 
058140 0043005E CG020004 DOGICO5A G1BDOO5S7 00104160 CLEE5820 C2021B33 BB820000L KeeeesececrecerccecveeNeeebeecesee® 
058160 12224780 C20841E32 BOO241F2 39001 AFF LAFBE501 EQCOFOOO 4720C1B2 4133000L Fee eeBe elev ele cere eNo weve eAsooee* 
25818090 41023000 5900C202 4780C17C 47F0C188 1843D201 C206E0D0C D201LECOCO FOOODZOL Feeee ee Be oe Ae eQhoe eKe Ben eKo ec eDe Ke * 
Q581A0 FOCOCZ96 19324786 C1E81B32 47D0Ci1E8 41E3B002 41F23000 LAFFIAFB D5S0LEOQ0G *O.b eee ee AV ee ee AVe Te rete ce ea eNeo ne % 
O58 100 FOOC47/720 C1B41834 47FOCI19E O00C0055 003A0004 00160017 ODOZTOOZE DOO5SO00N02 *O ee eho ee eCAe conse ccvevrsevsecsee® 
ODSLEO IOOCCUGA 83D60005 58DD0004 9I8ECDOGUC CTFECO0O 000432E4 OCO0E3FHB DODQDNND Kee ee Dew ee eve sccccseee Vise ceovsse* 
058200 0004331C 000432E4 00000000 00000000 O90CO000 O000000DN 3104330B 400000C5 = Fesecee Vers cccereseccccrcvee over 
w 58220 $9804331C G00C0GCO0 OEGOND00N GEODDCODO OO004A6D0O FFO24000 00043338 00043340 Feeccceverccccvesescese soeeseee * 
8 058240 O00GO00G2 GI9058045 0005e51E CO005803A QO000CO02 GU058043 OCOZ400C FFO540CO Feces cere rccceeensscescese see 0 * 
95826C QOECDUOC U5CO004FO 07004110 COLV05i1 OFC58304 TFFFOADE SBBOOOLO GDLLOBOTH Fe reece eGowccncerecccevvcscesccse®. 
058820 50401010 12444780 88504820 AQN0E5420 8A9SE4TBO BTFCO620 SAZOBOLO Fe woe coerce rccverccesvecrescccee® 


4340A008 


LOE 


LOC 


LINEAR SELECTION ... FINDING THE 


OBJECT CODE ADDR1 ADDR2 STMT 
116 
117 
118 
119 
120 
121 
122 
123 
(124 
125 
126 
12? 
128 
129 
130 
131 


SMALLEST. 


H te HH HH HH HH HO 


SOURCE STATEMENT 


@eeeseeeeeedtseeseneveeseseeeeseesestseeaeeesesvseseeseoveVeseseeepesneseaespeeeseoaeseoeeaewenwesespeemeoa eve eavn OBeseeseve 


ANSWERS FOR THE LINEAR SELECTION SORT. 


le 


REGISTER 5 WILL CONTAIN 
OR X'o§303C'. 


THE ADDRESS OF "INPUT +2! 


REGISTER 9 WILL CONTAIN THE ADDRESS OF 
OR X'OSZO3C'. 


THERE WILL BE 5 EXCHANGES, 


"INPUT +2* 


ONE PER SCAN. 


YES, BECAUSE THERE IS NO CHECK FOR ITEMS ALREADY LOCATED 
IN THEIR OWN SPOT. 


FO8APRT0 
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00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009800 
00009900 
00010C00 
00010100 
00016200 
00010300 
00010400 
00010500 


Come eee e reer e reer eer esrereeereseseesere essere nesesesereceerecerereseres 06010600 


c0E 


PATR INTERCHANGING. 


LCC OBJECT CODE ADDR1I ADDR2 = STMT 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
15C 
151 
152 
153 
154 
155 
156 
ie eg 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17C 
17. 
172 
173 
174 
175 
176 
17? 
178 
Leo 
180 


SOURCE STATEMENT 


a a ee a or ec a 


ot 


FOB8APR70 


TO I GI IO lok otc icici i ok lok tok ka kk ii kk i ik i kok ak i ak kak ok ate ak ak ak ak ak ae a ok ake aide ak af ok 


THIS [TS AN EXAMPLE OF THE 
TECHNIQUE. 


"PAIR INTERCHANGING" SORT 


THE PAIR INTERCHANGE [S ANOTHER FORM OF SORT WHICH FAKES 
ADVANTAGE OF THE NATURAL ORDER OF THE DATA. EACH PASS 
THROUGH THE DATA ACTUALLY MAKES ONLY HALF THE POSSIBLE 
NUMBER OF COMPARES. 

THE 1ST AND 2NDy 3RD AND 4TH, ETC. ARE COMPARED AND 
INTERCHANGED IF OUT OF GRDER. A SCAN IS COMPLETED WHEN 
ALL THE "GDD~EVEN"™ PAIRS HAVE BEEN COMPARED. IN THE NEXT 
SCANy THE 2ND AND 3RDy 4TH AND STH, ETC.y ARE COMPARED. 
WHEN ALL THE "EVEN-ODD" PAIRS HAVE BEEN COMPARED, THE 
SECOND SCAN IS COMPLETED. THESE 2 SCANS MAKE UP A "CYCLE". 
A MINIMUM OF 2 AND A MAXIMUM OF N SCANS ARE REQUIRED TO 
COMPLETE THE SORT. ORy THE SORT ITS COMPLETE WHENEVER NO 
EXCHANGES ARE MADE ON ANY SCAN AFTER THE SECOND. 


TwO NUMBERS CONNECTED BY '<—>* (SHOWN VERTICALLY IN THE 

DIAGRAM) INDICATES A COMPARISON TAKING PLACE. IN THE PLACES 
WHERE THE ENTRIES ARE CONNECTED BY '<X>"', AN INTERCHANGE IS 
INDICATED, AND WEILL TAKE PLACE. (THE ACTUAL INTERCHANGE WILL 
SHOW UP IN THE LIST AT THE END OF THE SCAN). THE NUMBERS TO 
THE LEFT ON THE SCAN LINE SHOW THE LIST AT THE START OF THE 


SCAN, THOSE AT THE RIGHT SHOW THE LIST AY THE END OF THE SCAN 
AND AT THE START QF THE NEXT SCAN. 

CYCLE # 1 # 2 # 3 # 4 

SC AN #1 #2 #3 #4 #5 #6 #7 #8 

* 5<+ 5 5K+ 1 1<+ 1 l<+ E 

* ( X I } oN 

* 6<t 6C+ Lt SKF 2+ 2+ 2+ = OD 

D X x | 

A Gt Lt 6C+ 2+ 5+ BC+ B+ DO 

T X X x j F 

A l<+t 44 2X4 6+ 34+ 5S<t 4+ 

* X Xx X S 

* 2K4+ 24+ 4C4+ Bt BKt+ 4£CK+4+ 5Kt OD 

* | xX X | R 

* 3<+ 3 BRE 34 4<+ 6 6<+ 7T 

LAST SCAN £#8) IS NOT REQUIRED , BECAUSE NC INTERCHANGES 


TOOK PLACE DURING SCAN #7. 


we x mnhe ate Se le 4 le J “ wy whe fe fl Ae af, we we wl AL Se he nt abe «Re ake at we whe ee aly <A xte wt aly ye we 
ote ofc os os ok oye 2s 2c OK ai oie ac afc oe 3K oie ac ok ok ae 2K ie aK i IC a OK OK A A OE 2S IS AK OC FICK AR AS AE OK AK BS SE AE AS OR CK OK IK AC aK AE OK Oi AS ak IE Oe OK 
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00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
COO1L1700 
00011800 
00011900 
00012000 
00012100 
00012200 
0C0123C0 
00012400 
0G012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
00013300 
00013400 
00013500 
00013600 
40013700 
00013800 
00013900 
00014000 
00014100 
00014200 
00014306 
00014400 
00014500 
00014600 
00014700 
00014800 
00014900 
090015000 
00015100 
00915200 
06015300 
C0015400 
0C015500 


f0€ 


LOC 


000070 
000074 
O0COC78 
OoCo7C 
900080 
000084 
000086 
00008A 
O0008E 
900096 
C:00094 
c0cc98s 
00009C 
000042 
OCOOA6 
OOOOAA 
QOD0AE 
000982 
COD0B6 
OOOOBA 
OOOOBE 
o000c2 
000CC6 
O000CA 
J000CC 
oca20D0 
000006 
00000C 
OCCOE2 
COCOE6 
OOODEA 
OOO00EC 


S00CFO 
oC0102 
C00102 
CO9008 
900001 
000092 


PAIR INTERCHANGING. 


OBJECT CODE 


4140 
4150 
9601 
96C2 
4180 
1188 
4168 
4186 
1946 
4740 
41E6 


41F8 


D591 
4720 
47FO 
9191 
4786 
4650 
4TFO 
94FE 
9102 
4780 
94FD 
1688 
47FO 
DTOL 
D7O1l 
D7O1l 
9601 
4TFO 
0003 
47F0 


O10 
0008 


CGFC 


COFC 
0002 


CG02 
0002 


CUA4 
COEA 
CCEA 
E000 
COCA 
C680 
CGFC 
CUES 
COB4 
COE4 
CGFC 
CUFC 
C076 
COFC 


COBY 
EGUG 
FOUG 
EQ0U 
CCFC 
C080 


CCEE 


FOGOO 


FOUO 


ADDR1 


00102 
001G2 


d000C 


00102 


COLO2 


Gul02 


06162 


Ov00C 


EGOO O0uU000 


FOOO 


00000 
00102 


COIIOGCF OG 280025 


oc 


ADDR2 
00010 
00008 
00002 


00002 
00002 


OOOAA 


COOFO © 


OOOFO 
00900 
O000DC 
00086 


OCOEA 
OOOBA 
OOOEA 


OGO7C 


00086 
00GCC 
000006 
C0000 


00086 


00104 


SOURCE STATEMENT 


PAIRLOOP 


PATRLP1 


PAIRTEST 


INTRCHNG 


PATROUT 


PAIRLIST 
PATREND 
SW 
PATRNUMB 
PAIRSW1 
PAIRSW2 


oH te te He 4b 3 Se ee 


R4,PAITREND—-PAIRLIST—-L*PAIRLIST 


R5,PAIRNUMB 
SWePAIRSWL 
SWyPAIRSW2 


R8,L®PAIRLIST 


R8,R8 


FOB8APRTO 


RELATIVE END OF LIST. 
NUMBER OF ITEMS IN THE CIST. 

SET SW1 TO l. 

SET SW2 TO l. 

ELEMENT LENGTH. 


—- ELEMENT LENGTH. 


R6y,L*PAIRLIST(R8) 
RBeL*PAIRLIST(R6) 


R4,_,R6 
PAIRTEST 


R1L4,PAIRLIST(R6) 
RLS,yPAIRLISTCR8) 


O(L*PAIRLIST »R14),0(R15) 


INT RCHNG 
PATRLPL 


SWePAIRSWL 


PAIROUT 
R5_ *¢8 
PAIRGUT 


SW-255-PAIRSW1 
SWyPAIRSW2 


PATRLOOP 


SW, X* FFYE~PAIRSW2 


R8B,R8 
PATRLP1 


END OF SCAN ?? 
YES 
NO, SEF UP THE COMPARISON 
ADDRESSES. 
QUT OF SEQUENCE ?? 
YES, GO EXCHANGE THEM. 
NO, CONTINUE THE SCAN. 
WERE THERE ANY INTERCHANGES ? 
NO [NTERCHANGES. EXIT. 
# SCANS = # OF LIST ELEMENTS ? 
YESe EXIT 
NOe RESET SWITCH 1. 
FIRST OR SECOND SCAN OF THES CYCLE ? 
SECGND, GO TO LOOP. 
FIRST, SET SW2 TO ZERO. 


O{L*PAIRLIST,R14),00R15) 
O(L*PAIRLIST,R15),0(R14) 
O(L* PAIRLISTsR1I4),0(R15) 
SWePATRSWL 


PAIRLPIL 
H#3t 
PASTINTG 


H®§25,15940937¢21765%702319799 
* 


X*Q? 


(CPATREND~PATRLIST ISLE PAIRLIST)I~1 


WHICH BIT IN 
COMPLETED A CYCLE ? 


swe 


o 


IS USED 


SET SWL TO 1. 
TAKE A DUMP TO SEE THE LIST 
BRANCH AROUND THE TABLE 

SW1 

SW2. 


he ake a oe a ofc oe oo aK KK aK a aK a oi a oe 2 a a Re KK oe Re RR KE EE RE i eo KK OK KK OK 


ANSWER THESE QUESTIONS ABOUT THE PAIR INTERCHANGE SORT. 


TO DETERMINE WHEN WE HAVE 


WHAT NUMBER WILL BE AY LOCATION #PAIRLIST! AFTER 2 CYCLES ? 


WHICH INSTRUCTION(S) DETERMINE WHERE THE SCAN WILL START ? 


Ok fe He ok ae a ak ote oe ok ake a ie a fe 2 a a KK oC ake Re a RO OK KE CK KE A A A AE A KH A I EK 
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00015700 
00015800 
00015900 
00016000. 
00016100 
90016200 
00016300 
00016400 
00016500 © 
00016600 
00016700 
00016800 
00016900 
00017000 
06017100 
00017200 
90017300 
00017400 
00617500 
00017600 
00017700 
00017800 
00017900 
90018009 
00018100 
00018200 
00018300 
G0018400 
C0018500 
00018600 
00018700 
00018800 


00019000 
00019100 
0C019200 
00019300 
00019400 
00019500 


00019700 
00019800 
00019900 
00020000 
00020100 
00026200 
00020300 
C0020400 
00020500 
00020600 
00020700 
00020800 


vor 


F.eP. REGS. 80.60C1C80 COUC1DODC 00.CiD1l1IC CTACOCOD O0GeU1B1C8 000647C8 0G.00000UG GCOGD000 

REGS 0-7 FFFFFF2E O0063FF8 OQOOICFI1C 0609090000 00000010 00000001 O0000012 00058045 

REGS 8-15 UGOCOO1L4 CU058044 OCCO00C2 90058043 6FO57FCE 000581F4 900580D6 000580D8 

DOG0I9 O99CO000 COCOeGCOO O00CO000 00000000 OOCS57FD8 OOOCOONN FFOEONGO BDNDD0Q00D KFecececveeccercceseeQessecsceesee*® 
089020 FFA50003 6FU07588 FFA509001 4F0580C4 CCOOFFOO QO000000 FFA5O235 AFO58516 Kec ccececcccveesDevessecsseveeveeX 
C00040 CCO57480 OC8OCCCR OOO6BDC8 00005920 O83CFCOO OUV009IEC DOD4OQ00G DOOOT4HIB Kescceecv ee cHevevvevecsccvscevecee® 
OC9C69 00040006 vQ0C7TBC8 00040000 00007588 COCOONS OO0N1L2ZDLO CCO4O0OGO ODDO T5SIAN Fees seesHecccrececccccscescesseve® 
O57FCO G6204177 000847FO 96085870 9C6647F0 95C6D500 SCD59CAT IOECDOOC O5CO4G1FO FeeeceeeCece eee eDeFNeeNeee cece e el% 
O57FEO C21650FD O00850DF 000418DF 07030008 DOOB58FO C26AD201 FOCOCO2Z2] 47FOCO2Z4 Be cec eevee ee eP eee se eDBeK eOe ce eee o® 
058000 OTFE989B C26E9867 C2621889 18580501 50008000 47D0CO03C 18588786 COBCD2Z01 Fe. e Be ee Be wee eNee weve cccsecee okKe® 
058020 CG6850C0 D2G15000 90G0D201 9C00C068 BIDATOZB DOCL4TFO COGADNN1O OOLZ0OLG Few eeKeweeeKesevesvcveeeQssecvese® 
G58040 0C190621 06290021 41400010 41500008 9601COFC 9602COFC 41800002 11884168  Fecccseeee ceoccccevevevsccssesccce™® 
058060 00024186 00621946 4740COA4 41E6COEA 41F8COEA D501LEQ00 FOOC4STZG COCA4GTFO Kec weccee se we eWe ee Be eNo wo eDe cece 00% 
058080 CO8O91G1 CUFC4780 COE44650 COB447F0 COE494FE COFC9ILO2 COFC4ST80 COTED4GFD Fe ccee see ewer eDeVorecccveccecee® 
058CA0 CCFC1B88 4/7FOCO80 D701E000 FOOCOD701 FOOOEOOG DZO1LEOOC FCOOSEOL COFC4ETFO Fee eee Dee Poe eo De Pee oe Poe eDe eee e 0% 
©580C 0 CO8CO0C3 47FCCCFE O0GZO00F 00130015 00190025 00280041 00630020 1B224920 eer eeDecenccccecccecvcccseeccsee® 
C580E0 C1724780 C15A4132 OCO00241E2 C16241F2 C160D501 EOGCOFOOO 47400126 412200802 hee eNe weer eShee2AeNoeeDee Asoo ee® 
C58109 47FCC190 v7GlECOO FOOODTCI FOOOEOCO D7TO1LEOO0O FOCO4B20 C2TA1L222 47400154 *.0A. P22 0s Pee ee Poe Dee eBaeee An*® 
058120 41E2C162 41F2C16C0 DS501E000 FO0C04740 C1261823 47F0C100 O00447FO C1740057 *.SAee 2A eNews Dee: Aone eVAne eo eOAo oe 
958140 OC43005E OUU20004 OCOLOCO5A OLBDOOS? 001041B0 CLEE5820 €2021B33 88200001 KeececcccrscevcccccceheseBesseeee® 
058160 1222478C C20841E3 BOO241F2 3000LAFF LAFBD501 EQOOFOOO 4720C1B2 41330001 *. ee eBe eo Te rele cece eNoe eQee eAoeeee* 
058180 41023000 59000202 478CC1IC 47F0C188 1843D201 C206E000 D201LE000 FUODCD2Z01L Fes eee eBo we eAe eOAee KeBe oe eKe eo eG. Ke* 
O581AC0 FOCOC206 19324780 C1lE81B32 4/7D0C1E8 41E3B002 41F23000 LAFFIAFB D501E000 *0.Beee ee AVo ee sAVeTeceleceeeeNo oo * 
9581C6 FOCO04720 C1B41834 47FCCI19E COOC0055 003A0004 00160017 OOZTOGBE ODO50002 FO. Ne wee ON ence crereseccccsceee® 
O5S81E0 GOCCOCLA &3D60CT5 58DD0004 98B8ECDOOC OTFEQCOG 000432E4 O0063F68B OODDDNDO Fee ee eDaec caves essccveeeUeassvsecee® 
958209 00043310 000432E4 OCO0000G cO000000 OO0CQ0NO GOOCOOCOD 3104330B 40000005 Feeee ee coc ccccccscveccessee eoe® 
058220 08043310 GO000C00 OED000GS OCOCD00C OQ004A6DC FFOZ24000 00043338 00043340 Fsccecscccccccesrcceses evesesee * 
9582490 O0OGCSOGU2 380058045 D0005851E 0005803A OOCO0NCO02 00058043 OO02Z40CC FFO5S4000 9 Keececccecccccccrccvcsccssee eve 0% 
958260 JOECDOCC O5COC4FO 07004110 CO0100511 OFO058304 TFFFOAODE S8BOOOLO JLLOBOTH Feeee eee Once ce ccc eseesevecccssece® 
053820 5C401G10 434CACC8 12444780 88504820 AO0E5420 8ADE4780 BITFTO6G20 5SAZOBOLO Fe. coe eo eceeevvecccereveccveceee® 


SOE 


PATR INTERCHANGING. 


LOC OBJECT CODE ADDR1 ADDR2 = STMT 


235 
236 
237 
238 
239 
240 
241 
242 

243 
244 
245 
246 
247 
248 


% St 3 Hite He 5 eH OH Oe 


SQURCE STATEMENT FOSAPRTO 
ANSWERS TO THE PAIR INTERCHANGE SORT. 


1. THE SWITCH CALLED *SW2' IS USED TO DETERMINE THE END OF A 
CYCLE. . 


2. ITEM "15" WILL BE LOCATED AT *PAIRLIST" AFTER 2 CYCLES. 
3. THE START OF THE SCAN IS SET UP BY THE CHOICE OF BRANCHING 


TO *PAITRLOOP® OR *PAIRLPL", BROUGHT ABOUT BY THE INSTRUCTIONS 
JUST IN FRONT OF 'INTRCHNGS. 


@®eeeeoeeee7esteenstneeseseeseeespeeeseeeetrteeeaeeoeseeewseeeeseoeeeee#eee es 8CeesoveseeweswoeenseccewmrcCscCccCOHcLUcUOCCUOmUMOUCUCOHUCUCMOMCUCOhUO 
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00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 


STFTING (BUBBLING). ; PAGE 8 


LOC NBJECT CODE ADDR1L ADDR2 STMT SOURCE STATEMENT FO8APR7/0 9/17/70 
000104 250 PASTINTG DS OH 00022500 
25] CCCI IC io io OK ack tlok kok ick doko aoktakcteek 00022600 
252 * . 00022760 
253 * ANOTHER METHOD OF SORTING THAT IS QUITE SIMILAR TO EXCHANGING 00022800 
254 * IS CALLED “STFTING". 00022900 
255 * "SIFTING" OPERATES A BIT DIFFERENTLY IN THAT IT WILL WORK [TS 00023000 
256 * WAY BACK TO THE TOP OF THE LIST UNTIL ITS NEW-FOUND LOW 00023100 
257 * NUMBER CAN BE PUSHED NO LOWER IN THE LIST. AT THIS POINT, IT 00023200 
258 * RETURNS TO THE PLACE WHERE IT LEFT OFF IN THE LIST AND 00023300 
259 * PROCEEDS TO SCAN TOWARDS THE BOTTGM LOOKING FOR ANOTHER 00023400 
260 * OUT—-OF-SEQUENCE NUMBER, WHICH IT WILL AGAIN TAKE TO ITS 00023500 
261 * APPROPRIATE POSITION TOWARDS THE TCP OF THE LIST. BECAUSE OF 00023600 
262 * THIS ACTION OF SHOVING THE SMALLEST NUMBERS TO THE LOW END OF 00023700 
263 * LIST, THIS METHOD IS ALSO CALLED "BUBBLING™. IN MOST CASES, 00023800 
264 * THIS TECHNIQUE REDUCES THE NUMBER QF COMPARES OVER THE 00023900 
265 * "EXCHANGING™ TECHNIQUE. NUMBER OF SCANS = 14 MINIMUM COMPARES Q0024000 
266 * = N-L, MAXIMUM =(LtESUMMATION(JS = 3 TON) OF (J-1L)). 00024100 
267 * 00024200 
268 * LEGEND: VERTICAL SEPARATION USING A STROKE *f* INDICATES A 00024300 
269 * COMPARE BEING MADE, SEPARATION WITH AN 'X* SHOWS A 00024400 
270 * NEED FOR AN EXCHANGE, WHICH IS CARRIED QUT BEFORE 00024500 
atl * THE NEXT COMPARE. 00024600 
272 * 00024700 
273 * COMPARE #1 #2 #3 #4 #5 #6 #7 #8 #9 #10 #11 #12 #13 #14 #15 900024800 
274 * 00024900 
215 * * 5<+ 5 5<+ 4 4 4<+ 1 l 1 1<+ 1 1 l 1 N 00025000 
276 * * { X X { 0 00025100 
2tt * % 6<+ 6K+ 4+ 5 5<t+ 1l<t 4 4 4<t+ 2+ 2 2 2 2<+ T 00025200 
218 * ** X X x | 00025300 
279 * D 4 4<t+ 6 6<+ L<t+ 5 5 5<+t 2<+ 4 4 4 4<+ 3<+ R 00025400 
280 * A X X X E 00025500 
281 * T 1 41 1 i<+ 6 6 6<+ 2<+ 5 5 5 5<+ 3B<K+ 4 Q 00025600 
282 * A X X U 00C25700 
283 * * 2 2 2 2 2 2 2<+ 6 6 6 6<+ 3+ 5 5 I 00025800 
284 * * X R 00025900 
285 * * 3 3 3 =) 3 3 3 3 3 3 3<+ 6 6 6 E 00026000 
286 * D 00G26100 
287 * ° 00026200 
288 CRC OO GR a ICR IGOR ORI CIS IC a GR aac ik a ak otk tok kiko 00026300 


LOE 


LOC 


000104 
000106 
OOO1OA 
QOOO1OE 
000112 
000116 
OCOLLA 
600120 
C00124 
000128 
00012C 
009132 
000138 
COCISE 
C60142 
C00144 
00148 
QOOL4C 
CQ0150 
000156 
OOO15A 
COC1L5C 


000160 
000162 


000166 
0090178 
OCO1TA 


STFTING (BUBBLING). 


OBJECT CODE 


1B22 
4920 
4780 
4132 
41E2 
41F2 
D501 
474C 
4122 
47FO 
701 
D7Ol 
D701 
4B 20 
1222 
4740 
41E2 
41F2 
D561 
4740 
1823 
47F0 


0004 
4TFO 


Cif2 


C15A 
0002 
C162 
C160 
EOQO0O 
C126 
0002 
C100 
EOQO0O 
FGOO 
EOOO 
C2tA 


C154 
C162 
C160 
ECOC 
C126 


C1ico 


C174 


FOOU 


FOG 
ECOG 
FOCO 


FOOO 


ADDR1 


00000 


00000 
yO000 
OG000 


J 


j9000 


00570043005E0002 


0010 


ADDR2 | 


00178 
00160 
00002 
00168 
00166 
00000 
0012C 
OCI02 
00106 
00900 
00000 
00000 
O0C280 


OOL5A 
C0168 
00166 
GOOCG 
0012C 


00106 


OO17A 


STMT 


290 
291 
292 
293 
294 

(295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 


313 
314 


316 
317 
318 


320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 


SOURCE STATEMENT 


STFTLOOP 


REVERSE 


FORWARD 


STFTEXIT 


STFTOATA 
SIFTDISP 
SHELLSTR 


4 
Ts 


Pa ee ee ee 


SR 
CH 
BE 
LA 
LA 
LA 
CLC 
BL 
LA 
B 
XC 
XC 
XC 
SH 
LTR 
BM 
LA 
LA 
CLC 
BL 
LR 
B 


R2_9R2 


R2_,STFITDISP 
STFTEXIT 
R3,L'*STFTDATACR2) 


RL5,STFTDATA(R2 ) 


REVERSE 


R2,L*SIFTDATA(R2) 


SITFTLOOP 


SET INDEX TO O. 


IF INDEX 
EXIT. 


= END OF LIST, 


FO8APR70 


OTHERWISE REMEMBER THE NEXT ITEM. 
R1L4,STFIDATAtL'SIFTDATA(R2) 
SET UP ADDRESSES OF TWO ITEMS, 
OC LSSIFTDATAsR14),0(0R15) 


OC(L'SIFTDATA,R14),0(R15) 
GOIL*STIFTDATA,R15) ,O(R14) 
O€LPSTFTDATA,R14),00R15) 


R2—9=AL2(L'SIFTDATA) SET INDEX = 


R29R2 
FORWARD 


IF < O 


RL4_¢SITFTDATAtL' STFIDATA(R2) 
SET UP TWO ADDRESSES FOR BACKWARD 


RL5,SIFIDATA(R2) 


O(LIESTFTDATA,R14),0(R15) 


REVERSE 
R2,R3 
STFTLOOP 


Htge 
SHELLSTR 


IF QOuT 
SET IND 


COMPARE THEM, 


IF QUT OF SEQUENCE, 
OTHERWISE, 


SWAP, 


SET UP FOR NEXT 


TWO ITEMS AND CONTINUE. 


SWAP TWO ITEMS 


TO PRECEEDING ITEM 


y RETURN TO FORWARD SCAN. 


SCAN AND COMPARE THE DATA. 


CF ORDER, 
EX = 


SWAP AND CONTINUE. 
REMEMBERED HIGH ADDRESS. 


AND GO BACK TO FORWARD SCAN. 


H* 87967994 92 949115909445, 87' 
AL2(STFTBISP-SIFIDATA-L'STFTDATA) 


OH 


TAKE A DUMP TO VERIFY SORT WORKS. 
BRANCH AROUND TABLES. 


CCI IORI I IO i ok OK i aK ok OR I kak ok ak oi ak ok ak of ak ok ak akc ok 


ANSWER THESE QUESTIONS ABOUT THE SIFTING SORT ROUTINE. 


IN THE LIST (EXCLUDING 87, 


WHICH INSTRUCTIGN(S) STOP US FROM 
ADDRESS END OF THE LIST ? 


*BUBBLING® 


WHICH INSTRUCTION(CS) DETERMINE THE END GF THE SORT ? 


OFF THE LQW 


HOW MANY SCANS WILL IT TAKE TO COMPLETELY SORT THIS LIST ? 


WHICH WILL BE THE 3RD TTEM TO OCCUPY THE LOWEST ADORESS 
WHICH WAS THERE AT THE START) ? 


SOI RIK OI IK IO I OR II IKE ROR I aK fe ak ak a kc ak ak ak ak ako ak ok ok ak ok ok of a ok ok ak oe ok ok 
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00026500 
00026600 
00026700 
00026800 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 
00028300 
00028400 
06028500 
00028600 


00028800 
00028900 


00029100 
00029200 
00029300 


00029500 
00029600 
00029700 
00029800 
00029900 
000 30000 
C0030100 
00030200 
00036300 
00030400 
00030500 
0C030600 
00030700 
00030800 
00030900 


80€ 


F.P. REGS. 8G6.0C1C80 OVOQIDODC 00.0kD11C OCGO00000 00.C1iB1C8 000647C8 OC .000000 OGO00000 

REGS 0-7 FFFFFF2E GO0632FF8 OQOO000010 00000010 00000010 00000001 00000012 G0058045 — 

REGS 8-15 00000014 00058044 O00000C2Z 00058043 6FO57TFDE OCO0581F4 00058148 G0058146 

CGOQ099 O00C000G GCINDGOCCO YOOD00000 OCL00000 OOO5STFD8 OGO00000 FFOB6BD0OD BOTCOO0D Kec cesrccnccccvesveeeQeevecserscecve® 
2009020 FFA5COU3 6F007588 FFAS5COOL 4F05813A OOOCFFCO OOD00000 FFQ40232 B00C4ELZE Feeccecccscccrerereecesercccssese® 
000040 JOG6AE4G UCGOGOCO 000014D0 00005920 083C8900 CO00996C DOC40000 DOOCOI4E9B Kone cece ecneccessevevesvsvccseses® 
90006C 0004000G cOGETBC8 00040000 00007588 OOQ00000 O0012D1L0 O0040000 OGOOTSIN KaeececeHecscscvescsvecvescseseee® 
O5STFCO 96204177 VOG847TFO 96085870 ICb&647FO0 95C6D500 SCD59CAT SCECDOOC O5CC4LFO Fee eee ec sDe eee ee eDeFNewNewecesee 0% 
O57FEO C21650FD OO00850DF O004L8DF D703D008 DOO858FO C26AD2Z01 FOOCCO2Z2 417FOCOZ24 FBeceecserece Pe eee ce eDBe Ke Oe eee Une ® 
058090 OTFE989B C26E9867 C2621889 1858D501 50008000 47D0C03C 18588786 COZ0DZ01L FeeeeBe ee Bee ee eNoecvevceseccceskKe* 
058020 C068&5000 D2015C0C00 90000201 9000C068 BTIIACTC2Z8 COOL4STFO CQBADOIC OOL3Z0ONLG  FeeweKeceeeKerecee cece e ee sesecee® 
0538040 0C190021 GG290021 41400010 41500008 9601COFC 9602COFC 41800002 11884168 Kee cceceee cover eneerevecceenecees® 
058960 09024186 006215946 4740COA4 41E6COEA 41F8COEA D5C1LEQCOO FO0004720 COCA4TFO Fesccr cece ee eWe ee Ge eNe oe eDe vee se 00% 
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60€ 


SIFTING (BUBBLING). 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
336 
337 
338 
339 
340 
341 
342 


343 


344 


345 
346 
347 
348 
349 
350 
351 


HH Hh se HHH eH eH He Ht 


SOURCE STATEMENT 


@eeoeeeevseoenveeseeeseeoeeeseteeseeeeoeeteeseoeeeeeeespseseoes ee eeeaeaeseesee ees eeae eevee ove eae7 eevee e@ 


ANSWERS FOR THE SIFTING SORT ROUTINE. 


1. 


THE TWO INSTRUCTIONS: "CH 


DETERMINE THE END OF THE SORT. 


THE TWO 


INSTRUCTIONS: "LTR R2y,R2* AND 


KEEP US FROM BUBBLING TOO FAR BACK. 


R2ysSTFTOISP!?® 


AND 


*BM FORWARD'® 


ONLY ONE SCAN [S REQUIRED FOR ANY STFTING SORT. 


THE ONE (1) 


LIST. 


THE ACTUAL ORDER WILL BE 67 IST, 


2 2ND, 


WILL BE THE THIRD TG OCCUPY THE LOW END OF THE 


FO8APR7/0 
"BE STFTEXIT! 
AND 1 3RD. 


@eeeeeeoenweoee4esensvpvneveveeneaeeses ees Beeoeseeseeseeseneesenanseewseeaeevee1estssa@eeeeeeeev ee eeewaeweaeaeneeen eae? 
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00031100 
00031200 
00031300 
00631400 
00031500 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 


SHELL'S METHOD OF SIFTING. ; : PAGE ll 


LOC OBJECT CODE ADOR1L ADDR2 STMT SOURCE STATEMENT FOB APR70 9/17/TC 
353 BE AE RE AE FE A Be AR A A AR RE A 2 A AE EA I RE KE EC A RE AE AR AR OC AS CR A SE AE AE AE A AE AE SE OE OE EK AE OK 2K 00032800 
354 * 00032900 
355 * SHELL*S METHOD OF SIFTING. 00033000 
356 * 00033100 
357 * THIS METHOD IS EXACTLY LIKE SIFTING EXCEPT THAT THE 00033200 
358 * COMPARISONS ARE MADE BETWEEN ITEMS THAT ARE *"M® PLACES 00033300 
359 * APART IN THE LIST. THE VALUE OF *M* MAY BE CALCULATED AS 00033400 
360 * FOLLOWS: NOTE..-'*M*® IS THE MODIFIER. 00033560 
361 * 00033600 
362 * INITALLY, "M* = N/2 (N = NUMBER OF ITEMS TO BE SORTED). 00033700 
363 * | 00033800 
364 * FOR THE SECOND AND SUCCESSIVE TIMES, §'M* IS EQUAL TO THE 006033900 
365 * PREVIOUS VALUE OF *M® DIVIDED BY 2. I.E. M = M/2. 00034000 
366 * 00034100 
367 * SCAN #13 MODIFIER = 6/2 = 3 0003420C 
368 * COMPARE #1 #2 #3 SCAN END. 00034300 
369 * 00034400 
370 * * 5 5< 1 l l 00034500 
371 * D 6 6 6< 2 2 00034600 
372 * A 4 4 4 4< 3 00034700 
373 * T i l1< 5 5 5 000348C0 
374 * A 2 2 2< 6 6 06034900 
375 * * 3 3 3 3< 4 00035000 
376 * 00035160 

w 377 * SCAN #23 MODIFIER = 3/2 = 1 00035200 
© 378 * COMPARE #1 #2 #3 #4 #5 #6 #7 SCAN END. 00035300 
379 * 00035400 
380 * * 1 1< l l 1 1 1 l l 00035500 
381 * D 2 2K aK 2 2 2 2 2 2 00035600 
382 * A 3 3 3< 3< 3 3 3 3< 3 C0035700 
383 * T 5 5 5 5< 5< 5 5< 4< 4 00035800 
384 * A 6 6 6 6 6< 6< 4< 5 5 00035900 
385 * * 4 4 4 4 4 4< 6 6 6 00036000 
386 * 00036100 
387 * SCAN #33 MODIFIER = 1/2 =03 NO SCAN REQUIRED, END OF SORT. 00036200 
388 * 00036300 
BQQ eRe aK oe oe ok a aK ok ok ook aK ook ok a oR I II IR RK I a 2 OK OK 2 IK RK OK RIK 600036400 


LLE 


LOC 


QOO17TA 
COOITE 
000182 
000184 
000188 
OOC18A 
QOO18E 
000192 
000196 
000198 
OOO19A 
OO01A0 
OOO01A4 
OCOO1LA8 
OOO1AC 
0001B0 
0001B4 
000188 
QOOO1BA 
0001C0 
O00C1C6 
0001CC 
OOC1ICE 
0001D2 
000104 
0001D8 
0091DC 
QOOC1EO 
OOO1E2 
OQOO1LES 
QOOO1EA 
COCIEE 
COOLFG 


QOO1F4 
000208 
O0020C 


SHELL*S METHOD OF SIFTING. 


OBJECT CODE 


41BC 
5820 
1833 
8820 
1222 
4780 
41E3 
41F2 
LAFF 
LAFB 
D501 
4720 
4133 
4102 
5900 
4780 
4T7FO 
1843 
D201 
D261 
D201 
1932 
4780 
1B32 
4700 
41E3 
41F2 
LAFF. 
LAFB 
D501 
4720 
1834 
47FO 


C1EE 
C202 


OCO1 © 


C208 
BOO2 
3006 


EOQOG 
C1B2 
Guul 
3G0U 
C202 
C1i7c 
C188 


C206 
E000 
FGOO 
C1E8 


C1E8 
BOC2 


3000 


EQOO 
C1B4 


C19E 


FQOO 


EGOO0 
FOOU 
C206 


ADDR1 


00000 


GCO20C 
00000 
OGCCO 


OGCO0 


000C0055003A0004 
COOOOCCGA 


ADDR2 


OO1LF4 
00208 


Q0001 


OO20E 
00002 
00000 


00000 
001B8 
00001 
00000 
00208 
00182 
CO18E 


00000 
O0c900 
Q020C 
OC1IEE 
OOG1EE 


00002 
00000 


00CG00 
OOiBA 


OO1A4 


STMT 


391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 


430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 


SOURCE STATEMENT 


LA R1L1,SHELLDAT ADDR. OF TABLE OF DATA. 
L R2_y~NUMBER NUMBER OF ITEMS 
RESET SR R39R3 INDEX = O 
SRL R2,l MODIFIER = MODIFIER/2 
LTR R2,R2 IF MUDIFIER = O, 
BZ FINISHED SORT IS FINISHED. 
SHELLOGOP LA R14,L*SHELLDAT(R3,R11) 
LA R15,0(R2,R3) GENERATE THE ADDRESSES OF THE ITEMS 
AR R15,R1L5 TO BE COMPARED. 
AR R1i5,R11 
CLC O(L®*SHELLDAT ,R14) -O(R1L5) 
BH EXCHANGE If OUT QF SEQUENCE, EXCHANGE THEM. 
BUMP LA R3,1(R3) BUMP THE INDEX. 
LA RO,O(R2,R3) 
C RC »NUMBER IF THE INDEX SENDS US OFF THE END, 
BE RESET GO BACK TO START (LOSE TwO TURNS). 
B SHELLOOP 
EXCHANGE LR R4eR3 REMEMBER WHERE WE ARE. 
EXCH MVC SHELTER,O(R14) SWAP TWO ITEMS. 
MVC O(L*SHELLDAT,R1L4),C(R1L5) 
MVC O(L'SHELLDAT ,R15) SHELTER 
CR R3sR2 IF INDEX = MODIFIER (RUNNING OFF LOW 
BE CONT - END), END OF BACKWARD SCAN. 
SR R3eR2 OTHERWISE, GO BACK SOME SPACE(S) 
BNP CONT 
LA R14,L*SHELLDAT(R3,R11) 
LA R15,O0(R2,R3) GENERATE TWO MORE ADDRESSES. 
AR R15,R15 
AR R1L5,R11 
CLC O(LISHELLDAT,R14),0(R15) 
BH EXCH AND CONTINUE THE SORT. 
CONT LR R3,_R4 RETURN TO HIGHEST LEVEL ATTAINED. 
B BUMP AND GO BUMP IT ONE. 
ok 
* DATA LIST FOR SHELL'S MODIFICATION. 


SHELLDAT DC 
NUMBER DC 
SHELTER DS 


BM HH HH HH HH He OH He 


H® 12485495894) 2242343936245,2! 
AC C¥-SHELLDATI/L'SHELLDAT) 


H 


WHICH INSTRUCTION(CS) 
REACHED WHEN WE BEGIN A BACKWARD SCAN ? 


WHAT WILL BE THE VALUE OF THE MODIFIER (™) 
SCAN ? 


HOW MANY SCANS WILL IT TAKE TO SORT 


E.G. 


TEMPORARY AREA FOR SWAPPING 


"SHELLDAT* ? 


3RD AND 9TH) ? 


FO8APR70 


ANSWER THESE QUESTIONS ABOUT SHELL?S METHOD GF SIFTING. 


DURING THE 3RD 


KEEP TRACK OF THE HIGHEST ADDRESS 


WHICH WILL BE THE FIRST 2 NUMBERS COMPARED ON THE 2ND 
SCAN (POSITIONAL VALUES, 


BOI I I GR RR II I IO I III I aK sak ak a kaif fe ak i i ki ak ake a ak as ake ak ae ake ak 
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00036600 
00036700 
00036800 
00036900 
00037000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 
00038200 
00038300 
00038400 
00038500 
00038600 
00038 700 
00038800 
00038900 
00039000 
00039100 
06039200 
00039300 
00039400 
00039500 
00039600 
00039700 
00039800 
0C039900 
0004CC00 
0C040100 
00040200 
060040300 


00040500 
0004C690 
00040700 
60040800 
COC40900 
00C41000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 
00041800 
00041900 
00042006 


FeP. REGS. 8C.001C80 O001LDODC 00 .01D11C 00000000 CO0.01B1C8 O0C0647C8 00.000000 000000C0 


cle 


REGS 0-7 QCOOOCOGA OO063FF8B DOCOQ0D0C VBOCOCOCO COOCO0O0O0T 00000001 00000012 C0058045 

REGS 8-15 OCCCO014 06058044 00000002 GO058I1CC 6FO57FDE O000581F4 OQOU581D6 OO0581LDE 

000000 000C0000 O00GGC00 900G00000 00C00000 OOU5TFDB O0000000 FFOGODND BO0DD00D Keer ccccesccccceeseQecceveevsesek® 
600020 FFA50003 6FO007588 FFA5000C1 4FC581E8 COOOFFOD COQ000000 FFO050234 FU0068520 FesccececeereceeVocsccveesessesee® 
C00040 OCO1B650 OCO0GO0O O000014D0 G0005920 O83C2ZFOO JOOCSGEC CCO40000 DO00THEIB Kec cccccnccccveccsccccescsccesccee® 
000060 00040000 O00C7BC8 00040000 00007588 OO000000 O0012D10 OOO4SO0OC OOODOTSIA Feces c He cece ccevecscesessccccve® 
O57FCO 96204177 JO0847FC 96085870 9C6647FO 95C6D500 SCD59CAT SOECDOOC O5CO4GLFO  FeeeeeeeDeeces eee FNe Nowe cvees eI% 
O5S7TFEO C21650FD GOO850DF O0041L8DF D7030008 DOO858FO C26AD201 FOOOCO22 47FOCO24 *€BicswscccesePeee ce eDBeK ee we slee® 
C58000 O7FES89B C26E9867 C2621889 1858D501 500080G0 4/7D0CO03C 18588786 CO3Z0D2ZOL Fee e Bee eBocce Neve cvvevevcscseke%® 
C58020 C€06%5000 02015000 90000201 9000C068 BITOACC2Z8 OCOOL4STFO COGAODGIO GOLZ001LG Kee eeK ecco eKe rece veces eee cere ee® 
058040 00190021 G9029G021 41400010 41590008 D6O1LCOFC 9602COFC 41800002 11884168 Keceecccee eecccsesccescvessesree® 
058060 90024186 GG021946 4740C0A4 41E6CCEA 4lLF8COEA D501E000 FOQ004GT2Z0 COCA4STFO Fev ecc ewes eo eWn ee Be oNn oe De vee e UH 
058080 CO809101 COFC4780 COE44E50 COB447F0 COE4S94FE COFCILO2 COFC4ETB8C COTEI4GFD Fee eeee ee Vere e eDeVe rec vccvecssee® 
9580A0 COFCIB88 4?7FOCO080 DTOLEOGO FCOOD70L FOOQEOOO D7O1LEOQOC FOOQCOIEGOL COFC4ETFO Fee cee Dee Poe oe De Pe De ce Poe eDn eee e eO* 
0580C0 C0800003 47FOCOFE OO002000F 00130015 00190025 00280041 00630020 18224920 FecereDerecccccensacccecccssevces® 
O580E0 C172478C C1i5A4132 COO2Z41E2 C16241F2 C1600501 EQOOFOOO 4740€C126 41220002 *AseeAe ewe e eSANee2AeNeeeDee Aveo a e® 
058100 47FCC100 D@G1LEO000 FOODODTOL FOOOEON0D D7TO1LE000 FO004B20 C27TA1L222 47400154 *.OA.P 2 eOeP De ee Pe ee De eBe wae An® 
058120 41E2C162 41F2C160 DS5C1LE000 F0004740 C1261823 47FOCLOG OO0447FO ClT4O0O001L *.SAe e2AeNeo ee Dee Avo ae eOheee e0Ae oe * 
058149 00020064 00430057 0057005A CO5E018D 001041B0 CLEE5820 C2021B33 B82TC000L Kec cecececcccccesecseNee eBevseeee® 
058160 12224786 C20841E3 BOOZ41F2 30001 AFF LAFBD5C1L EQCOFOOO 4720C1LB2 41330001 Fee ee Be eT eve 2ecceseNe ee De se eAeeeee*® 
058180 410230CG 5900C202 478CC17C 47F0C188 1843D201 C206E000 D2Z0LEQ00 FOOQODZOL Keener eBe ee Ae eDAee eK ee Boe eKe eo -O-K.* 
Q581A9 FOOOC2G6 19324780 C1E81B32 47D0C1E8 41E3B002 41F23000 LAFFLAFB DS5SOLEOCO *0.Be ee ee AVe ee eAVe Fe ce2eraeeeNe ee *® 
6581C0 FO004720 C1B41834 47FOC19E COOCD000 00000002 00050455 L7T002Z7T3ZA ZBEDOLG0D FO ce eA eee ce ONe cer ccvcervccccsecvce® 
O581E0 OOOCOOOA 16C0G005 58&DD0004 SBECDOOC O7TFEQ000 G00432E4 D0DE3BFEB OODDDQVOD FeececveevecscceccvccseeVssecseve® 
058200 00043310 000432E4 000000900 G00000090 OQ000000 OQOQ0000N 31043308 40000005 Ke see we Uo cenccecccsccsesccse coe® 
058220 08043310 O00GuC000 DEDO0000 00000000 QOC4A6D0O FFO2Z24000 00043338 00043340 Kee ccccccrerccccescsese eocvsvee * 
058240 00000002 00058045 0005851E C095803A GOQO00002 00058043 ODOO2Z400C FFO54000 Kec ceccecrerccscessecevrsess soe 0% 
058260 9CECDOOC O5C004FO 07004110 CO100511 OF 058304 TFFFOADE S8BOODO1LG DLICBOTGH Fee eece eDe cece vsvesecccseseeeseee® 
058829 50401010 434CA008 12444780 88504820 AQDQE542C 8A9E4780 BTFCOG2Z0 SAZOBOLO Fe cee soccer creer cccsereesccsesoe® 


eR RE ee HE I RC a RR EK RK HO RE a a a a A A I I OE HC I 2 A EE A HE ee he A Oe Oe OB Ke CE AE IK ee AE a IK He IEE BK RIK A HE A KC AR OR AE A Ae Ae Ke He 


LOC 


OO020E 
000210 
000214 
000218 
09021C 


000268 

000270 
w 000274 
® 000280 


SHELL*S METHOD GF SIFTING. 


OBJECT CODE 


0005 


58DD 0004 
98EC DCOC 


OTFE 


ADDR1 ADDR2 


0C004 
OOO00C 


00000002 0000006D 


090000000 


9000006200000006 


0002 


STMT 


447 
448 
449 


450 


451 
452 


SOURCE STA 


eee ee ee a ee eee ee a eee a a a ee ee a ee ee a ee ae a a ea a ee ee ee OC ee a ee ee Ce re 


HHH HHH HH HH HHH 


FINISHED DC 
L 
LM 
BR 

SAVEAREA DS 
END 


TEMENT 


ANSWERS FOR THE SHELL'S METHOD SORT. 


FO8APRZ0 


THE MODIFIER (M) WILL BE EQUAL TO 1 ON THE 3RD SCAN. 


5 FOR SCAN ly 2 FOR SCAN 2 AND 1 FOR SCAN 3. 
THERE WILL BE THREE SCANS ALTOGETHER. 


THE INSTRUCTION "EXCHANGE LR R4,R35 
MOST FORWARD POINT REACHED DURING THE SCAN. 


KEEPS TRACK OF THE 


THE FIRST AND THIRD VALUES IN THE LIST, SINCE THE MODIFIER 


IS EQUAL TO 2 DURING THE SECOND SCAN. 


H*58 

R13 94(R13) 
R1L4,R12,12(R13) © 
R14 

18F 


=A(2,INPTEND~1) 
=V(PCHKRETN) 
=ACINPUT+2,°0NPTEND-3) 
=AL2(L'*SITFTDATA) 


@#eeoeoeeeseeneeevwvee ee eeeeesgegeeeoeeese@#e#eeeeeseoeoneeaenseeeeensreereteeeseeoeeveesesee ov eaeoeeseeseoaee eo 08 0 @ 
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00042200 
00042300 
00042400 
00042500 
00042600 
00042700 
00042800 
00042900 
00043000 
00043100 
00043200 
0004330C 
00043400 
00043500 
00043600 
00043700 
00043800 
00043906 
00044000 
00044100 
00044200 
00044300 


POS.1D 


VLE 


REL.ID 


FLAGS 


RELOCATION DICTIONARY PAGE 1 


ADDRESS S/1T/T0 


00026C 
000274 
00027C 
000270 


SLE 


SYMBOL 


BR14 
BUMP 
COMPARE 
CONT 
EXCH 
EXCHANGE 
FINISHED 
FORWARD 
INPTEND 
INPUT 
INTRCHNG 
LINETEMP 
LOWER 
NUMBER 
PATREND 
PATRLIST 
PAITRLOOP 
PATRLPL 
PATRNUMB 
PATROUT 
PATRSW1 
PAITRSW2 
PAIRTEST 
PASTINTG 
PASTLINE 
RESET 
REVERSE 


SAVEAREA 
SHELL DAT 
SHELLOOP 
SHELL STR 
SHELTER 

SIFTDATA 


SIFTDISP 
STFTEXIT 


LEN 


00002 
00004 
00006 
00002 
00006 
00002 
00002 
00002 
00001 
00002 
00006 
00002 
00004 
90004 
00001 
00002 
00004 
C0004 
00001 
C0002 
90001 
cocol 
OUC04 
00002 
00002 
00002 
00006 
00001 
C0001 
Q90CO01 
00001 
OO001 
00001 
o0C001 


00001. 


09001 


03001 
00001 
COO001 
00001 
00001 
00col 
00001 
00904 
000G2 
00004 
00002 
00002 
00002 


00002 
00002 


VALUE 


000028 
OOC1A4 
000036 
COO1EE 
OOC1BA 
0C01B8 
00020E 
OCO1L5A 
OO006E 
000062 
COCODO 
COO06E 
000042 
000208 
006162 
OOCOFO 


OOCO7IC. 


600086 
00CCO8 
COOOEA 
000001 
CC0002 
OOOCAA 
600104 
G0007G 
006182 
00C12C 
06C000 
000001 
OO0CO0A 
00C00B 
00GG0C 
0CO000D 
OOUOOE 


GOGCGOF 
OCO00G2 


000003 
000004 
OCCOOS 
000606 
0CO007 
006008 
000009 
O0C21C 
OOG1F4 
GOO18E 
OOG17A 
00C20C 
000166 


000178 
000160 


DEFN 


00032 
00403 
OO0O77 
00422 
00409 
00408 
00463 
00310 
00094 
00093 
OG207 
00095 
00080 
00427 
00216 
00215 
00185 
00188 
00218 
Cu2l12 
00219 
00220 
00197 
60250 


00096 


00393 
00300 
00003 
00004 
00013 
00014 
OGC015 
00016 
OOO1T 


00018 


00005 


00006 
OO00T 
00008 
00009 
00010 
OOO11L 
00012 
OC467 
00426 
00397 
00318 
00428 
00316 


00317 
00313 


REFERENCES 
0030 0031 
0423 
0080 
0413 0415 
0421 
0402 
0396 
0305 
0067 0071 
0067 O471.- 
0195 : 
0085 OC87 
0078 
0392 0405 
0182 0218 
0182 0182 
0203 
0196 6206 
0183 
0198 6200 
0184 0197 
0185 0202 
0191 
0213 
0091 
0406 
0297 0309 
C404 0405 
0088 
0067 0391 
0019 09020 
0019 0023 
0019 6032 
0401 0409 
0022 0023 
0302 0307 
0290 6290 
0394 0395 
0293 0310 
0182 0190 
0073 OO77 
0071 0080 
OO7T1 
0072 0073 
006% OO072 
0022 
0391 0397 
0407 
0314 
6409 0411 
0293 0294 
O317 0472 
0291 0317 
0292 


CROSS-REFERENCE 


0469 


0186 


0211 


0201 
0204 


0397 
0021 
0024 
0192 
0410 
0024 
0308 
0291 
0395 
0393 
0408 
0079 
0188 


0077 
0086 


0401 


0294 


0471 


0188 


O021C 


0400 
0465 
0025 
0194 
0416 
0025 
0398 
C293 
0398 
0393 
0422 
0085 
0189 


Co7T9 
0087 


0410 


0295 


0189 


C416 


0026 
0207 
0420 
0029 
0399 
0294 
0404 
0397 


0086 
0190 


0080 
0088 


0411 


0296 


0192 


0419 


0026 
0208 
0465 
0030 
0399 
0295 
0412 
0398 


0183 
0192 
0186 


0416 


0298 


0193 


0464 


0209 
0466 


—0193° 


0400 
0298 
0414 
0403 


0199 


01st? 


0420 


0300 


0194 


0464 
0294 


0194 
0401 
0298 
0417 


0403 


0187 


0427 


0301 


0207 


0465 
0296 


0207 
0410 
0303 


0404 


0188. 


0427 


0302 


0208 


0300 
0208 
0411 
0304 


0408 


0189 


0303 


0209 


0301 
0209 
0417 
0304 


0412 


0193 


0306 | 


G218 


6302 
0295 
0418 
0306 


0414 


0205 


0306 


6218 


0306 
0296 
0418 
0307 


0416 


Q205 


0307 


PAGE 1 
9/17/70 
0308 0397 
6300 0301 
0419 0420 
0310 0392 
0417 0422 
0308 0317 


OLE 


CROSS-REFERENCE PAGE 2 


SYMBOL LEN VALUE DEFN REFERENCES 9/17/70 


SIFTLOOP 00004 000106 060291 0299 0311 

SORTPASS 00004 OOOG2ZE OO00T71 0088 

SORTSUPL 00001 O000CG0CO 00001 

SW 00001 000102 00217 0184 0185 0197 0201 0202 0204 0210 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

*STATISTICS* SOURCE RECORDS (SYSIN) = 443 SQURCE RECORDS (SYSLIB) = 25 

*OPTIONS IN EFFECT LIST, NODECK, LOAD, NORENTs XREF, NOTEST, ALGN, OS, LINECNT = 55 
555 PRINTED LINES 


LLE 


F44—~LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LET,LIST,NCAL 


VAKIABLE OPTIONS USED —- SIZE=(4505676144)- 
ITEWOOO0O ENTRY UTILITY 


CONTROL SECTION 


NAME ORIGIN LENGTH 
SORT SUPL 00 282 
UTILITY 288 5A0 

ENTRY ADDRESS 288 
TOTAL LENGTH 828 
%KH*GO DOES NOT EXIST 


MODULE MAP 


ENTRY 


NAME LOCATION 


PRINT 2EA 


BUT HAS BEEN ADDED TO DATA SET 


NAME 


PCHKRETN 


LOCATION 


546 


DEFAULT OPTION(S) USED. 


NAME 


LOCATION 


NAME 


LOCATION 


BLE 


He ee He ak Ra Re a oe oR a a ae ak fe he a 2 fe ie ic i a a ok 2 he a a he a ae He RR A IC Oe I BE Ke he RE he a he ae Me a RRA AE 28 a AE Be 2 ie ee 2 MR I CAE IK Ie ME Ce Bi OE He 2 Be RO HE Me He ME he Be He He eA Me HE HH eK a 2 He He eA KE 


QQQQQQQQ00 
QQQQQQQQQQQa 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ QQ 
QQ QQ QQ 
QQ QQQQ 
QQQAQQQAQQAQ 


QQQQQQQQ QQ 


UU UU 
UU UU 
UU UU 
UU ~UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UUUUUUUUUUUU 
YUUUUUUUUU 


EFEFEEEFEEEEF 
EEEEEEEEEEEE 


"EEEEEEEE 


EEEEEEEE 


EEEEEEEEEEEE 
EEEEEEEEEEEE 


9999999999 
999999999999 


999999999999 


SSSSSSSSSS 
SSSSSSSSSSSS 
SS: Ss 


SS$ 
SSSSSSSSS 
SSSSSSSS$5S 


SS SS 
SSSSSSSSSS5$ 
SSSSSSSSSS 


999999999999 


~99 99 


999999999999 
9999999999 


UU UU 
UU UU 
UU UU 
UU UU 
UU UY 
UU UU 
UU UU 
UU UU 
UU UYU 
UU UU 
UVUUUUUUUUUUU 

YUUUUUU UU 


PPPPPPPPPPP 

PPPPPPPPPPPP 
Pp pp 
Pp PP 
Pp PP 
PPPPPPPPPPPP 
PPPPPPPPPPP 

Pp 

Pp 

PP 

Pp 

PP 


LLELLLELLLLULL 
LLLLLLLLLLLL 


6LE 


SYMBOL 


QUEUEING 
PCHKRETN 


TYPE ID ADDR LENGTH LD ID 


SD 
ER 


O01 000000 O0001DC 
02 


EXTERNAL SYMBOL DICTIONARY 


13.05 
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9/17/70 


PAGE 1 


Loc OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOSAPRTO 9/17/70 
000000 1 QUEUEING CSECT 00000100 
2 COPY MHMBEGIN | 00000200 
000000 3 RO EQU 0 00000700 
000001 4 Rl EQU 1 00000800 
000002 5 R2 EQU 2 00000900 
000003 6 R3 EQU 3 00001000 
000004 T R4 EQU 4 00001100 
000005 8 R5 EQU 5 00001200 
000006 9 R6 EQU 6 00001300 
000007 10 R7 EQU q 00001400 
000008 - 11 R8 EQU 8 00001500 
000009 12 R9 EQU 9 00001600 
COOO0A 13 R10 EQU 10 00001700 
00000B 14 Rll EQU 11 00001800 
OOO000C 15 Rl2 EQU 12 00001900 
00000D 16 R13 EQU 13 00002000 
OQOO0E 17 R14 EQU 14 00002100 
COOOOF 18 R15 EQU 15 00002200 
©G0000 9OEC DOOC 0000C 19 STM R149R12,12(R13) SAVE THE CALLER'S REGISTERS 00002400 ° 
000004 O05C0 20 BALR R12,0 ESTABLISH PROGRAM BASE 00002500 
000006 21 USING *,R12 LET THE ASSEMBLER KNOW. 00002600 
OC0006 41FO CO8E 00094 22 LA R15,SAVEAREA ADDRESS OF MY SAVE AREA 00002700 
CGCOCOA 5OFD 0008 00008 23 ST R15,8(R13) BACKWARD CHAIN 00002800 
COOQO0E S5CDF 0004 00004 24 ST R1394(R15) FORWARD CHAIN 00002900 
w 000012 18DF 25 LR R13,R15 ESTABLISH MY SAVE AREA 00003000 
S 000014 0703 DOO8 DOG8 00008 00008 26 XC 8(44R13),8(R13) TERMINATE THE FORWARD CHAIN 00003100 
2 * END OF STANDARD ENTRY LINKAGE CONVENTIONS. 00003200 


28 PRINT OFF 00000300 


LZe 


LOC 


00002A 
00002E 
c09032 
0060036 
00903A 
O0003E 
009042 
000046 
O0004A 
O0004E 
000050 
000054 
000056 
OCOO5A 
CCOO5C 
00005E 


~0090062 


000064 
900066 
COQO6A 
90006C 
909070 
000072 
000078 
COOCTE 
000084 
900088 
00008C 
CO0090 


QUEUE PROCESSING TECHNIQUES WORK 


OBJECT CODE 


ADDR1 


COQD6 
0008 
COED 
0004 
COF9 
COEE 
0002 
GOCcd 


0000 


C050 


C040 
00C4 


CO6A 
CO06C 
COFE COFE 00104 


C112 Cil2 00118 
C126 Ci26 0012C 


C038 


0004 
DOOC 


ADDR2 


OGODC 
00008 
OOOF3 
00004 
OOOFF 
COOF4 
00002 
00000 
00090 


00056 


C0046 


00004 


00070 
00072 


00104 
00118 
O012C 
OCO3E 
00004 
O000C 


STMT 


35 
36 
37 
38 
39 
40 
41 
42 
43 
44 


18 


83 


| . ; | 


PROJECT. 


SOURCE STATEMENT VU 


rOBAPR 
BE FE AK FE AK AR AK A CE AR A A KK AE SAK OK IS OK A I AE ER IE RE AE AK SE OE EE AE A OK IE AES HE A OE AE EC KE AE OE OO AE OK A OK OK OK OK 2K OK 


THIS CODE TESTS ALL THE QUEUEING ROUTINES. IT LINKS TO EACH 
4 TIMES. IT WIit ADD 2 ELEMENTS TO THE QUEUE, TAKE A DUMP, 
ADD A THIRD ELEMENT, TAKE ANOTHER DUMP, REMOVE THE FIRST 
ELEMENT FROM THE QUEUE, AND TAKE ANOTHER DUMP. THIS 
SEQUENCE ALLOWS YOU TO SEE THE CONTENTS OF EACH QUEUE AS IT 
TS BEING BUILT. 


HHH HH HH H 


TEAR AE RE AE A AE A A HE AE CE AE KC OE A ACK OK OC A Re HE AE a OK 2 a AC OK AC A CE AE i A A i 2 2 ei ok Ae i 2 ai a i oi ok a A ok 


HK A RCA CK I ea a aK aK a a a 2 OK a aK 2 i AK KK oe oe i afc i ok a ae i a I EK OK i a oi a a a i OK aK oo a ae a 2 a ie ok aK fe ok 2K ok ok 
- ao ok ek tok TNSTRUCTIONS TO THE READER. #4 ERKKRKRKKKK 
ai fe ae oe a a a ak ofc fc ak ok oko ea aK Xa OK ae eK KK a OK kK CK KK OK 
TES SSCOSoS SSeS eS SSS SC SSCLCoCCSS SSS SOCSL SSCS SCLC SS SC LS SSS SSS SS Se Ss eS eS ee 2 
* 
* SKIP OVER THIS TEST CASE CODE AND GO RIGHT TO THE PAGE THAT 
* HAS THE HEADING "DIRECTIONS TOG THE STUDENT, TWO PAGES FROM 
* HERE. 
* 
SPSS S LL SPSS SS LSS SLL SLPS eS SSS SSS LS SS LS SSL SSS SS SSL SS SL SSS SS SSS SSS SS St 2 2s 
BEGIN LA R5,QUINGLST ADDRESS OF QUEVEING ROUTINE ADORS. 
LA R6,8 INCREMENT. 
LA R7,QELEMNTS—1 ADDRESS LIST END. 
LA R894 INCREMENT. 
LA R9,BLOCKI-1 ADDRESS OF LIST END. 
TESTLOOP LA R10,QELEMNTS ADDR. OF ELEMENTS ADDRESS LIST. 
LA Rlls2. LQOP COUNT BEFORE FIRST DUMP. 
QENTER L R1,O(R10) ADDRESS OF A QUEUE ELEMENT TO ADD. 
L. R15,0(R5) ADDR. OF ENQUEUE SUB-ROUTINE. 
BALR R14,R15 LINK TO ENQUEUE ROUTINE. 
BCT R11,NODUMP “DUMP ONLY AFTER ADDING 2 ELEMENTS. 
DC H'of 
NODUMP BXLE R10,R8,QENTER ADD TOTAL OF THREE ELEMENTS TO Q. 
DC H* 1° DUMP AFTER ADDING 3RD. 
SR R1,R1 RESET PARAMETER REGISTER. 
L R15,4(R5) ADDR. OF DEQUEUE SUB-ROUTINE. 
BALR R14,R15 LINK TO DEQUEUE ROUTINE. 
LTR R1yRl FIND ONE ? 
BP DUMPIT YES, TAKE A DUMP. 
DC H'28 NO, TAKE A DUMP (DEBUG). 
B DUMPIT+2 
DUMPIT DC H'3e | 
XC BLOCK1+4(8),BLOCK1+4 CLEAR THE 
XC BLOCK2+4(8),BLOCK2+4 LINK FIELDS 
XC BLOCK3+4(8) ,BLOCK3 +4 IN THE BLOCKS. 
BXLE R5_,R6,TESTLOOP LOOP THROUGH ALL ROUTINES. 
RETURN L R13+4(R13) RELOAD SAVE REGISTER ADDRESS. 
LM R14,R12,12(R13) RELOAD CALLER'S REGISTERS. 
BR R14 RETURN 


PAGE 2 


O0CO1LSDGO 
00001100 
0CG001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 


00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
0C002900 
00003000 


00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004C00 
000041900 
00004200 
00004300 
00004400 
0000450C 
0C004600 
00004700 
00004800 
00004900 
00005000 
00005100 
0000520C 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 
00005900 
00006000 


cE 


LOC 


000094 
0000DC 
OOO00E4 
OOOOEC 


OOOOF4 
000100 
000101 
000104 
000114 
000115 
C00118 
000128 
Cc0129 
CO012C 


009090 
COOOCO 
C90001 
O0C004 
C09008 
OO009C 


OBJECT CODE 


000001 3CO0Q0000156 
000001 7400 0G018A 
0900019C000001C2 


0000010000000114 
09 

000000 , 
0000000000000690 
Ol 

000000 
C000000000000000 
06 

000000 
000000C0G0000000 


000004 


000008 


C00000 


QUEUE PROCESSING TECHNIQUES WORK 


ADDR1 ADDR2 STMT 


PROJECT. 


SOURCE 


SAVEAREA 
QUINGLST 


QELEMNTS 
BLOCK1 


BLOCK2 


BLOCK3 


QELEMENT 
PRTY 


LINKFWRD 
LINKBKWD 


DI SPLFWD 


DISPLBWD | 


QUEUEING 


STATEMENT FO8APRTO 
DS 18F 

OC | AC FIFOENQ2,FIFODEQ2) 

DC A(LIFOENQ1l,LIFODEQL) 

oc ACPRTYENQ]»PRTYDEQL) 

OC A(BLOCK1,BLOCK2,BLOCK3) 

pC xfogt PRIORITY 

OC AL3(0) 

pc GEOe 7 

DC x'oit PRIORITY 

pC AL34{0} 

DC 4FtOF 

DC X"06" PRIORITY 

pC AL3(0) 

DC 4EtOS 

DSECT DUMMY SECTION FOR A QUEUE ELEMENT. 
DS C PRIGRITY VALUE 

DS AL3 

DS F FORWARD LINK FIELD. 

DS F BACKWARD LINK FIELD 

DS 2F | | 

EQU  LINKFWRD-QELEMENT DISPLACEMENT TO FORWARD LINK FIELD. 
EQU  LINKBKWDO-QELEMENT DISPLACEMENT TO BACKWARD LINK FIELD. 
CSECT RESUME CSECT. 
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00006200 
06006300 
00006400 
00006500 


00006700 
00006800 
00006900 
00007000 
00007100 


00007200 


00007300 
00007400 
00007500 
00007600 


00007800 
00007900 
Q00008000° 
00008100 
00008200 
00008300 
00008400 
00008500 


00008700 


Loc 


€Ze 


OBJECT CODE ADDR1 ADDR2 


QUEUE PROCESSING TECHNIQUES WORK 


STMT 


114 
115 
116 
117 
118 
119 
120 
121 


122 
123. 


124 
125 
126 
127 
128 
129 
130 
131 
132 
133 


(134 


135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


151 


152 
153 
154 
155 
156 


a a ee a Se a a a Se va Se 


PROJECT. 


SOURCE STATEMENT FO8APRTO 


FE RO CICS GE OIG GIG ICCC GIGI ICI OI ICIS I ICI iI a IGRI Ia ICICI I III RA aac iat 
FO ooo ioktoktckiockt DIRECTIONS TQ THE STUDENT. 230 ROR a tok tok a a aba tok 
Fe OR I OR FOR IOK eee eee eee oe aoe - 2 OR CCE ak a ick ak a a tok a 
SIG IO OK a I a ia Oa ak i a ia a ak kei a ak aka ak aca ai a a a a a ak ak ak ak ake ak ak a kc ak 


ON THE PAGES THAT FCLLOW, THERE ARE SAMPLES OF THE CODE 
WHICH MAY BE USED TG PROCESS SEVERAL OF THE DIFFERENT 
KINDS QF QUEUES THAT WE HAVE JUST DESCRIBED. 


FIRST, SCAN OVER THE DESCRIPTION OF THE QUEUE THAT THE 
CODE IS PROCESSING, AND BE CERTAIN THAT YGU UNDERSTAND 
WHAT THE QUEUE SHOULD LOOK LIKE. 

THEN, LOOK AT THE FIRST. OF THE THREE DUMPS THAT FOLLOW 
THE CGDING SAMPLE. THIS DUMP SHOWS THE QUEUE AS IT WILL 
LGOK AFTER *BLOCKIL® AND "*BLOCK2* HAVE BEEN ADDED. USING 
THE CODE AND THE DATA IN THIS FIRST DUMP, DRAW A PICTURE 
-QF THE QUEUE AS IT LOOKS NOW. USE THE.,WORK PAGE SUPPLIED: 
(NEATNESS DOESN'T NECESSARILY COUNT). 


THE NEXT THING THAT WILL HAPPEN TO THE QUEUE IS THIS: 
THE ADDRESS. OF "BLOCK3* WILL BE PASSED TO THE. ENQUEUE 
ROUTINE IN REGISTER 1. IN THE SPACE PROVIDED ON THE 
WORKSHEET, DRAW THE QUEUE AS IT WILL LOOK WHEN .*BLOCK3! 
HAS BEEN SUCCESSFULLY ENQUEUED. YOU MAY USE INTUITION 
.OR THE CODE TO FIGURE OUT WHAT IT WILL LOGK LIKE, BUT 
BE CORRECT...«eOR ELSEseseee 
NOW, CHECK YOUR DIAGRAM AGAINST THE DATA IN THE SECOND 
DUMP, WHICH HAS *BLOCK3" ENQUEUED. IF YOUR DIAGRAM DOESN'T 
MATCH, YOU MAY: 
Ae. GO BACK OVER THE CODE AND FIND OUT WHERE YOU WENT ASTRAY. 
Be WAIL, GNASH YOUR TEETH: AND SHOUT FOR YOUR INSTRUCTOR, 
WHO WILL LEAD YOU BACK TO THE STRAIGHT PATH.... 


LASTLY» THE DEQUEVE ROUTINE WILL BE LINKED TG, AND AN 
ELEMENT WILL BE REMOVED FROM THE QUEUE~? IN ACCORDANCE 

WITH THE QUEUE'S METHOD OF PROCESSING. AGAIN, DRAW THE 
QUEUE AS IT SHOULD LOOK AFTER THE ELEMENT HAS BEEN 

REMOVED. és ; ae ae 
AS BEFORE, CHECK YOUR DIAGRAM AGAINST THE QUEUE THAT IS IN 
THE DUMP, AND THEN CHOOSE ONE FROM A. OR Be ABOVE? IF 

YOUR DIAGRAM DOESN! T MATCH. 


DK HE IK AK RE OC Ae EC HE OK EE I 2K he hE OE OK OK OE OE OK I OE a Ne OK CE OE OE AE AC CK BC RE AK OK KC CE OK A A AE I RE IK RC AS OK OK OK HE AE 
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00008900 
00009000 
00009100 
00009260 
00009300 
00009400 
00009500 
00009600 
00009700 
00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 


00012300 


00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013600 
00013100 


vee 


LOC 


060000 
90013C 
000140 
0900144 
000146 
OGO14A 
OO0O14E 
000150 
000154 


009000 
000156 
OOO15A 
OO015E 
000160 
000162 
000168 


OO0O016A 
COC16C 


FIFO QUEUE, DOUBLE HEADED, SINGLE THREACED. 


OBJECT CODE 


ADDR1 ADDR2 


582C C1é6A 00170 
5010 C16A OG179 
1222 
4770 C1l4A 00150 
5010 C166 0016C 
OT7FE 

5010 2004 00004 
OV7FE 

41FO C166 0016C 
581F 0000 00000 
1211 

O7BE 

0203 FOO0O 1004 00000 00004 
O7FE 

0000 

0000000000 000000 


STMT 


202 


SOURCE 


STATEMENT FO8APR70 


HE HA He He He a eM He Re EH a HR I AE He HE I EE IE OK eA I A A AE RE A HC I A I I I AE eR KK OK 


* 


THESE ROUTINES. PROCESS A DOUBLE HEADED; SINGLE THREADED, 
FIRST-~IN+FIRST-QUT QUEUE. | 


HE HR HE HE eH He A He He A AE Hc He CE a EE A I I A I A A AR HE EE RK A A OK OE 


RRA RR ERE KERR EAE E HR AR AE RE REE RRR RAK ER RAR RO I RK 


* 
* 
ste 
* 
* 
te 
x 


FIFOENQ2 


ENQUEUVE SUBROUTINE. 


ON ENTRY, REGISTER 1 CONTAINS THE ADDRESS OF THE ELEMENT 
TO BE ENQUEUED. 


Me EM He He Re Xe He He Re ae HEE He eR HE RE ale ae ee a he ae ae eR RE ae Se MC RR ERE HI Ke He KE AE RE KC I AE ee ec ae Hc 3c 


USING QELEMENT,R2 


L R2yFIFO2ZHLT +4 ADDRESS OF LAST ELEMENT. 

ST RLyFIFO2ZHLT+4 ADD THE NEW LAST. 

LTR R2yR2 WAS THE QUEUE EMPTY ON ENTRY ? 

BNZ *+10 NO. 

ST R1l,FIFO2H1T YES, PUT NEW ELEMENT AT TCP OF Q. 
BR R14 AND RETURN. 

ST Rl »LINKFWRD ENQUEUE THE NEW ONE AT THE END OF Q. 
BR R14 AND RETURN. 


Me eC aC OC AE i EE ae I A ee a He aE a OC 2 ae Oe OR AC OE a Me OE EO Ee ee a Re eC EE Re He a A A a I ae AE A MK Ae a A aK 


xe 
x 
+ 
* 
x 
x 
x 


FIFODEQ2 
DE QC OMMN 


FIFO2H1T 


DEQUEVUE SUBROUTINE. 


ON RETURN REGISTER 1 WILL CONTAIN O'S OR THE ADDRESS OF THE 
ELEMENT THAT WAS DEQUEUVED. 


FEC OIA AICI OI IO IORI ICI IC I III I RR ROK I ak 


DROP R2 

USING QELEMENT»R1 

LA R15,FIFO2HLT ADDRESS OF QUEUE TQ BE USED. 

L R1,0(R1L5) ELEMENT AT THE TOP. 

LTR R1lyR1 WAS THE QUEUE EMPTY ? 

BCR 8,yR14 YES~e RETURN. 

MVC 0(4,R15) »LINKFWRD NO, REMOVE THE TOP ELEMENT. 

BR R14 RETURN 

DC Zrnor Qe 


HEAD FOR 2 HEADED, 1 THREADED FIFO 
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00013300 
00013400 
00013500 
00013600 
00013700 
00013800 


00014000 
00014100 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 


00014900 
00015000 
00015100 
00015200 
00015300 
00015400 
00015500 
00015600 
00015700 


00015900 
00016000 
00016100 
00016200 
00016300 
00016400 
00016500 
00016600 


00016800 
00016900 
00017000 
00017100 
00017200 
00017300 
00017400 
00017500 


00017700 


Gece 


FIFO QUEUE, DOUBLE HEADED, SINGLE THREADED. 


LOC OBJECT CODE ADDR1 ADDR2 STMT 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 

° 215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 


240 


241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


ee ee a ye eT ea See a Ss 


HE AC a oR a He AE iS iC CE a a A OKC OK aK 2c ik aK a ic a of Re a a a ae i AK 2 ot ie Ar 2 SE a aK oe ee a fe 2K ic Re a oe oe ae oe he a a Ke ok ao a 


SOURCE STATEMENT 


eK 


He 
* 


WORKSHEET FOR 


AFTER 


*BLOCKL' 


LOOKS LIKE: 


"FIFO2HIT® 


t~—<--~—— + 
{ ! 
$n t 
I i 
$n + 
AFTER *BLOCK3! 


*"FIFO2HIT! 


tree oe 


+= + 


AFTER AN ELEMENT HAS BEEN DEQUEUED, 


*"FIFO2HIT! 


THE DOUBLE HEADED, 


AND 


HAS BEEN ENQUEUED; 


*BLOCK2* 


FOSAPRT0O 


SINGLE THREADED, FIFO QUEUE. 


HAVE BEEN ENQUEUED, THE QUEUE 


THE QUEUE LOOKS LIKE: 


- oF 


THE QUEUE LOOKS LIKE: 


POC IORI 2 IGG IG oi RI a IIA ook oka a a ik i kak ak fea ok ok ok cage ae ok ak 
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*e*EK OQOOOLTIOC 


00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
00019000 
CO019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 


~ 9002000C 
00020100 


00020200 


~ Q0020300 


00020400 
00020500 
00020600 
00020700 


~ 90020800 


00020900 
00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 
00022400 
00022500 
00022600 


9ce 
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LIFQ QUEUE, DOUBLE HEADED, 
OBJECT CODE ADDR1 ADDR2 
5820 C18E 00194 
5010 C18E 00194 
5020 1004 00004 
1222 

OTTE 

5010 C192 00198 
O7FE 

41FO C18E 00194 
47TFO C154 OO15A 
0000 

O0000CO0GCGCO0000 


SINGLE THREADED. . | PAGE 7 
STMT SOURCE STATEMENT FO8APR70O 9/17/70 
253 RIO CIC IGOR RGR OR IO IR AK i a tok tock dk ak tok keke §800022800 
254 * 00022900 
255 * THESE ROUTINES PROCESS. A DGUBLE HEADED, SINGLE THREADED, 00023000 
256 * LAST~IN-FIRST-OUT QUEUE. 00023100 
257 * 00023200 
258 2 ICR RICO CR ACI RO ICR IO CK IOC oR ck koko a ok ~=O0023300 
2 60 RIC RCI CORIO CC CO ak ak kok tote tok ek ee 00023500 
261 * | 00023600 
262 * ENQUEUE SUBROUTINE. 00023700 
263 * 00023800 
264 * ON ENTRY, REGISTER 1 CONTAINS THE ADDRESS OF THE ELEMENT 00023900 
265 * TO BE ENQUEUED. 00024000 
266 * 00024100 
2 67 OC IORCIICR ACR IOI ICCC IORI CI Ri RAC a kick aoa oktekok ek kek §00024200 
269 LIFOENQI L R2yLTFO2ZHIT CURRENT FIRST ELEMENT. 00024400 
270 ST R1lsLIFO2H1T ADD NEW TO TOP. 00024500 
271 ST R2eLINKFWRD NEW 1ST POINTS TO OLD IST. 00024600 
272 LTR R2_9R2 WAS THE QUEUE EMPTY ? 00024700 
273 BCR T,R14 NO, RETURN. 0G024800 
274 ST Rl ,»LTFOZH1LT +4 YES, ENQUEUVE NEW ONE AT BOTTOM OF Q. 00024900 
275 BR R14 AND RETURN. © 00625000 
277 XR ICI OR CR i ok dak i tet deka aka tok te teak tok kaka ctr 00025200 
278 * | 00025300 
Zo DEQUEUE SUBROUTINE. 00025400 
280 * C0025500 
281 * SAME AS THE DEQUEUE SUBROUTINE FOR DEQUEUEING FROM THE SINGLE 00025600 
282 * THREADED, DOUBLE HEADED FIFO QUEUE. THE TECHNIQUE OF REMOVING 00025700 
283 * AN ELEMENT FROM THE TOP CF A QUEUE IS THE SAME, AS LONG AS 00025800 
284 * THE PHYSICAL ATTRIBUTES OF THE QUEUE ARE THE SAME (HEADING & 00025900 
285 * THREADING). . 00026000 
286 * 00026100 
287 3K IOI OI OCI IG IOI I IIR OI a I ia ick ak kak ok a a dot =00026200 
289 LIFODEQI LA R1i5,LIFO2H1T ADDRESS OF THE QUEUE TO BE USED. 00026400 
290 B DEQCOMMN BRANCH TO COMMON ROUTINE. 00026500 
292 LIFO2H1T DC 2Fto" HEAD FOR 2 HEADED, 1 THREADED, LIFO Q 00026706 


LCIFQ QUEUE, DOUBLE HEADED, SINGLE THREACED. PAGE 8 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR70 9/17/70 
204 COICO IOI RO ui giao goiooiick tok iaktckcck 00026900 
295 % O0CO27000 
296 * WORKSHEET FOR THE DOUBLE HEADED, SINGLE THREADED, LIFO QUEUE. 00027100 
29T * 00027200 
298 * AFTER *BLOCK1® AND *BLOCK2" HAVE BEEN ADDED, THE QUEUE LOOKS 00027300 
2°99 * LIKE THIS: 0002740G 
300 * 00027500 
301 * "LIFO2HI1T? 90027600 
302 * $e + 00027700 
303 * { i , 00027800 
304 * ta + 00027900 
305 * } ] 00028000 
306 * +—~— = + 00028100 
307 * 00028200 
308 * 00028300 
309 * 0002840C 
310 * 00028500 
311 * 0002 8600 
312 * AFTER "BLOCK3" HAS BEEN ENQUEUVED, THE QUEUE LOOKS LIKE? 000287C0 
313 * 000288C0 
314 * “LIF OZCHLT* 00028900 
315 * $a + 00029T00 
316 * { i 00029100 
317 * + -- + C0G29 200 
318 * { | 00029300 
319 * + + 00029400 
220 * 00029500 
321 * 00029600 
322 * 00029700 
323 * 00029800 
224 * CGO029900 
3225 * 00030000 
326 * AFTER AN ELEMENT HAS BEEN DEQUEUED, THE QUEUE LOOKS LIKE: 00030100 
327 * 00030200 
328 * TLIFQ2HIT* 00030300 
329 * $ ~-teee + 00030400 
330 * | | C0030500 
33] * $e + 00030600 
332 * i J 0G0307CO0 
333 % $e + 0003080C 
334 x 00030900 
335 * 069031000 
336 * C0C31100 
237 * 00931200 
338 x* 00031300 
22Q * 90031400 
340 * 00031500 
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3.49 ECO IO GIG III I IO to dol doko lok sok oaccktokckeks 0900032400 
35] CI IG dO CII IE 2 a ao ia aka kt ka ok ttt 000632600 
352 * 00032700 
353 * ENQUEUE SUBROUTINE. 00032800 
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355 % ON ENTRY, REGISTER 1 CONTAINS THE ADDRESS OF THE ELEMENT C0033000 
356 * TG BE ENQUEUED. 00033100 
357 * 00033200 
BS QB KAKA RE A OE OK 2 AE eK I IE SI OK EC AE OI AE A BE OR OK IS IE OK KE EE EO OE SI I OO a RO OC OK OK KK OK A OK KKK KKK 6 OO033 300 
60019C 4120 C1CA 00100 360 PRTYENQ1 LA R2—>PRTYLHIT-OISPLFWD MAKE THE "HEAD* PUINTER LOOK LIKE 00033500 
O001A0 1832 361 PRTYSCH1 LR R3yR2 THE FIRST ELEMENT IN THE QUEUE. 00033600 
OOCLA2 5822 0004 00004 362 L R2,DISPLFWUO(R2) GET THE ADDRESS OF THE NEXT ELEMENT. 00033700 
000146 D500 1000 2000 GOCGO0 00000 363 CLC = PRTY,0(R2) IS THIS THE RIGHT PLACE TO INSERT ? 00033800 
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BTL ARR AE RE IS EE OK 2 OK 2 a A IE RE I EE A OC OO EE AR AR HE AE AE OE HE AE AE AS KE AE AE AE EE AE EK OI OIC EE A OK AE IE OK OK KAKI OK KKK =6—OCO34600 
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BT BQ RRR EK OK a A OK EK ER EK A NE RC EE AC KR EE OC A OI 2 AS oC RE KO RO OK AE aK AK OK EAE OE OK KE OK KK ACK =~ O035300 
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00040000 


DO0858FO 
00044190 
C0400001 
D707C112 
00066F68 
C6C6D200 
4170415E 
0005A994 
00000000 
o00c00000 
C166581F 
5010C18E 
0005A980 
10043004 
OOO5AD1E 
58800010 
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80000000 
00007498 
OOOO751A 


C1D2D201 
COFO41A0 
1BL158F5 
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00000000 
20005000 
OOO5A9BC 
OOO5A9A8 
OCOQ00000 
5820C16A 
00001211 
50201004 
4120C1CA 
50130004 
41104160 
91LLOBOT4 
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REGS 0-7 
REGS 8~15 


000000 
C00020 
000040 
O0C0EC 


054880 
C5ABA0 
O5A8C 0 
O5A8BEG 
05A900 
054920 
05A940 
05A960 
05A980 
O5A9A0 
O5A9C 0 
O5A9E0 
O5AA90 
O5AA20 
O5AA40 
O5AA60 


058029 


FFFFFF2E 0005A980 0005A994 0005A980 
00000604 OOO5A97TF 0005A980 FFEFFFFFF 


90000000 
FFC5G003 
O0G06BD98 
0004000C 


SOECDOOC 
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COEE4160 
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413360001 
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OOO5A9D6 
O900C 000 
00000000 
5010C16A 
O78ED203 
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00000000 
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0002581A 
12114720 
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403040BC 
40044780 
CO05A9F4 
GOO5A9A8 
00000000 
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FO0001004 
5010C192 
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00000C00 
FFC50001 
000014D0 
00040000 


C O8E50FD 
O7FE4150 
00005 8F5 
CO6AG002 
5 8DD0004 
4174G0AC 
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OOO5AA0A 
00000000 
06000000 
C14A5C10 
O7FE0000 
O7FE41F0 
10002060 
078ED203 
07004110 


47F095C6 


00000000 
6FO5A8F2 
00005920 
0000 7588 


CO00850DF 
C0D64160 
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98ECDOOC 
15674720 
A0B44004 
OOO5AA1C 
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46B0C050 
00030707 
O7FEAOB8 
C7664156 
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00000000 
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OOOSASAB 
C1540000 
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D7TO7C1ll12 
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C6C6D200 
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OO005A994 
0GO000000 
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5O10C18E 
O0005A980 
10043004 
OOO5SADIE 
58800010 
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50201004 
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POS.ID 


REL.ID 


FLAGS 


RELOCATION DICTIONARY | PAGE 1 


ADDRESS — GFILT/STO 


oo000DC 
O0000E0 
O000E4 
O000E8 
OOO0EC 
O0000FO 
O000F4 
OO00F8 
OOOOFC 
000108 


Ove 


SYMBOL 


BEGIN 
BLOCK1 
BLOCK2 
BLOCK3 
BR14 
DEQCOMMN 
DISPLBWD 
DISPLFWD 
DUMP IT 
FIFODEQ2 
FIFOENQ2 
FIFO2HIT 
INSERT 
LIFODEQI 
LIFOENQI 
LIFO2H1T 
LINKBKWD 
LINKFWRD 
NODUMP 
PRTY 
PRTYDEQL 
PRTYENQL 
PRTYSCHL 
PRTYLH1T 
QELEMENT 
QELEMNTS 
QENTER 
QUEUE ING 
QUINGLST 
RETURN 
RO 

R1 


R10 
R11 
R12 
R13 


RQ 
SAVEAREA 
TESTLOOP 


LEN 


00004 
00001 
C0001 
C0001 
00002 
00004 
00004 
00004 
00002 
00004 
00004 
00004 
00006 
00004 
C0004 
00004 
00004 


00004. 


00004 
00001 
00004 
00004 
00002 
00004 
00001 
COC04 
00004 
00001 
00004 
00004 
O0CG1 
OO00G1 


00001 
00001 
00001 
00001 
00001 
00001 
00001 


00001 
00C01 
00001 
00001 
OO00L 
00001 
00001 


00004 


00004 


VALUE 


OO002A 
000100 
000114 
000128 
C00028 
OOOLS5A 
000008 
000004 
OO0G70 
000156 
00U013C 
00016C 
000166 
OO0018A 
0G0174 
006194 
000008 
000004 
006056 
000006 
0001C2 
CO019C 
OOC1LAO 
0001D4 
00UC00 
OCOOF4 
000046 
400000 
OOCCDC 
000088 
000000 
O0C001 


QOOOO0A 
00000B 
GOOOO0C 
00000D 
OOOOOE 
OCOOOF 
000002 


000003 
000004 
000005 
000006 
OOOCO? 
000008 
O0C009 
000094 
OOOO3E 


DEFN 


00057 
00093 
00096 
00099 
00032 
00196 
00110 
00109 


00078 | 


00195 
Oul7Td5 
00202 
00367 
00289 
00269 
00292 
00107 
00106 
00069 
00104 
00380 
00360 
00361 


00386 


06103 
G0C92 
00064 
00001 
00088 
00083 
00003 
00004 


00013 


00014. 


00015 
00016 
C001? 
00018 
00005 


00006 


00007. 


00008 
00009 
00010 
OOO1L 
00012 
00087 
00062 


REFERENCES 
0061 0079 
0080 0080 
0081 0081 
0030 0031 
0290 
0360 0362 
0075 0077 
0088 
0088 
0175 0176 
0364 : 
0089 
0089 
0269 0270 
0110 
0109 0181. 
0067 
0363 
0090 
0090 
0366 
0360 0380 
0109 0110 
0059 0062 
0069 
0112 
0057 
0064 OO71 
0380 0381 
0062 0064 
0063 0067 
0019 0020 
0019 0023 
0019 0032 
0022 0023 
0174 0175 
0365 
0361 0367 
0057 0065 
0058 0082 
0059 
0060 0069 
0061 
0022 
0082 


~ CROSS=REFERENCE © 


0079 
0092 
0092 


0367 


. 0179 


0274 


0199 


0383 


0174 


0071 
0381 
0069 


0021 
0024 
0066 
0024 
O17? 


0368 


0072 


0092 


0368 


0195 


C289 


0271 


0194 


0074 


0084 
0025 
0073 
0025 
O17? 


0082 


0367 


0074 


0026 
0084 
0029 
0193 


0383 


0176 


0026 
0085 
0030 


0269 


0179 


0083 
0180 
0065 
0271 


0181 


0083 


0182 
' 0066 


0272 


0194 


0084 
0198 
0072 
0272 


0196 


0200 
0073 
0360 


0197 


0273 
0195 
0361 


OL9T 


0275 
0196 


0362 © 


0270 


0369 
0199 
0362 
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0274 


0382 
0289 
0363 


9/17/70 


0368 


0384 


0365 


Lve 


STMT 


NO STATEMENTS FLAGGED 


ERROR CODE 


*STATISTICS* 
*OPTIONS IN EFFECT* LIST, 
501 PRINTED LINES 


MESSAGE 


NODECK, 


DIAGNOSTICS 


IN THIS ASSEMBLY | 
SOURCE RECGRDS (SYSIN) = 411 


LGAD, NORENT,, XREF¢ 


NOTEST, 


ALGN, 


OS, 


SOURCE RECORDS (SYSLIB) = 


LINECNT 
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ove 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,yLET LIST, NCAL 
VARIABLE OPTIONS USED — SIZE=(45056,6144)- 
ENTRY UTILITY 


TEWO00O0 


CONTROL SECTION 
NAME ORIGIN 
QUEUEING CO 
UTILITY 1E0O 
ENTRY ADDRESS 
TOTAL LENGTH 


*KEXGO DOES 


DEFAULT OPTION(S) USED 


MODULE MAP 
ENTRY 
LENGTH NAME = LOCATION NAME LOCATION NAME LOCATION 
1DC 
5A0 
PRINT 242 PCHKRETN 49E 
1E0 
780 


NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


NAME 


LOCATION 


Eve 


eek tokio Rolo oi ated ak kak a akc ake teak a aie a ae ae a ak afk ak ak aes aca et ° 


PPPPPPPPPPP 
PPPPPPPPPPPP 
pp PP 
PP pp 
pp PP 
PPPPPPPPPPPP 
PPPPPPPPPPP 
PP 

Pp 

pp 

PP 

pp 


PPPPPPPPPPP 
PPPPPPPPPPPP 
PP PP 
PP pp 
PP pp 
P PPPPPPPPPPP 
PPPPPPPPPpPP 
PP 

PP 

PP 

PP 

Pp 


DDDDDDDDD 
DD DDDDDDDD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DDDDODDDDD 
DDDDDDDDD | 


9999999999 
999999999999 


WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW 
WW WW WW 
WW WWWW WW 
WW WW WW WW 
WWWW WWWW 
WWW WWW 
WW WW 


99 99 


99 99 
99 99 
999999999999 


999999999999 - 


99 
99 


99 99° 


999999999999 
9999999999 


PPPPPPPPPPP 

PPPPPPPPPPPP 
pp pp 
pp 7 pp 
PP pp 
PPPPPPPPPPPP 
PPPPPPPPPPP 

Pp 

pp 

Pp 

pp 

pp 


00000000 
0000000000 
00 — 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
GO 00 
0000000000 
00000000 


1111111111 
Lilliliilil 
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EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL TYPE ID ADDR CENGTH LD ID | —=—614.54 9/16/70 


PC Oi 000000 000178 
THCSSQRT ER Q2 
PRINT ER Q3 


Sve 


LOC 


000000 
000000 
000004 
000006 
000006 
COOOO0A 
000010 
C00014 


* OBJECT CODE | ADDR1 


S9O0EC DOOC 
05C0 


4110 CO72 
D747 1000 1000 00000 
5010 D008 
58D0 D008 


ADDR2 


0000C 


00078 
00000 
00008 
00008 


STMT 


ONoONFWD = 


SGURCE STATEMENT 


CSECT 

STM 
~BALR 

USING 

LA 

XC 

ST 

L 


1491291213) - 


12,0 

*_12 
1,SAVIT 
O(72,1),01) 
1,8(0,13) 
13,8(0,13) 


SAVE REGISTERS 


CLEAR SAVE AREA 


SET SAVE POINTER 


FO8APR70 
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00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000706 
00000800 
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LOC OBJECT CODE ADDR1 ADDR2 STMT  SQURCE STATEMENT | . FOS8APR70 9/16/70 


LL RRR RRR RRR KKK KKK KREK T N TR OD UC T I O N RRR RK KKK K RRR KKKKX QOOOOLLOC 
12 * * 00001200 
13 * * 00001300 
14 * O SINCE A STORAGE DUMP [IS A VALUABLE AID IN PROGRAM PROBLEM * 00001400 
15 * SOLVING,IT IS APPARENT THAT THE MORE FAMILIAR YOU ARE WITH * 00001500 
16 * A DUMP THE BETTER. * 00001600 
17 * —%* 00001700 
18 * | * 00001800 
19 * O THE FOLLOWING PROJECT WAS DESIGNED TO FAMILIARIZE YOU WITH * 00001900 
20 * STORAGE DUMP ANALYSIS. * Q0002000 
21 * * Q00021090 
22 * O ANSWER ALL QUESTIONS IN THE SPACE PROVIDED. * 900002200 
23 * 7 * 00002300 
24 * O ANSWERS TO THE QUESTIONS ARE GIVEN. * 00002400 
25 * * 00002500 
26 * O THE ORDER OF THE PROJECT IS AS FOLLOWS: * QO0O0Q02600 
24. % 1. EXPLANATION,CORRECT * OQO0002700 
28 * RESULTS AND ROUTINE. * 00062800 
29 * 2. LINKAGE EDITOR MAP. * 00002900 
30 * 3. QUESTIONS AND ANSWERS . ¥* 00003000 
31 * 4. STORAGE DUMP. * 00003100 
32 . * 00003200 
33% * 00003300 
BG eK 2 ea a EK ee he 2 A 2 oe a 2 2 2 A HE a Ne OE OK NC IK OK ei RR i a A CO ie ae he Oe i a aK a ok KKK KKK =O O003400 


Lve 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8SAPR70 9/16/70 
37 K+teeetettettt+e++e+ F X PL ANA TION O F R GQ@QUTINE +4+++4+4+++* 00003700 
38 * * 00003800 
39 * O THE ROUTINE USED IN THIS PROJECT USES FLOATING POINT * 900003900 
4Q * ARITHMETIC TO SOLVE FOR THE ROOT GF A QUADRATIC EQUATION. * 00004000 
41 * * 00004100 
42 * O AS A LITTLE REVIEW OF HIGH SCHOOL ALGEBRA, A QUADRATIC * 00004200 
43 * EQUATION IS LAYED OUT AS FOLLOWS: * 00004300 
44 * * 00004400 
45 * 2 * 00004500 
46 * Y=AX #BX-C * Q00004600 
47 * * 9GC004700 
48 * * Q000480G6 
49 * O THE ROOT MAY BE FOUND THROUGH THE USE OF THE FOLLOWING FORMULA:* OC0O04900 
50 * * OGGO500C 
rrr * 00005100 
52 * _-.f 2 * QO0052S0 
53 * X = -B+ VB ~4AC * 00005300 
FB a ee eae cee ane a a ce ae emcee a ae * QO0005400 
55 * 2A * GO0CG05500 
56 * * 00005600 
57 * * QC005700 
58 * O I THINK YOU RECALL FROM A PREVIOUS SECTION;THAT IF YOU WANT TO * 00005800 
59 * FIND THE SQUARE ROOT OF A NUMBER YOU CAN EITHER WRITE A * QC005900 
60 * ROUTINE YOURSELF OR LINK TO A SUBROUTINE. SINCE THE WRITING * QGO006000 
61 * OF A SQUARE ROOT ROUTINE CAN BE QUITE TEDIOGUS,I'LL LINK TO * 00006100 
62 * OUR OLD STANDBY»,*XXXSSQOQRT!CTHCSSQRT IN OQUR CASE), TO SOLVE * 90006200 
63 * FOR : __ * 00006 300 
64 * ei A 2 * 00006400 
65 * V B —4AC * Q0006500 
66 * | * QO0006600 
67 * 2 * QCO006700 
68 * O THE QUADRATIC USED IN THIS EXAMPLE [S Y=2X +11X-21 * 00006800 
69 * THEREFORE, A=2, B=1lly C=21 * 00006900 
70 * . * OQOO00TCOO 
7] CCRC OI IOI OI GIO RII i tok tok sok kok tokio kK «=GO0071L00 


Sve 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOBSAPRT70 9/16/70 


14 FARRER AZARSRATZSZSES CC GORREC TI RE S UL TV S BBRSEC ERE e ARE 4EZEZEEZSZ OOOOTSOO 


15 *% % 00007500 
16 ¥*% . 4 00007600 
TT *2% 2 % QOOO07T00 
18 *% | B ~4AC SHOULD EQUAL: 4312100000000000 % 00007800 
19 *% % 00007900 
80 *% 2A SHOULD EQUAL: 4140000000000000 * 00CO08C00 
81 *% * 00008100 
82 *% Bo ieee % 00008200 
83 *% a fe 2 00008300 
B84 *% V B ~4AC SHOULD EQUAL: 421100000CC00000- 2 00008400 
85 *% % 00008500 
B6 *% ad % 00008600 
BY *F% O SINCE THE FORMULA CALLS FOR -Bt (THE SQUARE ROOT ETC.) THERE % COQ008700 
88 *% WILL BE A POSITIVE ANSWER AND A NEGATIVE ANSWER TO THIS % 00008800 
89 *% PROBLEM . THE RESULTS ARE: % 00008900 
90 *% 4 00009000 
91 *% POSITIVE: 4118000000C00000 AT LOC.*XSUBL'% 00009100 
92 *% % 00009200 
93 *% NEGATIVE: CL7OOGOGOCOO0000 AT LOC.*XSUB2'*% 00009300 
94 *% % 00009400 
95 *% % 00009500 


FO KE BEEEEZLLREELLSBBBBRLBRBRDDBREDEEREBRHELERBEEEREBEEREBBEBEEBEBRERBKERBBERREZZS 00009600 


6vE 


LOC 


006018 
CO0001C 
COSOLE 
000022 
090026 
O090002A 
C0002C 
909030 
CO9034 
000038 
QOOO03A 
OOOO3E 
000042 
900046 
0C0048 
COO04A 
00004C 
C09050 
000054 
000056 
009058 
OCOO5A 
QOO005E 
000062 
CO9066 
099068 
CODC6A 
COOO06E 
OC0072 
OGV076 
000078 


9090C0 


0090139 
CCO13C 
OG0140 
000148 
O0014C 
N9CCL50 
C00154 


J00158 
000160 


000168 


OBJECT CODE 


1860 
3C 00 
#320 
7020 
7020 
3BO02 
6000 
4110 
58FO 
O5EF 
1840 C142 
7040 C14E 
7820 C146 
3122 

3A20 

3D24 

7020 C152 
782C C146 
3122 

3B20 

3D24 

7020 C15A 
4110 COBA 
58FO C16E 
OSEF 
900C 
58DC 
581C 
980C 
OTFE 


C146 


C136 
C142 
C14A 


C13A 
C13A 
C16A 


DOO4 
DOO8 
D014 


FLE3C8C9E240C9E2 


CI0000 

414C00U00 
OO000000000G0000 
41299000 
41B00000 
C2150000 
41200000 


VD0000CO000000G0 
0000000000000G00 


80000140 


ADDR1 ADDR2 


O014C 


0013C 
00148 
00150 


00146 
00140 
90170 


00148 
00154 
0014C 


00158 
OO1L4C 


00160 
OCUCO 
00174 


00004 
00008 
00014 


STMT 


QB XE OK OK KE KK KE 


99 
100 
101 
102 
ECS 


SGURCE STATEMENT 


whe : 
oe 


104 — 


105 
106 
Loe 
108 
109 
110 
111 
lle 
113 
114 
£5 
116 
117 
118 
LS 
120 


SAVIT 
oc 


MESSAGE DC 


x 


FOUR 
DOUBLE 


LE 
MER 
LE 
ME 
ME 
SER 
STO 
LA 

L 
BALR 
EE 
ME 
LE 
LNER 
AER 
DER 
STE 


LM 
BR 
DS 


DC 
DC 
DC 
DC 
DC 
DC 


DC 
DC 


DC 


eof ak aK ae ak ok ok 
0,B 

0,0 

2¢F OUR 
29A 

2C 


O02 
OsDQUBLE 
1,COUBLE 


15,=VUTHCSSQRT) 


14,15 
4,A 
4,TWO 
278 

292 

230 

234 
29XSUB1 
27B 

292 

230 

294 
29XSUB2 
1,MESSAG 


15,=VC(PRINT) 


14,15 
H'O! 


E 


13,4(C,13) 


1480.13 
Oyr1l2,20( 
14 
1 8F 


E*'4* 
D®'O® 
Eta? 
ana: Ot 
E“=2i% 
Etat 


DFQ' 
D*G! 


) 
13) 


TOON EK 2K ARE AE a KE EO AE OK EE OK OC KK OK KK aK KK 
B 
B ** 2 
4 
4 * A 
4 *® A * C 
Bx*E2 — 4*AXC 
PASS THE ACDRESS OF THE F.P. 


A 
2*A 
B 
-B 
-B + SQRT(B*¥*2 ~- 4*A*C) «24.-THE SQ.RCOT 
FIRST ROOT 
F.eP. 
B 
=5 
=—B:-= SORT (B82 = 45 Ate) 
SECOND ROOT 
PRINE THE MESSAGE=—<=---—-<+--- + 
l 
l 
GET HIGHER SAVE POINTER j 
| 
i 
l 
i 
V 


RESULTS .ceeeee 


@eeevs#se#e 


X*80',AL3( DOUBLE) 


FO8SAPRT70 


THCSSQRT. 


GO FIND THE SQUARE ROOT. 


CLI21'1THIS IS THE SOLUTION TO THE QUADRATIC ROOT PROBLEM. 


POSITIVE ROOT STOKED HERE. 
NEGATIVE ROOT STORED HERE. 


NUMBER TO 


ee 


* 


i 


x 
* 


COMES BACK IN* 


* 


i i a | a (a a i 


% 2% dt 3 3t Ht OH 4e Ht 


% 


PAGE 5 


9/16/70 


09009800 
06009900 
CGO010C000 
66010100 
00010200 
00010300 
00010400 
00010590 
00010600 
00010700 
00010800 
00610900 
00011600 
0C011160 
00011200 
00011300 
00011400 
00011509 
COU1160C 
00011700 
060118006 
0C011900 
06012000 
66012100 
00012200 
00C1230C 
00012400 
00012590 
0C0126CC 
0001270C 
0001280¢ 
00012900 
0G013000 
00013100 
06013200 
00013300 


00013400 
00013500 
0UG1360C 
0001370C 
CCU13800 
00013900 
600140006 
00014100 
00014200 
00014300 
00014400 


Ose 


F44-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LEF,XREF,LIST 
VARIABLE OPTIONS USED -—) SIZE=(45056,6144)~ 


DEFAULT OPTION(S) USED 
ENTRY UTILITY 3 


TEWOOOO 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH. NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
$PRIVATE 00 178 
UTILITY 178 5A0 : 
| PRINT 1DA PCHKRETN 436 
THC SSQRT* 718 145 . 
SQRT 718 
THC ECOMH* 860 F39 
IBCOM# 860 FDIOCS# 91C INTSWTCH L77E 
IHCCOMH2* 17A0 651 
| SEQDASD 1BO0C 
IHCERRM * 1DF8 5BC . 
ERRMON 1D0F8 IHCERRE 1E10 
IHCFCVTH* 23B8 119D | 
* ADCON# 23B8 FCVAOUTP 2462 FCVLOUTP 24F2 FCVZOUTP 2642 
FCVIOUTP 29F0O FCVEOUTP 2EF2 FCVCOUTP 310C INT6OSWCH 33F3 
IHCEFNTH* 3558 512 
ARITH# 3558 ADJSWTCH 38C4 
IHCEFIOS* 3A70 131C 
. FIOCS# 3A70 FIOCSBEP 3AT6 
IHCUOPT * 4D90 3A0 : ) 
IHCETRCH* 5130 28E 
THCTRCH 5130 ERRTRA 5138 
IHC UATBL* 53C0 148 
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 
170 IHC SSQRT IHC SSQRT 174 PRINT UTILITY 
TE8 IBCOM# IHCECOMH 810 THCERRM IHCERRM 
91C SEQDASD -THCC OMH2 1684 ADCON# THCFCVTH 
167C FIOCS# IHCEFIOS 1688 ARITH# IHCEFNTH 
16A8 ADJSWTCH IHCEFNTH 1630 IHC UOPT ITHCUOPT 
16A4 IHC UOPT IHCUOPT 168C FC VEOUTP IHCFCVTH 
1690 FCVLGUTP ~THCFCVTH 1694 FCVLOUTP IHCFCVTH 
1698 FCVCOUTP. IHCFCVTH 169C FC VAQUTP IHCFCVTH 
16A0 FCVZOUTP THCFCVTH 162C IHCERRE IHCERRM 
165C IHCCOMH2 IHCCOMH2 1660 IHCERRM IHCERRM 
1634 IHCCOMH2 THCCOMH2 1638 IHCCOMH2 IHCCGMH2 
163C IHCCOMH2 IHCCOMH2 1640 IHCCOMH2 IHCCOMH2 
LA31 IHC ECOMH ITHCECOMH 1A34 IHCECOMH IHCECOMH 
1L7E4 IHCERRM IHCERRM 17EG IBCOM# IHCECOMH 
1C51 IHC ECOMH IHCECOMH 1C6l IHCECOMH IHC ECOMH 
1C71 IHC ECOMH THC ECOMH 23A4 IHCUOPT IHCUOPT 


LOCATION 


LSE 


LOCATION REFERS TG SYMBOL IN CONTROL SECTION REFERS TO SYMBOL IN CONTROL SECTION 
23A8 iIBCOM# THC ECOMH 23AC THCTRCH PHCETRCH 
23B0 FIOCSBEP IHCEF TOS 33B4 IBCOM# THCECOMH 
33B0 THCERRM THCERRM 3914 IBCOM# THC ECOMH 
3918 INTSWTCH THCEC OMH 38C0 INT6SWCH THCFCVTH 
38BC THCUGPT IHC UOPT 3920 ADCON# THCFCVTH 
391C FIOCS# THCEF IOS 398C THCERRM IHCERR™M 
3BD0 TIHCERRM IHCERRM 49CO THCUATBL THCUATBL 
49CC IBCOM# THCECOMH 52A4% IBCOM# THCECOMH 
52A8 ADCON# THOCFCVTH 52AC FIOCSBEP THCEFIOS 

ENTRY ADDRESS 178 
TOTAL LENGTH 5508 
AKG DOES NOT EXIST BUT HAS BEEN ADDED TO CATA SET 


PAGE 6 


LOC OBJECT CODE ADDR1 ADDR2 = STMT SOURCE STATEMENT FO8APR70O 9/16/70 


147 *$EHhH$ESHSS$ESSSHESHSSSESHESESH$S$S QUESTION 15.1 S$HSHSHHELHFEHSSSSHSHS SEES HSSESHE OOCL 4/700 


148 *$ $ 0001480C 
149 *$ THE LOCATIONS IN CORE YOU SHOULD LCOK AT IN CRDER TC $ 0CG14900 
150 *$ DETERMINE IF THE RESULTS OF THE ROUNTINE ARE CORRECT $ CGO015000 
151 *$ ARE: $ 00015100 
152 *$ A. 20 AND 28 + THE STARTING ACDRESS OF THE PROGRAM,$ 90015200 
153 *$ Be 158 AND 160 + THE PROGRAMS STARTING ADDRESS ~$ 00015300 
154 *$ Ce. 158 AND 160 IN THE CORE DUMP $ 00015400 
155 *$ D. 63FA0O AND 63FA8 $ GO0O15500 
156 *$ $ 00015600 
157 *$ $ CO0015700 
158 *$EESHEFSHSSHSFSHSHHSHSEFSFEFHHSSHHHSHFEFHFEHHFSHHSHHHFLSESHESHFFESFHSFSESHHEHSHSHESHSHSHSHSESSHESSSE GCOLS800 


cSe 


Se 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


161 
162 
163 
164 
165 
166 
167 
168 


170 
171 
172 
173 
174 
175 
176 
17? 


179 
180 
181 
182 
1 83 
184 
185 
186 
187 


SQURCE STATEMENT FOR8APRTO 
Kowwr rs S SSS SF Sse seers sss srr sss ANSWER 15.] 32estSeesesee5See5 res e2eeSSe5re=e=== 
K= B IS THE CORRECT ANSWER = 
*kK= = 
*= LOCATION 158 AND 160 HEX IN THE PROGRAM ARE *XSUBL AND XSUB2!° = 
Kx = 
Koro S SSS STS Sse SSS SS SS SSS TPB tS Ste tS tse ests eee tts esses esses Sesser sess 
KE tee tte te tet et ete tee eeteette WT SD OM Fete eteetete eee teeter ee eeteeretet 
+ + 
*+ PROGRAMS ARE FOR THE MOST PART JUDGED ON WHETHER OR NOT THEY + 
*+4 PERFORM CORRECTLY. THAT 1S TG SAY, WHETHER OR NOT THE CORRECT + 
*+t ANSWERS COME OUT. LET'S SEE IF THE RESULTS GF OUR PROGRAM ARE + 
*+ RIGHT. + 
K+ + 
KEEFE EERE EEE EEE EE EE EEE EEE EERE EEE EEE EE EEE EE EEE EE EEE EEE EEE EEE EEE Het te 


*ESHSHSSESHSSESESHESHHSESHESHSESHSHSS QUESTION 15.2 SHESHESHSSSSSESHESEHESLHSHHGSHSLEGGSS 
* $ $ 
*$ $ 
* WHAT ARE THE CONTENTS OF LOCATIONS *XSUBI1® AND *XSUB2" IN THE $ 
* $ STORAGE DUMP ? £ 
* § THE ANSWER IS _oow - § 
* $ $ 
x $ $ 
KEFSSHESHSSHSFSESHHESEESHSESSLESHESHHFHHSHEHFSHESESHSESEHSHHSHGSSHSLEFESLHHSSL ELE SISSS 
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9/LE/TC 


00016100 
00016200 
CO016200 
00016400 
OG0165%0O 
60016606 
OCO0167CC 
ODO001LE8TO 


00017000 
QEGLT100 
00G172U0 
00017300 
O0CO11400 
00017500 
CCOLTE90 
CO01LTTOO 


COC1LT9I00 
00018000 


— 00018100 


GOULB2CC 
60018300 
30618400 
00018506 
00018600 
QOCLBTOC 


vVSE 
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LAC = OBJECT CODE ADDF 1 ADDR2 STMT SOURCE STATEMENT FOBAPRTO 9/16/70 
189 *s22sS22eeeSeeeeesezescee—czze=z= ANSWER 15.2 SSR Bsr resssstrsssesssesesseze= 00018900 
190 *= = 90019000 
191 *= = GOC1ILCO 
192 *= ZEROS = 900019200 
193 *= = 00019300 
194 x= = 00019400 
195 *s= SSR SSSt eS SS St SHS STS SESS PSSST SSS SSS SSS SSS SSS STs Ss sR Bests Ssssssserscsrezses= OCOlLSSGO 


LOT KEEFE HEHE HEHEHE Hee te tet etteteet WTS DO MM Fttettte ete te tee ttettettetetetet+ OUCLITIUG 


198: et + OOCL98CO 
199 *+ + 00019900 
20C *+ THIS WOULD LEAD ME TO BELIEVE THAT SOMETHING HAS GONE AWRY + 00020000 
201 *+ WITH OUR PROGRAM. WHY DON'T WE GO ON TO SEE IF WE CAN + 06020100 
202 *+ EVENTUALLY DETERMINE WHAT THE PROBLEM IS. + 00020200 
203 + + 00020300 
204 *+ + CO020406 


QOS KEEEEEHEEEHEEE EEE EEE HE EEL ERE EERE EEE EEE EEE EEE EE EEE EE EE EE HEE ee ee eet eetttte++ ©) 900020500 


207 *KSSHSSHSSSSHHSEEHSSHESESSSSSHSHSS QUESTIGN 15.32 H$HSFESSESFSHSHESHFEHHEESSSESESSS YOOZLZOTIG 


208 *$ $ DBOCZ2GROO 
209 *$ $ CCO20S00 
210 *$ WHICH QF THE FOLLOWING CAUSED US TO TAKE A DUMP ? $ VOG21C00 
211 *§ $ 0CC21100 
212 *$ Awe A PROGRAM CHECK € CUI21200 
213 *$ Be AN EXTERNAL INTERRUPT $ 9000212300 
214 *$ Ce A CHANNEL DATA CHECK - JOO21400 
215 *$ DO. NONE OF THE ABOVE $ GCu2150G6 
2l6 *$ $6 OGO21600 
21? *$ $ 00921700 
218 *KESSHSHSSHSSSESSESFESHSSHFGHSHSSHSSHELSFSHSEHHHESSEEHSHESHESHHFFHHSFSHSHELSHHDHHESHHSESR BWOOZL ECO 


SSE 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


221 
222 
223 
224 
225 
226 
227 


229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 


SOURCE STATEMENT _FOBAPRTO 
Kmsemerserrssssssssssessesesseeses== ANSWER 15.3 seEEeee2e5 5555522 S>S2SS=SS=S=== 
k= = 
x= a 
*= THE CORRECT ANSWER [S$--e------- > A = 
w= = 
FS i a ee a 


XSSSHSHSESFFSSHESSSSHSSSHSSSESHSSS QUESTION 15.4 SH$F$SHSHSHSSHSSHSHHSFESHSHESSSHSS 
*$ $ 
*$ THE TYPE QF INTERRUPTION INDICATED [IS ww? $ 
* $ $ 
*G A. ADDRESSING EXCEPTION. $ 
* $ B. DATA EXCEPTION. $ 
* $ C. EXECUTE EXCEPTION. $ 
* D. EXPONENT OVERFLOW. $ 
*$ § 
*$ $ 

$ 


XESF$SHSFSHSHHSHHHLHSHESHHHSHFEHSHSHEHHHHHSHSHSHSHHHSSHHHHSH HF SESS HSHSHFSHELHHHSHHHSHSHHS SHS 
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9/16/70 


6G022100 
006022200 


00022300 


00022400 
00022500 
00022600 


~ 00022700 


00022900 
09023C00 
0C02310C 
00023200 
00023300 
00023400 
00023500 
00023500 
00023700 
00023800 
00023900 


9SE 


LOC) §=609OBJECT CQDE ADDR1 ADDR2 STMT. 


242 
243 
244 
245 
246 
247 
248 


250 
251 
252 
253 
254 
220 
256 
Zot 
258 
259 
260 
261 
262 
263 
264 
205 


PAGE 1C 


SOURCE STATEMENT FO8APRIO 9/16/70 


Koes tess es sess SeSesrsSsaeseSssSsse== ANSWER 15.4 =sSBetStrtsr esate sSsesSssseeess== 00024200 
00024300 


= 00024400 
AseeeeDTS THE THE CORRECT ANSWER. THE INTERRUPT CODE IS O5. = 00024560 


ie 4 


+ 
| 


00024600 
00024700 
soseessessesssees Sees Ssssetse ses ssssrssss rss sss esesssSsssssessasesss 00024800 


Ht 4 


XFSESSSHSSHSSHSSHSHSHSSHSSHHHSHHSH$SHESHH QUESTION 15.5 GSHHHSHSHSHSHHSHHSHSHSSHSSHESSHES$S$SS OOOZ5000 


we 


e $ 00025100 
*§ $ 00025200 
* $ THE REASON FOR THIS INTERRUPTION IS: $ 00025300 
* §$ $ 00025400 
*§ A. AN EXECUTE ATTEMPTED TO EXECUTE AN $ 00025500 
= $ EXECUTE. $ 00025600 
* $ B. A PRIVILEGED OPERATION WAS PERFORMED. $ COC25700 
* $ C. THE ADDRESS OF THE INSTRUCTIUN $ Q00258C0 
* $ SPECIFIED DATA OR AN INSTRUCTION $ 00025900 
* $ OUTSIDE AVAILABLE STORAGE. $ 00026000 
*§ D. AN EXPONENT GQVERFLOW TOOK PLACE. $ 00026100 
* $ $ 00026200 
* $ $ 00026300 
* $ $ 00026400 
KESHSSSSHSHSSSHSHFSHSHSSHSHHSHSHHSHSHHSHHSHHHFHHEHSHFEHFHFEHFGHEHFHHHSHHHHFHFESHEHFSHSHSHSFESHHSHSHSESE GOUZ2E5OO 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


268 
269 
270 
21 
272 
273 
214 
275 


2tT 
278 
219 
280 
281 
2 82 
283 
284 
285 
286 
287 
288 


LSE 


HH 3 % 


. 
| | 


+ 


* 


*$ 
* $ 
* $ 
* $ 
* S$ 
* $ 
*§ 
* $ 
* $ 
¥$ 


X¥HSHHSHSHEHSHHEHSHHSHHFEHHHHSHHHSFFEHGHFHHFSHHHHHSHFSHHHHSHHHSEHHELESHFHEEHSHHHHSHSHSSE 


i le ede ede dices ined a 
— ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ae oe 


SOURCE STATEMENT 


peewee arte eeti daar ditecaibeaaelite ate dieandtcatiieadieed 


FOBAPRI0 


ANSWER C [IS CORRECT. SOQ SAYETH THE PRINCIPLES OF OPERATION MANUAL.= 


THE FAILING INSTRUCTIONS ADDRESS IN CORE MAY BE FOUND BY 
EXAMINING THE WORD AT STORAGE LOCATION 


A. 
Be 
Ce 
D. 


X*34' 
X*2C? 
X*70° 
X*OO0' 


XFSHSHSSSSSEFSHSSHSSSESSESSSESSSS QUESTION 15.6 S$H$SSSHHSHSSHSHESESHSSSHSSSESS 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
§ 
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9/16/70 


COO02Z68CC 
00026900 
GOG2TVU00 
00027100 
00027200 
00027300 
00027400 
06027500 


00027700 
00027809 
00027900 
00028000 
00028100 
00028200 
000283C0 
00028400 
C0028500 
00028600 
00028760 
00C28800 


8SE 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SQURCE STATEMENT FO8APRTI0 G/16/70 
29] *SSs SSS SSoS SSS S553 SSSSSSeS== ANSWER: .15%6 sossessssessSeSeeeeeeeeee=====e= 00029100 
292 *= = 00029200 
293 *= = 000293C0 
294 *= B IS RIGHT..eeeeee-e THATS THE ADDRESS OF THE SECOND WORD OF THE = 00029400 
295 *= PROGRAM OLD P.SeWe . = 00629500 
296 *= = 00029600 
297 x= = 00029700 
298 *= = 00029800 
2990 *SSP SSS SPB SH SSS SSS MS SSS SS SHS SHS SSS SSS SSS SSH SSS SSS SSS SSS SS SH SS SS SS SS SS SS STS 00029900 


201 *SESHSHSESESSHESHSHFSESSESHSHESHHHSHSS QUESTION 15.7 SHSSHSHHSSSHFSHSHSHESESSHSSHSESFHS$ 00030100 


302 *$ $ 00030200 
303 =$ $ 00030300 
304 *§$ THE FAILING INSTRUCTIGN IS LOCATED AT THE STARTING ADDRESS $ 00030400 
305 *$ GF THE PROGRAM PLUS_____. $ 00030500 
306 *§ $ 00030606 
307 *$ A. 72E BYTES $ 00030700 
308 *$ Be. (2A BYTES $ 00030800 
A090 25 C. 63EFEAC BYTES $ 00030900 
310 *$ D. LiD6 BYTES $ 000310C0 
311 *$ $ 00031100 
Z12 KSSHEHSHSSSHHHEHSEHSHSHESHSHHHHHSHHHEHFHHHHHHEGHEHHHSESHHFHSSHSHESFSHSHEHSF SESS HF HES HEEFSHES OOOB1200 
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LOC OBJECT CODE ADDRL ADDR2 = STMT SOURCE STATEMENT FO8APR70 9/16/70 


S15. = SS SS Sa23 522 = 525352 355 3—===. ANSWER 15 4f SHS > SHS SS a Se Se ae Se Se Se === C0031 SCG 
316 *= = 00031600 
317 *= = 00031700 
318 *= B IS THE TRUE ANSWER. DOGN'T FORGET THE INSTRUCTION CQUNTER IS = 00031800 
319 *= STEPPED BEFORE THE PROGRAM QLD P.S.W. IS STORED. THE INSTRUCTION = 00031900 
320 *= LENGTH CGDE (BITS 32 AND 33 CF THE P.S.W) WILL TELL US HOW LONG = 00032C00 
321 *= THE FAILING INSTRUCTION WAS. IN THIS CASE THE I.L-C. CONTAINS = 00032100 
322 *= 1060 WHICH INDICATES AN INSTRUCTION LENGTH OF 2 HALFWORDS (4 BYTES)= 00032200 
323 *= ( THE FIRST HEX DIGIT IN THE SECOND WGRD GF THE PROGRAM OLD = 00032300 
324 *= P.SaWe CONTAINS "A*®===1010 IN BINARY. BITS 32 AND 33 ARE THE = G0032400 
325 *= FIRST 2 BITS ===10.) = 00032500 
326 *= = 00032600 
327 *= THEREFGRE IF WE SUBTRACT 4 FROM THE INSTRUCTION ADDRESS IN THE = 00632700 
328 *= P.Sw~We. WEFLL FIND THAT WE ARE IN FACT POINTING AT AN INSTRUCTION= 00032800 
329 *= X*72A* BYTES INTO THE PROGRAM, = 00032900 
330 *= | = 00033000 
331 *= = 000331090 
332 *ssS eS t rr SS SHS SS SS STS SSS SSS SSS SS SS SS SS SSS SH SSS SS SS SS SSS SSS SS SS SS SS SHE == 0 Z23200 


32324 *SSHSHSHSS$HFEHSHSSHEHSHSHEFSHHSHSHSHHSHHHSEHS QUESTION 15.8 SH$SHFHESHESHFHHSHSSESESSESSHESSES 0NO033400 


335 *$ $ 00033500 
336 *$ $ 00033600 
337 *$ ween -—> USE THE LINKAGE EDITOR CROSS REFERENCE TABLE<--~------ $ 00033700 
338 *$ $ 00033860 
339 *$ THE INSTRUCTION THAT FAILED ITS LOCATED IN THE CSECT WHOSE $ 00033900 
340 *$ NAME IS: $ 000340900 
341 *$ A. $PRIVATE $ G0034100 
342 *$ B. PRINT $ 060034200 
343 *$ © Ce. THOSSQRT $ 00034390 
344 *$ D. IHCUOPT $ 00034400 
345 *$ $ 00034506 
346 *$ THE ANSWER [S cecccccsecs $ 00034600 
347 *$ $ 00034700 
348 *ESSSSHESSSHSSSH$FESHHHHHHHFHHHSHHSHHHHHEHFHHSHHSHHSFESHESHHSHSHHSHSEHSFEHSHSHSHHHFEHSSSSSSESS 00034800 


09€ 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOSAPRTO 9/16/70 
35| *SsSSS2 es =sSSSS2Sss—==S5=SS=s=—== ANSWER 15.68 =SsSseSsSS=eSS=S=5 2 S252 22s2e=s= 00095100 
352 *= . = 00035200 
353 *= THE ANSWER IS C. IHCSSQRT = 00035390 
354 *= = 00035400 
355 *= = 00035500 
356 *= = 00035600 
357 *= THE LINKAGE EDITOR CROSS REFERENCE TABLE TELLS US THAT IHCSSOQRT = 00035700 
358 *= HAS AN ORIGIN AT 718 BYTES INTG THE PROGRAM AND A LENGTH OF 149 = 00035800 
359 *= BYTES. I SENSE YOU MUTTERING,"HOW CAN [ GO ANY FURTHER ? = 0C035900 
360 *= THE PROBLEM [S SOMEONE ELSES ROUTINE AND I DON'T HAVE A LISTING."= 00036000 
36] *= PLEASE DON'T GIVE UP, LET'S STICK WITH IT A WHILE LONGER, OKAY? = 00036100 
362 *= . = 00036200 
363 Ke Bere s StS ess St Ss SSS SSS BSS SST SAS SSS SS SSH SS SSH SSSA SSS SSS SSS ST SS TSS SS SS SS 0003630C 


365 *S$S$SSH$HSHSHESHSSHHSHSHFESSSH$HHS$S$$HESH QUESTION 15.9 S$S$HEEHESHSSESHSHSSHSSSSHH$HS$HESS$S O0V3B6500 


366 *§ $ 00036600 
367 *$ $ 00036700 
368 *$ | THE CODE THAT FAILED IS : $ 00036800 
369 *§ $ 00036900 
370 *$ | A. 12114740F03C $ 00037060 
371 *$ B. C58E1000 $ 00037100 
372 *$ C. 4740F078 $ 00037200 
373 *$ D. 784E0000 $ 00037300 
374 *§ | oe E. O000784E $- 00037400 
375 *$ $ 00037500 
376 *$ THE ANSWER IS ____ te $ 00037600 
377 *$ : $ 00037700 
378 *SS$H$HSHSSHFSHSSHSSHHHHSHHSHSSSHHSSHSHHSHSHSSHSHESHHSHFHSHSHSSSHSHS SSS HESHFSHSSHEFSSESHFSSHS$S$SSESHSH 00037800 


LOC. 
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LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT FO8APRT0 9/16/70 
38] *ssseeeSSee5ererereeesecae==== ANSWER 15.9 see 25S eSS SES e2 See Sse ee=ze=== 60038100 

382 *= = 00038200 

383 *= = 00038300 

384 *= ANSWER D IS CORRECT. = 00038400 

385 *= . = 00038500 

386 *= = 00038600 

387 *= LET US PROCEED . = 900038700 

388 *ssse eee SS ee eS SS STP SSS SSS SSeS SSS ST SS SS SS StS SSS BSS SSeS SSS SSS SS SS sSE ST ssr=== OGC38800 


390 *E$SS$SSHSH$SSSSHES$S$H$HSSSHSHS$SSHHSHS$$ QUESTION 15.10 SHSHHSH$SHSSESHSHSSS$HESHESESESS$ 00039000 


391 *$ $ 00039100 
392 *$ WHEN TRANSLATED INTO A SYMBOLIC INSTRUCTION THE FAILING CODE $ 00039200 
393 *§$ WOOUD) "BBs cn 2  t e e $ 00039300 
394 *$ $ 06039400 
395 *§$ $ 00039500 
296 *ESS$SSHSSHESESHFSSHHHHSHSSSHSHSHFHHSFSHFSHSHSSHLHSHHHFHSHFHSHSSSHEFSH$EHSSHS FHSS HESSESHSHSHS 00039600 


Z9e 
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" 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT | : 7 FOB APRTO 9716/70 
399 *eassessessesssesesessceseeze== ANSWER 15.10 =====22=e555See5eSeerSee2=5= 00039900 
400 *=. | = 00040000 
401 *= . HOW ABOUT A LE 4:0(14) = 00040100 
402 *= = 00040200 
403 *= aa a acre aa aad > ITS A "LOAD SHORT® FLOATING POINT INST. = 00040300 
404 *= » 3 = 00040400 
405 *= | . = 00040500 
406 *={=<=SS=SSsS2SSS222e=SS25522SSSS223 SSeS e5 S55 2SSS See SSeSesesesesaa=esoS=s==S= 00040600 


408 *$S$S$SSESSSSESESSSSSESSESS$SES QUESTION 15.11 $$$$$$$$$$SS$$SHSSSE$SS$HSSS$S$ 00040800 


409 *$ 7 $ 00040900 
410 *$ | $ 00041000 
411 *$ TRUE/FALSE $ 00041100 
412 *$ | $ 00041200 
413 *$ REGISTER 14 CONTAINS A NUMBER THAT IF USED AS AN ADDRESS IS $ 00041300 
414 *$ WELL WITHIN THE RANGE OF AVAILABLE STORAGE. $ 60041400 
415 *$ $ 00041500 
416 *$ $ 00041600 
417 *$$S$SSS$SS$$S$S$SFESSESSHSSSSHSSSSSSSSSSHSSSSSSSSHSESSSSSSSH$SSS$SHSSHSSE$SSS$S$S$S$SH 00041700 


e9E 
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LOC OBJECT CQDE ADDR1 ADDR2 STMT SOURCE STATEMENT FOG8APRTIO 9/16/70 
A720 *2esSSS2S SS SSS SS sss e2sSS=== ANSWER) 156k SSeS seas SeseS ess S252 52 SS S52 2= 0905042000 
42] *= = 00042100 
422 *= FA SS 6 REGISTER 14 CONTAINS 43121000 (THE 121000 IS USED AS = 000422006 
423 *= THE ADDRESS PORTION OF THE REGISTER ) AND THATS A BIG NUMBER. = 00042300 
424 *= THE MERE FACT THAT WE GOT AN ADDRESSING EXCEPTIGQN WHEN ATTEMPTING= 00042400 
425 *= TO USE REGISTER 14 AS AN INDEX REGISTER TELLS US THAT QUR ADDRESS= 00042500 
426 *= TS OUTSIDE AVATLABLE STGRAGE. ITS NOT REALLY NECESSARY TO KNOW = 00042600 
421 *= THE AMOUNT OF STORAGE AVAILABLE IN THIS CASE. = Q0004270G 
428 *= = 00042800 
429 *= = 00042900 
430 *= LET®*S KEEP GOING. EVER ONWARD. = 60043000 
43] *= = 00043100 
432 *= = 90043200 
433 Keser Seer SS SSS SSS SS SSS SSS SS SS SS SS SSH SSS SSH STS SS SST SSH SST SS SS Sess sessSsssses== ON0433C0 
4325 FESHSSSHSHSSSSHHSHSSESESSSSHSHSH QUESTION 15.12 SS$HHHHHFSESHFESFGESFELSSS$HSHHS 00043500 
436 *$ $ 00043600 
437 *§$ $ 0004370C 
438 *$ THE FAILING INSTRUCTION ITS LOCATED AT THE STARTING ADDRESS OF $ 00043800 
439 *$ IHCSSQRT PLUS __ow $ 00043900 
440 *§$ Ae X*158" BYTES 6 00044000 
441 *$ Be. X*72! BYTES $ CQ0044100 
442 *§ Ce. X*12" BYTES $ 00044200 
443 *§ D. 12 BYTES $ 00044300 
444 *§ $ 00044400 
445 *§$ THE ANSWER ISceeccccecee € 00044500 
446 *$ . $ 00044600 
447 ¥*DSSFHLSHSHSSHSSHSHSHEFSHHHEHSHHHHHHHHHHHHHHHHHHHFHHHHEEHSHHHHHHFHHSHHSEFSHSHS$H$HHS2$ YO0044700 


v9E 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


450 
451 
452 
453 
454 
455 
456 


458 
459 
460 
461 
462 
463 
464 
465 
466 


468 
469 
470 
471 
472 
473 
474 
475 


SOURCE STATEMENT FO8APR70 


ee ee ee ce es ee ee err ee ee ee ee ee ee ew ee ee ae oe 
eS ee ss 


% + 


* 
tou to wow 


ANSWER C 


% 


IS RIGHT. (2A~-718=X'12! = 


% 


KEE ete te teettet+tt+ WOR D S FROM THE S A G E te ttttetteteett 
K+ + 
x + LET*S SEE IF WE CAN FIEND OUT WHERE REGISTER 14 GETS LOADED. + 
K+ + 
*+ HEY..-e 12 BYTES ISN*T VERY FAR, WE CAN PSYCH QUT THAT + 
*+ FEW INSTRUCTIONS WITH NO TROUBLE AT ALL. WELL, CAN'T + 
*+ WE? + 
x + + 


KEE EE EE EEEEE EEE EEE EE EEE EEE EEE EE FEFELE EEE EE EEE EEE EEE EEE EEE EE EE HEE Et tt 


KESSSHFSHESHHSHSESEHFSHEHSHSHHSHSHH$HSHHS$S$HE QUESTION 15.13 SHHSHSHSHSHEHSHHHFSEHSHSHESHHSHSHEH SSH SS 
*§ 
* $ 
*$ 
* $ 
* $ 
* $ 

XSSESHHSSSEHSHSHSSHESHHSSHSHHHHHFHHEFFHHHHHFEFSESHESFESEFSHESHHFHHSSESHFHSHHFHHHEFLHHHSSF 


THE FIRST INSTRUCTION IN ITHCSSQRT IS LOCATED__ ___BYTES INTO 


$ 
$ 
$ 
THE PROGRAM AND IS A . $ 
$ 
$ 
$ 
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9/16/70 


00045000 
00045100 
00045200 
00045300 
00045400 
00045500 
00045600 


000458CO0 
00045900 
00046000 
00046100 
00046200 
00046300 
00046400 
00046500 
00046690 


00046800 
00C469C0 
00047000 
00047100 
00047200 
C0047300 
00047400 
00047500 


G9e 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


478 
479 
4.80 
481 
482 
483 
484 


486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 


SOURCE STATEMENT OO FOBAPRT70 


* 

*= = 
*= = 
= 718, BC 15,10(15) = 
= . Sg _ = 
x= = 
5 eee ee ee ee ee ee ee ee 
*$SSSESSSSSSHESHSHSSSSESSSSHHSS$S$S QUESTION 15.14 S$$H$HHHSSSHEFHEHS SG SSSHESHESHSSS 
*§$ $ 
* §$ $ 
* §$ THE INSTRUCTIGN THE INSTRUCTION IN THE PREVIOUS QUESTION WILL $ 
*§ BRANCH TO IS A ._ww § 
*§$ Ae STORE MULTIPLE $ 
*$ Be. LOAD REGISTER $ 
*$ C. ADD REGISTER $ 
a BS ' De. SHIFT LEFT LOGICAL | - os § 
*$ THE ANSWER [S_____$ 


*$ $$ SSSSESSSSSSHSHSSSSS$SSSSSFSS$SHGSHSSE SHFSSSSSSSHFSSESSSSSSSSSSSSSSSHSSSSS 
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00047800 
00047900 
000480C0 
00048100 
00048200 
00048300 
00048400 


00048600 
00048700 
00048800 
00048900 
00049000 
00049100 
00049200 
00049300 
00049400 
00049500 
00049600 
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LOC OBJECT CODE = ADORL ADDR2 STMT SOURCE STATEMENT - Me ee FOBAPR70O 9/16/70 
499 Koecssssscsesesseeeeeeeeeec=== ANSWER 15.14 Sines sssssSsscsSssesesssS2ESse=S=== 00049900 
500 *= | _— = 00050000 
501 *= THE CORRECT ANSWER [5S Ae = 00050100 
502 *= | = 00050200 
503 *= HEY, THAT MAKES SENSE. IHCSSQRT SHOULD ALSO FOLLOW LINKAGE = 00050300 
504 *= CONVENTIONS, LIKE EVERYONE ELSE. = 00050400 
505 *= THIS MIGHT MEAN WE CAN PROVE WHAT THE CONTENTS OF REGISTER = 00050500 
506 *= 14 WAS WHEN IHCSSQRT WAS ENTERED. = 00050600 
507 *= aa | 7 = 00050700 
508 Koco SSeS sss sr Sess sc sss SSeS sssss Ss ssstssssssssssssssessessssessssesssss=s 00050800 


510 *$$$$SSS$SSS$S$H$$SSSSSESSS$$S$$$ QUESTION 15.15 $SSSSSSSSSSSSSSSSSSSSSSSSS 00051000 


S511 *$ : $ 00051100 
512 *$ $ 00051200 
513 *$ IS REGISTER 14 ONE OF THE REGISTERS STORED BY THE STM INSTRUCTIONS 00051300 
514 *$ peau tat eeeh oe | $ 00051400 
515 *$ $ 00051500 
516 *$ $ 00051600. 
517 *$ IF SO, ARE THE CGNTENTS OF STORAGE THE SAME AS THE CURRENT $ 00051700 
518 *$ CONTENTS OF REGISTER 14. er $ 00051800 
519 *$ $ 00051900 
$ 00052000 


520 *$SS$ESSHSSHSSSSSSSSSHSFGSSSSSSSSESSESSSSESSSSSSESSSSSSSSSSSSSS HG SSHSSSITESSHSSS 


L9E 


LOC OBJECT CODE ADDR1 ADDR2 = STMT 


523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 


536 
537 
538 
539 
540 
541 
542 
543 
544 


SOURCE STATEMENT . FOB8APR1T0 
Kase sesSesSsS rss Ssasesessseeseserce== ANSWER 15.15 SSerrertsssss tsetse ssessssScs==== 
* = 
x= = 
*= REGISTER 14 IS ONE GF THE REGISTERS STORED BY THE STM. = 
x= = 
*= THE CONTENTS OF THE STORAGE LOCATION WHERE THE ORIGINAL REGISTER = 

= 14 WAS STORED IS NOT THE SAME AS THE CURRENT CONTENTS OF = 
*= REGISTER 14. | | = 
= REGISTER 14 WAS STORED AT THE LUCATION POINTED TO BY REGISTER = 
= 13 PLUS 12 BYTES. = 
*= = 
i eee eS Ee de 
KSSSHSSSHSSHSSHSESHS$SHESHSHSSFSSS$SSS$S QUESTION 15.16 S$H$S$HSH$FSHESHSFESHESHSSESHSHSS SS 


x $ $ 
* $ $ 
*$ TRUES FALSE $ 
*$ $ 
*§ REGISTER 14 WAS MODIFIED TO ITS CURRENT VALUE IN IHCSSQRT . $ 
* $ ; $ 
*$ / $ 
XFSH$SHHSHSHESSESHHSHHFHHHHSHHHHSHHSHHHGHHFHEHFHSHSHEH FSFE SHSHHHSHSHSHHSHSHHSHHHFESHHSHHSSESHHHHS 
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00052300 
00052400 
00052500 
00052600 
00052700 
00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053400 


00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054200 
00054300 
00054400 


89 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


546 
547 
548 
549 
550 


552 
553 
554 
555 
556 
557 
558 
559 
560 
561 


563 
564 
565 
5 66 
567 
568 
569 
570 
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SOURCE STATEMENT FO8APR70 9/16/70 
KreremessSssesssesssesseseese= ANSWER 15.16 =S2e2e2SSS2eErSeeeecee2=2====== 00054600 
*= = 00054700 
*= TRUE =. 00054800 
x= - = 00054900 
HiGE SSS SSS SP SSS SSS Ses SaaS SSeS Sse Sse SS Sess SSeS SSs SS SSS ssSssssSesSstsc= G6C055000 
REET EEEEEEEE EEE EE EE EEE EEE EET WIS E WOR D S +e tte tetttetetetttettet+e 00055200 
*+ 00055300 


+ 

K+ HEY GUYS, THAT CINCHES IT,CALL IN THE F OR TR AWN_- BOYS + 00055400 
K+ TQ FIX THEIR SUBROUTINE SO WE CAN SUCCESSFULLY FIND THE ROOT + 00055500 
K+ OF CUR QUADRATIC EQUATION, QR HAVE YOU FORGOTTEN ? + 00055600 
K+ + 00055700 
*+ BUT JUST WAIT A MINUTE, JUST SO WE DON'T WIND UP WITH EGG ON + 00055800 
K+ OUR FACE LET'S GO A LITTLE FURTHER. + 00055900 
*+ + 00056000 
KE EEEE EEE EE EEE EE EE EEE EEE EE EE EE EEE EE EEE EEE EHEC EEE EEE HEH ete ete tee ete t++et+ 00056100 


*SSSSESSHSHHSHHESHSHSHSHHSSSHSS$HSSHES$S QUESTION 15.17 S$S$HSH$H$HSH$FSESHSHSHSESSSSHSHESHESS$SS Y0O056300 


*§$ $ 00056400 
*g $ 00056500 
* $ WHAT INSTRUCTION WILL EXECUTE AFTER THE STM IN THCSSQRT ? $ 00056600 
*$ $ 00056700 
*$ THE ANSWER [Sccccccccces $ 00056800 
* $ $ 00056900 
KESSSHSHSESHHSHLHSHSHSHSHSHFSHHHHSHHSHFSHSESHHFSHHFSHHHSHSHSSSHSSHHSHSHHSHHSSSESHSFESHSHSS$S$S$HHS OOOS/ICOO 


iat 


69 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


573 
5174 
575 
576 
577 
578 
579 
5 80 
581 
582 
5 83 


5 85 
5 B6 
587 
5 88 
589 
590 
591 
592 


SQURCE STATEMENT . FO8APRTO 


Kom ss ses Ses S sss Stes sSSSesesez== ANSWER 15.17 == Se SS33S 23552 SSeS SSSSe5eS55z== 
x= = 
x= = 
*= = 
*= H MMMM MMM OM = 
*K= = 
= Its Neceee L 14,01) = 
x= = 
¥*= NOW WERE GETTING SOMEWHERE. = 
x= , = 
i 
KFSSSSSSSSSSSSSSSSSSSSS$ESSSSSS QUESTION 15.18 SHFSSSHESHSSSHESFSHSSHSHSSHESHSSHS$S 


* $ $ 
* $ . $ 
*§$ WHAT TS THE NEXT INSTRUCTION EXECUTED AFTER THE L 14,01) ? $ 
* $ $ 
* $ THE ANSWER TS_____ le $ 
x $ $ 
XSSH$SHSSHSHHHHSHHHSSSSHHHSHHHHHSHFHEHSHESSHSHEHHEHHSHHSHHSHHFHSHHHESHFHEHSSEHSHFHSSHSHHSSSHSS 
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9/16/70 


00057300 
C0057400 
00057500 
00057600 
O0057700 
00057800 
00057900 
00058000 
00058100 


00058200 


06058300 


00058560 
00058600 
00058700 
00058800 
00058900 
00059000 
000591006 
00059200 
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LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT | : : -: FO8APRTO 9/16/70 
§94 *=saseesescrterssseseestsessesse=ze= ANSWER 15.18 =seeSS2252S5 eee Se 5Se2ees=== 00059400 
595 *= | ie = 00059500 
596 *= THE LE 4,0(14) WHICH FAILED. = 00059600 
597 *= | | | | y = 00059700 
598 Ke See sss ssssss sess sssS sss SS sss sss SSS ss SSS esse ST TSS SS SSS SSS SssSsSSSSss=s 00059800 


600 *ERERCEEEEERESLEELSSSSESS RE C AP BBRBSZSZ R EC A P BESASASESRZASSESSS OOOGCOOO 


601 *% | % 00060100 
602 *% % 00060200 
603 *% THE INSTRUCTION STREAM EXECUTED IN THCSSQRT IS AS FOLLOWS: % 00060300 
604 *% . % 00060400 
605 *% BC 15,1015) 1 * * * % 00060500 
606 *% STM  =—s-: 14915412013) 2 * * * % 00060600 
@ 607 *% , 3 14,0(1) 3 * * * *% Q006C 700 
© 608 *% a LE 4:0(14) 4G ERHKKNT LL eee Z OOO60800 
609 *% * * * % O0C060900 
610 *% * * * * 00061000 
611 *% : | * * * % 00061100 
612 *% | % 00061200 
613 *% : LET US CONTINUE «cece ee 4 00061300 
614 *% 4 00061400 
% 


615 KEESUEEEE SVL UE SELLE LESELSLELLLELELSLSESSELLLSCECESSLELELLESEVESSSSES% OOOG1L500 


LZe 


LOC 


QBJECT CODE 


ADDR1 ADDR2 


STMT 


618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 


SOURCE STATEMENT FO8APR70 


*¥S$SSHSSHSSHSHSSHSSSHESS$SSSHSSHSHH QUESTION 15.19 S$H$HSHSSHSSHESHESSSHESHESSSEHSSHSHSHF 
*$ 


*§ THE LOCATION WHOSE CONTENTS IS LOADED INTO REGISTER 14 BY $ 
*§$ INSTRUCTION 3 IN THE RECAP (L 14,01) JIS LOCATED AT: $ 
* $ $ 
*$ Ae X*800' BYTES INTO THE PROGRAM $ 
*§ Be X*140" BYTES INTO THE PROGRAM $ 
* $ Ce. X*750* BYTES INTO THE PROGRAM $ 
* $ D. AT LOCATION 0000 $ 
*$ $ 
*§ THE ANSWER IS____. $ 
* $ | $ 
*¥SFSHHHESSHHSHSHSFESHFEFHHSHHSHSHSHSSHHSHHSHSSFHSHHHHEFHSSFHSSHFGHHSSSHHSHHLHHFHHSSLFSHSSESS 
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00061800 
00061900 
00062000 
00062106 
00062200 
00062300 
00062400 
00062500 
00062600 
00062700 
00062800 
C00629CG0 
06063000 


cle 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


633 
634 
635 
636 
637 


639 
640 
641 
642 
643 
644 
645 
646 
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SOURCE STATEMENT | | FOBAPRTO 9/16/70 


KE SSS SS SSS SSSSSSSSSSSSsSSSSs= ANSWER 15.19 =S==22222=2252 5522S 52 5SeS25==== 00063300 
*= . = 00063400 
x= Se ee B (SSeS Ss == = 00063500 
*= = 00063600 
SS SSS) SS Sa SS SS SS SS Se SS Se SS SS SS SS SS SS eS Sa eS Se SS SS Se = SS SS eS SS Se eK ee 6 OGCO63 100 
*FSSSSHSSHEFSHSSHESSHSHEHSHSSESHHSHSHSH$HESS$ QUESTION 15.20 SH$SH$SFHSHSESSHSEHSESSHSSESESESSS OCOG3900 
* $ $ 00064000 
* $ ; $ 00064100 
*$ IN WHAT CSECT IS THE ADDRESS REFERRED TO IN QUESTION 15.19 $ 00064200 
* $ LOCATED ? $ 00064300 
* $ THE CSECT NAME IS____ le $ 00064400 
* $ $ 00064500 
* S$ESHSHSHHSSHEHSSHSHSSHSHHFESHHHSHSHSSHSHHFSHSHHFSHSHHHSHSHSHHESHSHSHSHFEHSSESHFHFSSSHESSHHSHSHSHH OO064600 


ELE 


LCC OBJECT CODE ADDR1i ADDR2 STMT 


649 
650 
651 
652 
653 
654 
655 
656 
657 


659 
66G 
661 
662 
663 
664 
665 
666 


SOURCE STATEMENT 


a ee cer mm me wee ee wee ste ee me ee ee ee ee ee ee we ee oe 
ee ee ce ae ee ee eee ee ee ee ee ee ee eee ee eee ee ee ee ee 


HoH 3 He He He 4 


+ 


*ESSSSESSSESHSSHSHSHHSHSSSSEHSHEHSS 
* $ 


ANSWER 


$PRIE VATE 


HE Y 


15.20 


THAT 


S 


U 


S 


FOBAPRTO 


YOU SHOULD HAVE USED THE LINKAGE EDITOR CROSS REFERENCE TABLE. 


ee me ee wee ee ree ee ree wee ee wre ee ee eee ee ee ee 
eee ee ee eee tee cree ce ee ee ee ee ee ee eee ee ee 


Ce ee eel eet ned tated ti cnadinnatiacediie Deda t na AeeartfemadiarnadtiacdiemnsDendteacdinasditerelitean Ahagdieudiaaatieesalitvaradmedieandtiiss-athemetig srelirundlbamettadieaadierradiyardieatit rand anadthavalitmdirratipecriinandipramttnacdt.alitnsdheraherrett andheumteeatenentiaaaeed ae 
ee re cee cee ee cere eee re ce ae ee ie ie ee ee ee me ce Se i GO ce rm eS stem mm ete Eo am ee ee ce eee ee ere ee Ce em eee cee me i a ee eee ee ee ee ee ee ee ee ee oe 


QUESTION 15.21 SS$SHSHHSHFSSSESHSSHSHEELESHSSS 


*§$ WHAT ARE THE CONTENTS OF THE CORE STGRAGE LOCATION PCINTED 


*$ TO BY REGISTER 1 ? 
*$ 
*§$ 
* $ 


THE STGRAGE LOCATION CONTAINS 


ee re ee ct eres A 


KESHFSSHESHSHSHSHHHSESESSHSHESHSHSHSHHSHSHHSSHFSHHHSHFSHESHHSHESHS$HFHEHHSHFHHLHHSHESHEHSSHSHHESSSSHS 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
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00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 


00065900 
00066C00 
90066100 
00066200 
00066 306 
00066400 
00066500 
0G066600 


ple 


LCC OBJECT CODE ADDR1 ADDR2 STMT 


669 
670 
671 
672 
673 
674 
675 
676 


678 
679 
680 
681 
682 
683 
6 84 
685 
6 86 
687 
688 
689 
690 
691 


SGURCE STATEMENT | FOBAPR7C 


Koso sSSsSSSSsSSS SS SSeS Se=== ANSWER. Lov?) $===S=SS==2SS5S=SSSS25SS==S=S==5 
*x= = 
== 43121000 = 
x= = 
*= THAT NUMBER LOOKS VAGUELY FAMILIAR,BUTS LETS HOLD OFF FOR A = 
*= LITTLE WHILE . = 
tee ss SSS SSS 5 5 S522 525s =a] 555555555 S255 5S5=-52 52552 52> 52535 SSS 555 SSS5 
*XSSS$SSSHEHSHHSHEHSSHSHHSHSHSESSSSESSESS QUESTION 15.22 SHLFEHSHSHHSSSHSSHHLSEHSSHESHSLSS 


*g ; £ 
* § $ 
*§ WHAT IS THE SYMBOL NAME OF THE LOCATION REFERENCED $ 
*G BY THE ADDRESS IN REGISTER 1. $ 
* $ $ 
*¢ A. "XSUBL'® $ 
* $ Be *XSUB2! $ 
*§$ C. "DOUBLE! $ 
*$ D. ‘FIOCS#* $ 
*§$ $ 
* § THE ANSWER: 1S. 3 5 ° $ 
* $ $ 
XEFEFSFEFSHFSSEHSFSHHSSSHFFHFSFSEHSHSHHFHFHHHSHSHHSHHFHFHHHFHHEHSHHHSHHESFSHSHFHEHSHSFL SESS HSSHF 
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S/LESTO 


00066900 
60067060 
00067100 
00067200 
00067360 
00067400 
00067500 
00067600 


GCOC67800 
Q00679C0 
GCO6&BCOO 
00068100 
00068200 
00068300 
00068400 
00068500 
QO00E8ECC 
00068700 
00068800 
00068900 
00069000 
00069100 


SLE 


LOC QBJECT CODE ADDR1i ADDR2 STMT 


694 
695 
696 
697 
698 
699 
100 
701 


103 
104 
105 
106 
T0¢ 
108 
+09 


SOURCE STATEMENT FOSAPRIG 


Kos SSS SSS S525 3255-555 S22 >=—s >: ANSWER. 15.77 ~SesSe =o] 3352555555552 -2-2525 
*= = 
x= = 
*= THE ANSWER IS C (DOUBLE) = 
x= = 
x= THIS TIME YOU COULD HAVE USED THE ASSEMBLER CROSS REFERENCE LIST.= 
*x= . = 
A Na 


EF SSSSSSHSSSSSSSS$SSSESESSESSSESS QUESTION 15.23 $S$$SSSH$SSEH$$SSESESHSSSSHESESSES 


* $ $ 
*§$ THE INSTRUCTION THAT LOADS REGISTER ONE WITH THE ADDRESS OF $ 
* $ *DOUBLE® [IS LOCATED AT ASSEMBLED ADDRESS_____ IN OUR ASSEMBLY § 
* § LISTING ? $ 
*$ $ 

$ 


KFS SSSSHSSEHSSSSHSFSHSHSSFSSESHSSSSSSHSHESSSHESESSFSSIFHISSSHSSHHSSSSHSHSSSESSSSHSS 
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00069400 
00069500 
00069600 
0006S700 
00069890 
O0G069900 
00C 70000 
00070190 


00070300 
00070400 
GC070500 
000 70600 
COOTOCTO0 
00670800 
00070900 


PAGE 30 


LOC OBJECT CODE ADDRL ADBDR2 STMT SOURCE STATEMENT FO8APR/0 9/16/7C 

ti? SSS SSSSS2 22255555 SS3]]525= = ANSWER 15273 S223 2235s ]S— 5325525 S55 5S=2S=— OO0TLZ00 

713 *= = 00071300 

114 *= = 00071400 

(15 *= X*#30! = 00071500 

716 *= = 00071600 

Lif. #Ss2S SSS SSS SS 35552] 42S 555255 = S55 SS SSS SSS SSS SS SS SS Se a eS SS SS ee Se eee ee == = OOO TT TOO 

T19 RAE AR ZALALARERGREEELLEESSSSS RE C A P BBS RR4SEEA EE SA CEE A ARE ZC SESZSZSZEEE% OCOL1 900 

720 *% * GOOT2COO 

wo 721 *% LET'S RECONSTRUCT THE CRIME. 4 OCC7210G 

o 122 *% ; % 00072200 

723 *% THE FIRST THING WE DID WAS LOAD THE ADDRESS OF DOUBLES INTO % GOC7T2300 

124 *2% REGISTER 1. THEN WE BRANCHED TQ THCSSQRT. JUST A LITTLE WAY % 00072400 

125 *% INTQ THCSSQRT WE BLEWUP(BOQOQCGM) WHEN WE ATTEMPTED TOG LOAD % 00072500 

126 *F FLOATING POINT REGISTER 4 FROM SOME WAY OUT LOCATION. 4 00072600 

727 *% . 4 00072700 
| 128 *% LET'S GO ON TO SEE IF THE BUTLER DID IT. @ 00072800 
| 729 ¥% | % 00072900 
T320 KEE EEEEEREEELELSEEEEEE EL ERLE ER ESE EEE CEELE ELBE BEEBREEBLBEERELEKEEEAESKSASS OOOT3ZO000 


LLE 


LOC OBJECT CODE ADDR1. ADDR2 = STMT 


733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 


146 
47 
148 
749 
750 


(32 
153 
7154 
(35 
156 
157 
158 
59 
160 
761 
162 
163 


SOURCE STATEMENT 


*ESSHESSHSSHSHSSHSSESSSSESSHSHSEH QUESTION 15.24 SHESSHSHESHSSHSHHSESHSHSESFHF HHS HS 


* $ $ 
*$ THE SQUARE ROOT SUBRGUTINE "REQUIRES" THE ADDRESS OF $ 
* $ WHICH GF THE FOLLOWING TO BE PASSED TO IT IN REGISTER 1 ? $ 
* $ $ 
* Ae A FLOATING POINT NUMBER $ 
* § Be A FIXED POINT NUMBER $ 
*$ C. A PARAMETER LIST $ 
%* De A SAVE AREA $ 
*$ $ 
*$ : $ 
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*= CSSSes— > A PARAMETER LIST _ = 


*ESHSSESHSSSSEFSSSHSHESESHSSSSSSSSE QUESTION 15625 S$ESSHSHHSHSFSSESHSFSSES SS SH SSS 


%* § $ 
* g ss 
* § THE ADDRESS OF WHICH OF TRE FOLLOWING fist BEING PASSED TO $ 
* § THCSSQRT IN REGISTER 1 : $ 
* $ Ae A FLOATING POINT NUMBER $ 
*H Be. A FIXED POINT NUMBER $ 
* $ C. A PARAMETER LIST _ $ 
* § D. A SAVE AREA $ 
*$ $ 
* $ 
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C0073300 
000734006 
00073500 
00073600 
00073700 
00C 73800 
06073900 
000 74C00 
00074100 
00074200 
00074300 
00074400 


00074690 
00074700 
00074800 
00074900 
00075000 


COUT5290 
G075300 
0 


000 75600 
COU157C0 
09075800 
00075900 
000 76C00 
00076100 
00076200 
00076300 
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LOC 


CBJECT CODE ADDR1L ADDR2 STMT 


166 
T67 
168 
7169 
740 
771 
TT2 
t¢3 
T14 
75 
176 
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779 


780 * 


781 
182 
1383 
184 
85 
186 
187 
188 
789 
790 
791 
192 
193 
194 
195 
196 
797 
198 
199 
800 
801 
802 
803 
804 
. 805 
806 
807 
808 
8C9 
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= WOULD YOU BELIEVE A FLCATING POINT NUMBER----— 
- SEEMS TO ME WE HAVE FCUNO THE CULPRIT. 
‘a —+-----------> ITS ME. 
«= FRENCH SUBTITLE-------- 
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og 


¥ IN '$PRIVATE® : 

* LA 1,D0QUBLE 

** L 15y4=VCTHCSSQRT) 
* BALK 

* IN *THCSSORT#: 

* BC 15,1015) 

* STM 14,15,12(13) 

* L 14,001) 

EE 4,0(014) 
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SY a a8 oS o€ 38 BE OG HM OG SO AN OF oS OS OE AU OE NE OQ GE 


SQUARE ROOT OF. 


WHOSE SYMBOLIC NAME IS fARG* IN *$PRIVATES. 
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% OW 
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A VERY IMPORTANT PCINT TO REMEMBER IS THAT 
OTHER ROUTINE TO FAIL BY PASSING 
AS IN THIS CASE, 
WAS FAILING, IT 
THE PROBLEM. 
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ot % 


THUS, 
A CLOSE. 
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RN we MN KS NM NK 
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THE INSTRUCTION STREAM WE WENT THROUGH WAS AS FOLLOWS: 


BRANCH AROUND 
SAVE REGS 

LOAD F.P NUMBER IN 14 
FATttING 


SUB 


FOBAPRIO 


E C AN P BERS ERRCEBREZERBREREEL ELK CSSSZGES 


LA OF F.P.NUMBER 
ADDRESS OF ROUTINE 
14,15 BRANCH WITH RETURN ADDR IN 14 


CONSTANTS 


INS T 


QO I SHOULD HAVE LOADED THE ADDRESS OF A PARAMETER LIST IN REGISTER 
1 INSTEAD OF THE ADDRESS OF THE NUMBER I WANTED 70 TAKE THE 
THE PARAMETER LIST MAY BE FOUND IN THE LOCATION 


WE CAN CAUSE SOME 
INCORRECT PARAMETERS 70 [f. 

AT FIRST ITT wGULD APPEAR THAT THE 
WAS REALLY THE INCORRECT PARAMETERS WHICH CAUSEDS 


ROUTINE 


ON THIS HAPPY NOTE THE DUMP ANALYSTS PROJECT COMES TO 
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GOUBODCTO 
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LOC OBJECT CODE ADDRL ADDR2 STMT 
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812 
813 

814 
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816 
817 
818 
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820 
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* 

O PLEASE NOTIFY YOUR INSTRUCTOR OF YOUR COMPLETION BY DISPLAYING * 

THE BLUE ANS WERCUE . . 3 

x 

O PLEASE USE THIS SHEET FOR ANY COMMENTS YOU HAVE CONCERNING THIS* 
PROJECT. a 
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90081100 
00081200 
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00081400 
0G08150C 
00081600 
00081700 
00081800 
C0081900 
00082000 
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STMT 
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825 
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END 
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THE GBJECTIVE OF THIS PROJECT MAY BE FOUND IN THE LAB 
ACTIVITIES SECTION OF YOUR STUDENT GUIDE. (PPD WPO2) 
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AN OVERALL DESCRIPTION OF A PROGRAMS LOGIC MAY BE OBTAINED 
THROUGH THE USE OF A FLQW CHART. THE VARIOUS SYMBOLS USED AND 
THETR MEANING MAY BE FOUND IN THE "FLOW CHARTING TECHNIQUES" 
S.ReL.. THIS PROJECT WAS DESIGNED TO MAKE YOU MORE FAMILIAR WITH 
THE WAY FLOW CHARTS ARE USED IN PROGRAMMING. 
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QO THE ORDER OF THIS PROJECT IS AS FOLLOWS: 
. 1. DESCRIPTION OF SORT ROUTINE. 
2e QUESTIGNS AND ANSWERS. 
3. FLOWCHART OF ROUTINE. 
4. ASSEMBLER LISTING OF ROUTINE 
52 STORAGE DUMP, 


O ANSWER ALL QUESTIONS IN THE SPACE PROVIDED. 
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O THIS PROGRAM WILL SORT A LIST OF FULLWOKD VALUES USING THE * 
ALTERNATING EXCHANGE TECHNIQUE. * 
ALTERNATING EXCHANGE IS SIMILAR TO THE STANDARD EXCHANGE TFECHNIQUE* 
IN SO FAR AS THE MANNER OF COMPARING DATA ITEMS. HOWEVER: ONCE THE* 

_ UPPER END OF THE LIST HAS BEEN REACHED (AND THE LARGEST VALUE PUT 
THERE}, THE SORT BEGINS TO WORK BACKWARDS TOWARD THE LOW END OF 
THE LIST, PUSHING THE LOWEST VALUE TO THAT LOCATION. WHEN THIS 
HAS BEEN ACCOMPLISHED, IT BEGINS AGAIN TO SCAN TO THE BOTTOM, THEN 
BACK TO THE TOP, £&TC. EFC. ETC. EACH TIME A SCAN IS ENDED, THE 
NEW TOP OR BOTTOM IS ADJUSTED TO EXCLUDE THE LAST VALUE. WHEN THE 
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*x TGP AND BOTTOM LIMITS MEET AT THE MIDDLE OF THE LIST, THE SGRT IS * 
* ENDED. * 
X*EEEGCESSESSSESESSSEEESEEEESES CARICATURE OF CCORE &8 &8&68E66EE65 GE EESEEEEEE G¥ 
* BEFORE SORT ". — S T' CAFTER SUCCESSFUL SORT) * 
*  fCEILING!' POINTS -1l-->+-—---------------- +<---LOW END OF LIST * 
** jf LOWEST # HERE | * 
* | { { ** 
* | # 
* | * 
a l { | % 
* V x 
* BEFORE SORT {| HIGHEST # HERE f{ * 
* FEL OGCR!® POINTS —--64-- > tee eer rr enn en tQ----UPPER END GF LIST * 
* "ITS GOLNG TO BE CNE OF THOSE DAYS*® x 
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EoT 
cot 
T61 
O6T 
68T 
88T 
181 
98T 
GBT 


est 
cet 
TST 
OST 
oLlT 
BLT 


dwiS cxuaqdv Tuacv 3009 1L93fF6C 


907 


LYOS SONVHIXS IONILVNYSLIV NV ONTSN 4194S f0Y¥d LYVHD MOT4 


396 


L6E 


FLOW CHART FROJECT, 


{QC OBJECT CODE ADDRL ADDR2 STMT 


208 
209 
210 
eli 
212 
213 
214 
215 
216 
2i7f 
218 
akg 


USING AN ALTERNATING EXCHANGE SORT 


SOURCE STATEMENT FOSAPRIC 
HS SS erase SS Sesees scenester aesses= ANSWER 16,)] =SeSeee Sasa e ene ese5 255555255 =S2S5 
*o = 
x= ReoeeCeoveeDeseeeE ARE THE CORRECT STATEMENTS. = 
*SSSSSSSFSESESSSSSLEES SELLE QUESTION 16.2 GSEFSHSESHEHSHESESSHSHSHSHEHFEHFHLHHH SSS 
* F $ 
* S $ 
x THE FIVE BASIC FUNCTIONS THAT CAN BE DEPICTED ON FLOWCHARTS $ 
** § ARE: $ 
* § dosee 85 So od a oe er $ 
* § ag ne EE RE RE SRE re $ 
* $ a ee ee eee $ 
* CL i aA Rate See Oe Te Sa $ 
%* F ee ee ees OE eee $ 
xg $ 
*SESFEHHCHSHHSSHHHSHSHSHLHSHHHSHSHIFLESESHHSHESSHEHSSHESFESHHESHHHLEHFHEFSEHHSHL ELSE SHESHGESHS 


PAGE 6 


9/16/70 


00020209 
CO02C300 
GOU20400 
00020500 
00020600 


Q0002080C 
G0020900 
00921000 
QGV211900 
CCO2120C 
09021300 
00021400 
0G021500 
OO0O2160C 
OU2217C0 
OCO2180C 
OGU21900 


86E€ 


FLGW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT PAGE ¢ 


LOC OBJECT CODE ADDRL ADDR2 STMT SQURCE STATEMENT FOSAPRTS 9/16/76 


222 *sSsSessSSeesaesasssess=== ANSWER 16.2 SSS HHS Sa St SSa saa Hea SSS SS SSS SSH SS= YOVUS2A2CO 
223 *= = 00022300 
224 *= 1. PROCESS = C002240C 
225 %*= 2. INPUT/OUTPUT = 00022500 
226 *= 3. FLOW OR SEQUENCE = 00022600 
22¢ *= 4. CONNECTION = OCC2Z2700 
228 %*= 5. ANNOTATION: ADDITION OF NOTES. = 000228006 
229 %= = 00022900 
2A) SSeS S SSS 5 SSeS o> F355 S35 = 3 = SS Se a Se ee a ae Sa a eS SS ae ae ee Se a Se See See = OGIO 34000 
2322 *SEFHSHFHESSSHSHSSESHKSSHESESH QUESTION 16.2 SHHSSHHSEHSHESHFHSHSHESEHSSHESSHHSHESHESSE OGC23290 
233 *% $ VOC2323G00. 
234 *§$ A *PROCESS* BLCCK IS LOCATED CN THE FLOWCHART OF THe ROUTINE $ C0023400 
2355 S$ AT: $ 900235006 
236 *$ $ GCOO23E09 
231 #S A. D4 $ GOC23709 
238 *§% Be D2 $ GVOC2380C 
239 *§ C. 03 € 90023900 
240 *$ D. C4 $ J0024COU0 
241 *§ THE ANSWER IS Uw. $ 00624100 
242 *$ $ 00024209 


243 *SESHSSSEESHSSHFSSSSESHEFSSSEFHHSHSHHSSEFSEHESHSHSHHSHSSHHHSHSHSESHSHSLHSFSLESSESHSSGES GOCL4300 


CHART PROJECT, 


YBJECT CUDE ADDRI ADDR2 


66E£ 


USING AN ALTERNATING EXCHANGE SCRT 


STMT 


261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
27¢l 
22 


SOURCE STATEMENT 


eer reksandieadieredietirendiipanadibncallinsedliiamndtaadiitaiinaltdit-eadiaraditecadivestitt-aaltendie attest a) 
ee ee ee ee ee ae ee ee ee eee ee a ee ee amet SON cee mr Loe OO 


ANSWER L6.2 


% 


THE ANSWER [S.... 


Hoe OR 


We 


% 


li 


Hott 
a 
& 


34 


SLSHSHEHSHEFHESHSSEHEE SLE LHESS 


wh 3 


Rr RR FMF FH FHF H 


"DESCISTON’ 5SLOCK MAY GE FOUNC ON THE FLOWCHART 


st oe 


DO mw © 
WR Ww 


ta 
% 


THE ANSWER IS 


t 3% 


3 


FOSAPR Ta 


PEEPSSSLESELESLLLSSSSHHSLGPSGHS 


SHSFSHFHSSHFSHSHHSHHESHSHSESFFELESSEFLHSESHELHSHSEHSSSHESSSHSHHSSESHEHSHHSSEHLHESSESSS SS 


Peed eee nad condlicccasdiieretisesscilecadiiteetiicesdl aie re ee 
mr ee ee ee re me ee rem te tet amr en eee en ee ee cere a re eet ee 


. cadifequaduardinnerdiirereliscadiirandtiiaealiinwadupradinasalinaredticadipcocd-liinanthamatipiniandiianndterediberaliimedbaenticendtierediirenditendtizemedipenglitematpeetindadiansilltcativomdiic dat esntivatianalinedieasdiienadinaaiikenedte airandihentaadtiaasdticntted ar tana ree eet a eer rere nee ee ee ee 
ST em cme nee eta seem <a emt Sve Sit rem cm ie ae Pee iene eye mh rw, cae nm em sommts een ome mag “SII tr Sn LRA) me epee oe SR mt hs mY A, eee a SO mS OD “et Ce ges ee ee SO Cee ee en a nes em saw SN Se er mt cea 


mR 


Ps 
& 
4 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
. 
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yYf/16/70 


vIG24600 
IGU24790 
OU S24809 
90324900 
0UG25000 
BC525100 
9CI2Z52900 
0uu25300 
GIVZ549OC 
929€25500 
ewOZ2Z9609 
COU25700 
UG G25800 
90325990 


OGE26106 
00026200 
00026300 
06526400 
0002650 
06026600 
00026700 
CO026806 
00026900 
ocoz7000 


oor 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT ; PAGE 9 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR/0 


9/16/70 
275 *seeeneeseaaseeessssreese=== ANSWER 16.4 =3S3E2 24 BSS SSeS eSseesessseze=s== 900027500 
276 *= = 00027600 
277 *= o*, = 00027700 
278 *= D2 x, = 00027800 
279 *= * *, = 00027900 
280 *= .* % . = 00028000 
281 *= THE ANSWER I[Seeceee *e oe eX eoaccsece = 06028100 
282 *= *, o * = 00028200 
283 *= *, * = 00028300 
284 *= *, 4 ¥ = 00028400 
285 *= * = 00028500 
286 *s=SBB SSH SSS HHS SSS SS HS SHS SHS SS SSS SS SS SSS SSS SS SH SS SSS SS SSS TS SSS SSS SSS TSS T= 00028600 


288 *S$$S$HS$SES$ESHEHFSFEHSSHSHHSSS$EHSHH QUESTION 16.5 SS$HSFESHHESHSSSSHSHSSHSESESSSHSSESS$S$ OOCZB8BCO 
289 *$ 


$ 00028900 
290 *$ TRUE SE AE SE $ 00029900 
291 *§$ $ 00029100 
292 *$ THE BLOCK AT LOCATION "D1" IN THE FLOWCHART IS A $ 00029200 
293 *$ PREPARATION BLOCK. $ 00029300 
294 *$ $ 00029400 
295 *SHSHSHSHSHHSHHSHHSFHHSHHSHHHHHFEHSHHSHHSHHFSHEHSHHHHHFHHHSHHSFHSSEHFHSHHSHSHHHLSFHFHHHHSHESSSH OOOZI5V0 


LOV 


FLOW CHART PROJECT, USING AN ALTE 


LOC. “OQRJECT CUE ADDR1 ADDR2 STMT 


304 
305 
306 
307 
308 
309 
310 
311 
3b2 
313 


RNATING EXCHANGE SCRT 


SOURCE STATEMENT FOBAPR TQ 
KmmoesSe esr sesseseseseseressese=ses ANSWER 16,5 =S=SSSS 2 SS Serre rsrsses esses sstsss 
*= RIGHTO. «oeee5 IF IS VERY TRUE. = 
x= = 
*S$SESESHSSSSHSHSSHSHSHSSHSHHSHESES QUESTION 16.6 SSSHSESHSHESHSSHESHSHSFSESESESSHSSSS 


*g 

* $ THE SYMBOL HANGING QFF THE "YES* LEG OF THE DECISION BLOCK 

* § AT LOCATION 'A2* IS: 

* $ Ae AN QFFPAGE CONNECTOR. 

* § Be. AN INPUT/OUTPUT BLOCK. 

*$ C. AN ONPAGE CONNECTOR. 

* $ D. A PROCESS BLOCK. 

*§ THE ANSWER [S___ 
*SSSHSESSSSESHSHSSHSSHSHSHHSSSSHHSHESHEHSHSHESSHESHHHFSHSHGLSESSSFSELSISESSLILLSISSESHSS 


$ 
$ 
§ 
$ 
$ 
$ 
$ 
$ 
$ 


PAGE le 


GfL6E/7C 


QUVG2980G 
QOV29500 
CULZONVIC 
96930100 
V0030200 


GCO30400 
00030500 
Q00U30600 
00030 70C 
0UG 30800 
C0030900 
06031900 
00U31100 
06031200 
00031300 


401 


cov 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT PAGE ll 


LOC OBJECT CODE ADDR1L ADDR2 STMPF SOURCE STATEMENT FO8APR70 9/16/70 
316 ¥*=SS SSS SSS SSS SSSeSes===== ANSWER 16.6 ==33 2525525555555 SS52SSeeer=e==e=== 00031600 
317 *= = 00031700 
318 *= * = 00031800 
319 *= * * = 00031900 
320 *= THE ANSWER IS .ee5 *#C#X = 06032000 
321 *= * * = 00032100 
322 *= AK = 00032200 
323 *= = 900032300 
Ce Se Se 00032400 


326 *S$S$SHS$SHESHSH$HESHSSSESHESHSESS$S$S QUESTION 16.7 S$H$HSS$HEHSHSHHESHHHESHESHSHEFSHSHSESF$ESES OCO32600 


327 *$ $ 00032700 
328 *$ THE LOGICAL FLOW WITHIN THE FLOWCHART BEGINS AT THE BLOCK $ €00328900 
329 *§ AT LOCATION: $ Q00032900 
330 *$ A. Al $ 00033000 
331 *$ Be D5 $ 00033100 
3232 *$ Ce. E4 $ C0033200 
333 *$ D. D3 $ C0C33300 
334 *$ PUT ANSWER HERE $ 00033400 
335 ¥*GSHSHSSSHSHHHSHSHHHSSHSHSSHHLSHHSHSHSHSSHHHSHEFSHHSEHHHFHHHSHFSHSHHFHEFLFHHHFEHSSHHH HH HSS 


0003350C 


FLOW CHART PROJECT, USING 


LOG. GROECT CURE ADDRL ADDR2 STMT 


cov 


348 
349 
350 
aot 
352 
353 
354 
225 
356 
351 
225 
359 


AN ALTERNATING EXCHANGE SORT 


SGURCE STATEMENT FOSAPRT7O 


Seendibeanadipaardiadiieusdiftaditeasdiernditensdiifvansttesadikenadinaadins-adiiteusetitnadiipanditesnstieadtitaadlitesdt eben erate 


ee cee nee seme eee Se ee ee te re eee ee ee ee ee ee ee ee eee oe ee 


He o% 4 ae 4 


How Wow om om tt 
~ 
= 
Mm 
> 
az 
”N 
= 
Mm 
v2) 
— 
—N 
~) 

° 

° 

e 

° 
Kt + % 
m 
z= 
a 
* 
~< 
tet 3% 


#4. 


S cwatlifemadliomeclipanndlipnandipeanslipnradipomedi-anedibewndifpramalpreedfanntibenanndscuedionandi panded pacatiavendiraantiasmiamaedpresallip-cestineatitmandiipwediieamditeadhendiitencaiitessdiaeadtieandlitsasateeendtipemaliemadiennstienadiadtlt o-diealioend Etat aaediendtssateadi ee ae Eadie te Te ee 


~*ESSSSESLSSHSLFEHSHHSSSESSESS$HSE QUESTION 16.8 H$HSHHLHFHFHHSSHLFHSEFSSHESHHHHFE SHEFF HHS 
* 

*$ THE END OF THE PROGRAM [TS REPRESENTED BY THE BLOCK AT 
eS LCCATION: 

* A. 
* $ B. 
ae C. 
*$ De 
*g 

* § 


x“ 
* 


*ESSESESSSSSELSIESSESESESESSEISESESSESSHSSSESSHEESSHESESLSLSESHLLE SHS HLS SHSSS 


E4 
D5 
Al 
D3 


HOERE-+--—> 


THE ANSWER GGES HEREse---> 


PARP AA AR AH HF A 


PAGE 


12 


G/16/7 76 


0003380C 
06033990 
OGU34C600 
000341900 
000342900 
0003430C 
00034406 
00034500 
90034600 


00034800 
00034900 
00035C00 
00035100 
00035200 
00035300 
00035400 


00035500 © 
00035600 . 


OC035700 
000358900 
0CG35900 


Ov 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT | | PAGE 13 


LOC OBJECT CODE ADDR1 ADDR2 STMT SGURCE STATEMENT | FOBAPR70O 9/16/70 
362 *sssss2Sssesenezeessezessse=e= ANSWER 16.9 se e3S=282 2225S SsSeeeee2=S=== 00036200 
363 *= = 00036300 
364 *= Me eK AD) BK a a KK KK = 06036400 
365 *= * - = 00036500 
366 *= THE ANSWER [Seee. * - END OF SORT * 220-2 'D!*. = 00036600 
367 *= | 7 * * = 00036700 
368 *= HE A A A EK OK Ae OK AK = 00036800 
369 *= = 00036900 
3740 *SSSSS SSS] 5 55S S=S S525 S55 55 2 SS Ss = SS SSS Sas SS Se See Se Se SS SS Se Se SS Se Se Se Se Se ee Se SS OOO 3 TOC 


372 *S$S$$$HSSHSSHHSHFSSSESSSESSSSHS$SH$ QUESTION 1659 S$H$$SHSSSSESHHFESHEFSHSESHSSHSSESSES OOOZB 7200 


373 *$ $ 00037300 
374 *§$ THE BLOCK AT *AL* IN THE FLOWCHART REPRESENTS WHICH OF THE $ 00037400 
375 *$ FOLLOWING STATEMENTS IN THE ASSEMBLER LISTING ? $ 000375C0 
376 *$ A $ 00037600 
377 *$ A. OUT DC H*00O* N $ 00037700 
378 *$ B. C @F,CEILING S $ 00037800 
379 *$ C. ALTSORT CSECT | $ O0C37900 
380 *$ D. STM @E,aC,12(aD) V $ 900038000 
381 *$ eee $ 00038100 
382 *SSSSHSFSHESFSHESHHSSSHSHHHSFSHSHE SES HHFSHHHSHSHSH$FSHEHFHFSHEHSHHSSHSFSSFHHSHHF$HEHSHEHSHFHHSFSHSHFHSHSHSS$H$ 00038200 


SOV 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC ORJECT CODE ADDR1 ADDR2 STMT 


396 
a9 T 
398 
399 
400 
401 
402 
403 
404 
405 
406 


% 


SOURCE STATEMENT FO8APRTO 


eee SSS See ea See Se ANSWER: 16.9 ==22====s2=s$s=-=2==]22=2==-== 


KK KK 


ANS= 


HH 36 HH 
3% te HH % 


% 


"GOT THAT,ITS Cc." 


*SSHHSHSSHSSHSSHSHSSHESHSHSHHSHHFH$HHESS QUESTION 16.10 SHHHHSHLSHSFHSHHHSHLESHSHSHESHSSS 
* $ $ 
*$ THE BLOCK AT *E1* IN THE FLOWCHART REPRESENTS 64 BEING $ 
* §$ PLACED IN THE LOCATION WHOSE ASSEMBLED $ 
* $ ACDRESS [S: $ 
* $ Aw X*28° $ 
* $ Be X*52! $ 
* $ Ce. X*260! THE ANSWER IS ____ $ 
*$ De. X*258! $ 
* $ $ 
*SSSESESLSSESSESSSFEEFSSESSSHSHHSHHSHSHESSSHHSSHSHSSHSHSHSSSHSHFEHSHFHEFHHSHEHHHSHS 
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G/16/70 


00038500 
OUC38600 
009038700 
00038800 
00C38900 
00039000 
00039100 
00039290 
00039300 
00039400 


00039600 
00039700 
00039800 
00039900 
0C040000 
00040100 
00040200 
00040300 


~ 00040400 


G0040500 


00040660 


90P 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 


H HHH HHH H 


PAGE 15 

SOURCE STATEMENT | FO8SAPRT0 9/16/70 
Sosa Sseresessssesstesssereess== ANSWER 16.10 see SSeeeSe5ee5Seee5zeeeeeezzz== 90040900 
= = 00041000. 
= THE ANSWER Is ae ecccee esee@eeee0eaens@aeeeeseeneseesespeeeo4W@asene017cdcee te 6 8 *Crt= 00041100 
= = 00041200 
= "IT's = 00041300 
= STILL = 00041400 
= *c* = 900041500 
Ba emse te S Se Set Sse ss Ss Ses SS SS SHS SSS Ses SSS SSeS SSS Ss Ss SSeS SSeS sees SESeSs==z==== Y0O041600 
XS$SSESSESSSHSHLESHSHSHSHESHHSHESHSHFESS QUESTION 16.11 ES$H$H$HS$HSHSHSHSHSSESHHFESHSSESSSS$$ESE 00041 800 
* § $ 00041900 
* $ $ 00042000 
* § THE *YES* LEG OF THE DECISION BLOCK AT 'B2* OF THE $ 00042100 
*§$ FLOWCHART DIRECTLY RESULTS IN WHICH OF THE FOLLOWING: $ 00042200 
* $ | $ 00042300 
*§ A. 1 BEING ADDED TO 'CEILING® $ 00042400 
*§ Be. 1 BEING SUBTRACTED FROM 'FLOOR® $ 00042500 
* § C. 1 BEING ADDED TO ‘FLOOR'® $ 00042600 
*§ D. NOTHING BEING ADDED TO THE WALLS. $ 00042700 
*§$ $ 00042800 
* $ $ 00042900 
$ 00043000 


KEFSSHHSHSSHHFSHSFEHHSHSHHSHFH$HHSHSHSSHSSHSHSSSHSHSHSESHHHSHSHESHSHSHSHSHHSSHSESSHEHSSHSSHHSHS SESS 


Lov 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SGRT 


10C QBJECT CODE ADDR1L ADBR2 STMT 


433 
434 
435 
436 
437 
438 


440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 


~ 


See te 
How wou 


SOURCE STATEMENT 


THE ANSWER ES A ee ek 3 


FUBAPRIO 


ee ee we ee ee ee ea ee 
~~ ee ee ee ee eee eee eee 


KESSSSSSESHHSESSSHSSEHSHSESESHSHSE QUESTIUN 16.12 F$HS$HHESHSHSSFESESHHSFESHS HHH 


*§$ 
* $ 
* $ 
*$ 
*$ 
*$ 


Sond 
pd 


* $ 
xs 
*$ 
* 
*$ 
*$ 


THE PAIR OF INSTRUCTIONS AT ASSEMBLED ADDRESS A4& AND A8B 
IN THE LISTING ARE REPRESENTED BY THE FLCWCHART BLOCK AT 


LOCATION: 


THE ANSWER [IS 


Ae B2 
Be D2 


*KESSSSSSISHESLESSSSSSSSESLEGSSESSSSISSSSESSSSFSEHSTLSSSSLSSSESHESHESSSSS SSS 


$ 
$ 
$ 
$ 
$ 
$ 
§ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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9/16/70 


C0043300 
000434900 
00043500 
90043600 
00043700 
00043800 


00044000 
90044100 
00044290 
00044300 
00044400 
00044500 
00044600 
00644700 
00044800 
00044900 
00045000 
00045100 
00045200 
G0045 300 
000454350 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT e . PAGE 17 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT . FO8APRT0 9/16/70 
457 *=ssaeeeesoseeseseee2=25===s=== ANSWER 16.12 Sos sessssssssssessseeeezss=== 00045700 
458 *= , = 00045800 
459 *= = 00045900 
460 *= THE CORRECT ANSWER [IS ‘ce = 00046000 
46] *= = 00046100 
462 *= = 00046200 


463 eee esssscsssasssesssSsssesasssssssssessesessseesee5s2S25esseee5525==== 00046300 


465 *$S$S$ESSHSSHSSHESHSHEHSSHS$SSHSHSSHES QUESTION 16.13 S$H$HSH$SHESHFSHSHSHSSSSESH$SSHSSESSE ON046500 


em 466 *$ $ 00046600 
8 467 *$ TRUESFEALSE $ 00046700 
468 *$ $ 00046800 
469 *% THE ROUTINE REPRESENTED BY THE BLOCK AT E3 MAY BE ENTERED $ 00046900 
470 *$ FROM BOTH THE INSTRUCTION AT ASSEMBLED ADDRESS AC AND $ 00047000 
471 *$ THE ONE AT ASSEMBLED ADDRESS 72. $ 00047100 
472 *$ $ 00047200 
473 *$ | : | $ 00047300 
474 *S$$$SSSSSHHHFSESHHSH$SHSSSSSSHFSSFSHSHSSHSSHHFHSHSFSSSHSSESSSHHSSFSS$SH$SHSHSSSSSHSS$S$SSES$ES 00047400 


607 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


4 84 
485 
4 86 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SCRT 


SOURCE STATEMENT ; EGPAPRTC 


+ 


*% + 


3¢ 


SSS S$$SS$HSSSS$SESSSSSS$SSSSSS GUESTION 16.14 SSSHSS$FSFSSSSEFSS$H$SESHSSSS 
* $ $ 
* $ $ 
* $ THE FUNCTION OF THE FLOWCHART BLOCKS AT 82,C23D2,E3 AND E2 $ 
** $ TS: $ 
* A. PUSH THE LOWEST NUMBER UP TO THE LOW $ 
* $ END QF THE LIST. $ 
*$ Be PUSH THE LOWEST NUMBER DOWN TO THE $ 
* $ UPPER END OF THE LIST. $ 
* $ C. PUSH THE HIGHEST NUMBER DOWN TO THE $ 
* $ UPPER END OF THE LIST. $ 
* § D. PUSH AN AVERAGE NUMBER NOWHERE. $ 
* $ $ 
KSSSSSSESHSSSHSSHSSHSHFHSHSHSHSHFHSHSHFHHHSHSFHHSHEHFSHEFSHEFEFSHFHHHSHHSFSFHHFSHSHLHFFEHHHEHHSHHHHSSHS 
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S/16/T70 


OC04776C 
JUL4T BOD 
COC4& 7950 
000480G0 
90C48 1390 
400482006 


000484900 
00048500 
00048600 
00048700 
U0048800 
00048900 
00049C00 
00049100 
00049 200 
00049300 
00049400 
90049590 
00049606 
000497C0 


OLY 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


Loc OBJECT CODE ADORIL ADDR2 STMT 


500 
501 
502 

503 
504 
505 
506 


508 
509 
510 
511 
512 
513 
514 
915 


SOURCE STATEMENT FO8APR70 


% oH Ht 3 
| | 
~al 
= 
m 
> 
Zz 
n 
= 
m 
v2) 
— 
“ 
\ 
t 
' 
\ 
! 
' 
{ 
{ 
! 
| 
' 
' 
i 
' 
' 
{ 
{ 
! 
{ 
! 
Vv 
oO 
= 
HoH ow om tt 


% 


XSSHSHSSHHSFSSHSHSFSHSSESHSH$HSH$SHHHSH QUESTION 16.15 SESS$HHHSHHSHESHHSEHSSEH EE SSSELHESS 


*$ $ 
* $ | FTRUESYFALSE $ 
* $ $ 
* § THE DECISION BLOCK AT "A2* GOES TO "END OF SORT! $ 
* WHEN THE HIGHEST NUMBER IS AT THE BOTTOM OF THE LIST. $ 
* $ $ 
XS SSSHSSHSHSHSESESHSHSSSHHSSHFSESFSHSHHHFHSESHHHSFSESHHFHSHSHSHEHSSHSHFHFSHSHFEHSSFSHHHFHHHFSHSSHSHS 
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9/16/70 


00C50000 
00050100 
000502C0 
00050300 
00050400 
00050500 
00050600 


00050806 
00050900 
OCOQ51000 
GOQOU51100 
00051200 
00051300 
00051400 
00051500 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SGRT . PAGE 20 

LOG. OBJECT CUBE ADORIL ADDR2 STAT SUURCE STATEMENT FURAPR FO Gf/1E/ TE 
518 *sssSSsseSesescesseeeeeeez==== ANSWER 16.15 2233535255522 5525S SS 55eez==2== 90051800 

519 *= : = 060951900 

520 *= THE STATEMENT [S F A L S Ee = 00052000 

521 *= = 90052100 

522 *= IT GOES TO END CF SORT WHEN AT THE BEGINNING OF A DOWNWARD = 00052200 

523 *= SCAN IT IS DETERMINED THAT ALL NUMBERS HAVE BEEN SORTED. = 00052300 

524 *= ' . = 00052400 

5275 SSS SS SST SPT ra SSS SSS ST SS SSS HSB S SPT SS TTS SSS SSS SS SSS SS SSeS SSH SST Ss SS SSEsZ=== 0200527500 


S27 KSFSSSHSHSSHSHSHSHSHSHSHSHSHSEHSSSSSHSS QUESTIGN 16.16 HFH$H$SESEHHSSHSHSHSSHHSHHFHHHSHSHSH COOS2Z700 


LLY 


528 *$ $ 00052800 
529 *$ $ 00052900 
530 *$ THE FLOWCHART BLACK AT 'A5® REPRESENTS WHICH OF THE $ 000539000 
oot WS FOLLOWING: $ 00053100 
532 *$ Ae 1 BEING ADDED TO ‘CEILINGS. $ 00053200 
23:3 -*$ Be 1 BEING SUBTRACTED FROM "CEILING! .. $ 00053300 
534 *$ C. STARS FALLING ON * ALABAMA. $ 00053400 
535 *$ De. 1 BEING ADDED TO ‘FLOOR’. $ 00053500 
536 *§$ $ 0005360C 
537 *$ THe. ANSWER: DS. 0 8 oe $ 00053700 
536° °*$ $ CC0538C0C6 
5329 *ES$HSHSHSHSHESHESHSHHHSSHLSHSHSSHHSHSHFSEHSHHEFHSHEHSHESHSHHSHHHSHSHSHHSHSHEHSEFFSSHSSHH SHS HSS 


60053900 


eLy 


2 


FLOW CHART PROJECT; USING AN ALTERNATING EXCHANGE SORT | PAGE 21 


LOC OBJECT CODE ADDR1I ADDR2 STMT SOURCE STATEMENT . FO8APR70 9/16/70 
5942 *sesssercrsessesserceses=eseze== ANSWER 16.16 starr sesstsesssersereree2z==e= 00054200 
543 *= = 00054300 
544 *= THE ANSWER IS cocccccsccsee A? = 00054400 
545 = | = 00054500 
546 *= 6) WE'RE CAUSING THE VALUES OF *CEILING® AND *FLOORS = 00054600 
547 *= TQ APPROACH EACH OTHER TO ALLOW US TO DETERMINE = 00054700 
548 *= WHEN ALL THE NUMBERS IN OUR LIST HAVE BEEN = 00054800 
549 *= SORTED. = 00054900 
550 *= = 06055000 
551 *= = 000655100 
552 * 


Ses seSaSee SaaS sa ese eee Sa SSS SSS SSS SSS SS SSeS e SSS See eseeess2 Sess =S==2=5== 00055700 


554 *$S$HSHSHSSESHSSHSHSHS$HFSHESSSSSHS$H$S$HS$ QUESTION 16.17 SH$SHSHHSESSSHEHSHSHESHE SSH SSESS$H$ 00055400 


555 *$ $ 00055500 
556 *$ THE PROCESS BLOCK AT "'D4* REPRESENTS WHICH OF THE $ 00055600 
557 *$ FOLLOWING INSTRUCTION STREAMS ? $ 00055700 
558 *$ $ 00055800 
559 *$ A B C $ 00055900 
BGO FS i semieemrete | | SPT RRS RESe  —Smeeeee $ 00056000 
561 *$ L aly @DO9OFE LA dFylI L ary! $ 00056100 
562 *$ SLA aly2 A aF,l BCTR a@F 0 $ 00056200 
563 *§$ L OF yLIST-4(al) ST dF,1 ST aF a1 $ 00056300 
564 *§$ $ 00056400 
565 *§$ $ 00056500 
566 *$ THE ANSWER IS UU . $ 000565600 
567 *$ $ 00056700 
568 *SSSHSHSHSSHSSHFSFEFSSFFSHSFSHSFESHESFSFFFSFSHSHSSEFSFESSHFSHSFIHSFHFSSSHSHFSFSHSEFSSSSHESS$S$ESS$S$S$$$ OG056800 


ELv 


PLOW CHART PROJECT; USING AN ALTERNATING EXCHANGE SORT 


bas “I30EGT Cape ADDRL ADDR2 STMT 


571 
572 
SS 
574 
575 


Sis 
508 
579 
580 
581 
Bee 
“283 
5 84 
585 
5&6 
587 


5 89 
2 20 
591 
522 
593 
594 
29) 
596 


597 


ste ae ee 


Pi, 


oS mn om 


oe 


SGURCE STATEMENT FOSAPRT79O 


| Aandiocnatisowalliperedanaedicrasdliinadimeatiicadtiivenstiitancdiiradtienatltcaaliemallionegdianalitestalliamatitendiswandipsardipaadivaaditansdikaardteeasdiandiacalineatiimasdtitnacdiitaadicadiircti raed ae ieee eee ene ee ee al eee clade ee eed 
ne nme tam RR erat gen Dae rey ene Yah om Wem am ae tere ms i a SD SUE etn em En einen re mm ce es ee ee oe oe Ce a ae ee a a A em Se eee Ce ene ce Sd ree ee ee come 


Kttttetteetet te ttetetetetetettettet+ W TS DD DO M bt ete eeeeteeteetetetetteetet 


* + 
Kk 
K + 
K+ 
a + 
aK 
* + 
ue 
K+ 


+ 
+ 
NOW THAT WE'VE BEEN THROUGH THE FLOWCHART AND DISCUSSED THE + 
WORKINGS OF THE PROGRAM TO SQME EXTENT, LET'S USE THE FLOW- + 
CHART TG SOLVE A PROBLEM. I DON'T KNOW WHETHER YOU NOTICED + 
IT GR NOT BUT THE SORT DID'NT WORK PROPERLY. + 

LET'S TRACK THE PROBLEM DOWN. + 
LET US PROCEED..«.. + 
+ 
+ 


EEE EEEEEDEEEFEFEE EEE ETE E EEE EEE EEE EEE EE FEE EEE EEE EEE EH EEE EE EE HE Et tet et 


*SESSHSHESHHSSSSHSEFSSSHSHHSSHHSSS QUESTION 16.18 SS$HSHHHLFSHHSHEFHSHHSHHLEFSHSH SSS 


x* 
* $ 
* § 
* § 
«SF 
* 
xg 


$ 
TRUESEALSE $ 
$ 
THE 64 FULLWORDS AT SYMBOLIC LOCATION "LIST® SHOULD BE SORTEDS$ 
WITH THE HIGHEST NUMBER AT "LIST® AND LOWEST NUMBER AT $ 
"LIST#FC!. | $ 
$ 


*EHSSHESHSSHHSHOHLHSHHFHSHSHSSLHSSESHSHSELESPESEHEHHESESHHSESHEHESLESHSSLELELSESHESS 


Pa 22 


SALES TO 


00057190 
YC9572CC 
00057300 
039057400 
00057500 


O005770C 
96057800 
00057900 
UCO58000 
9058100 
00058200 
00058300 
OU058400 
00058500 
OCO58E00 
00C58700 


00058900 
00059C00 
00059100 
00059200 
G0059300 
00059400 
000595900 
00059600 
00059" GS 


vip 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


606 
607 
608 
609 
610 
611 
612 
613 
614 


SOURCE STATEMENT FOBAPRTO 


K sescoseessseseesese=esaSee=s=5 ANSWER 16.18 =s2=e23ste222ERss2s22Ss=sers==2 
x= = 
*= F A L S E T'OTHER WAY ROUND. = 
KRBSRSS HSS SS SS SSS SSS SS SSS SHS SSH SS SHH SS HSS SH SSH SSS SSS SSS ST SSS SS SS SSS SSSSS5 
*SESSHSSHHSSSHESSSSSSFSHSHSSS$ES$$SSE QUESTION 16.19 S$ESHSHSSHSHESHESSHSHSSHEHSHHSHSS 


* §$ $ 
* $ $ 
*$ TRUEJSFACLSE $ 
* $ : $ 
* $ THE CONTENTS OF THE LOCATION CALLED *LIST* ARE SORTED $ 
*$ CORRECTLY IN THE STGRAGE DUMP. $ 
%* $ $ 


XSEFSFHFSHFSSSFSHESHSHSHEFSSHSHSSESSHFSSHSHHSHSHSHSHSHSSHSHESHEHSSFHSHSFEHHSHFEHSHSSHHSHHHHHHE SHE 
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9/16/70 


00060000 
00060100 
00060200 
00060300 
0C060400 


0006G600 
O000607TCC 
00060800 
GQ060900 
00061000 
00061100 
00061200 
00061 300 
0006140C 


SLp 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


617 
618 
619 
62C 
621 
622 


624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 


SOURCE STATEMENT FO8APRT70 


Kame SSsesse eS ssSsesssssese=== ANSWER 16.19 3222555525555 5555e5555Ss5== 
x = 

= THE ANSWER IS FLAES. THEY'RE SORTED ABOUT AS WELL = 
a= AS "FALSE" WAS. | = 
«= = 
K SSS SSS SS SSS TSS SSS SSS SST SSS SSS SS SS SSS SSS SSS SSS SSS SSS tH HSS SSS tS ststssss= 
FSSSSSHSSHSHESHHSSHSHSSSHESSLE$SSSHS QUESTION 16.20 S$H$HHFEHSGESSSHHHHSSSSESESSHSSS 
*$ $ 
* $ $ 
* $ THE PROGRAM CHECK WHICH CAUSED THE DUMP TO BE TAKEN $ 
* $ RESULTED FROM: $ 
*«$ $ 
*$ A. A BAD INSTRUCTION AT ASSEMBLED ADDRESS$ 
*§ "AG. $ 
* $ Be A CALL FOR THE NORMAL "END OF SORT! $ 
* § DUMP. $ 
*$ Cw. A SPECIFICATION EXCEPTION. $ 
* $ D. LIGHTENING. $ 
* $ $ 
*§$ THE ANSWER [SLL . $ 
* $ : $ 
*ESSFSHSHSSHSSESSHSSHSHSHSSHEFHSHSHHSHHSFHSHFSFHHSEHSHSSHHSHESEHSHSHSFSSHHSHESHEHFHLHHESFSHSHESSHS 
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00061700 
00061860 
0C061900 
0C062000 
00062100 
00062200 


00062400 
00062500 
00062600 
00062700 
00062860 
00062900 
00063000 
00063100 
00063200 
C0063300 
00063400 
00063500 
00063600 
00063700 
00063800 
000639900 


SLY 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT PAGE 25 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOB APR7O 9/16/70 
G42. SSeS Ses 2S$s sae seseSa eee eseest= ANSWER L6<20 s=s=S=SSs2s S525 255555532552 OC06470C 
643 *= = 000643006 
644 *= THE ANSWER IS "B® = 060644C0 
645 *= = 00064500 
646 *= SOg99% THE DUMP TELLS US THAT THE SORT ENDED CORRECTLY, = 00064600 
647¢ *= AT LEAST AT THE CORRECT LOCATION. ON THE OTHER HAND = Q0C64700 
648 *= THE CONTENTS OF fFLIST® IN THE CORE DUMP SAYS THAT THE = 00064800 
649 *= SORT SORTA NOT SORTED. LET'S PROVE WHAT GREAT TROUBLE = 00064900 
650 *= SHOOTERS WE ARE AND GO FIND OUT WHY THIS SORT SORTA = 000650CC 
651 *= NOT SGRTED;, OKAY ? = 00065100 
652 *= = 90065200 
653 *SSBr BBS srs StS Sr SSr HBSS STS SSS SSS SS SS SSS SS SPS SRS SS SSS STS ST SST SS SSS SST ST=Ese= «COCEH5300 


655 *F$H$HSHFSHHSH$HSHEFSHSHSHHHSHSHESHSHSESH$HSHSSH QUESTION 16.21 S$SHSSHFEFLHHSSFESFSESSEFHSSESS$SSESSS OOOES500 


656 *$§ $ 00065600 
657 * $ OCO0065700 
658 * ACCGRDING TQ THE FLQWCHART THE ORDER OF EVENTS AFTER $ 00065800 
659° * ESTABLISHING THE BASE REG. IS: $ 00065900 
660 *$ $ GlO66TCO0 
661 *§$ { A { B | C | $ JOO66100 
662 * Pea eee See aS Sea tee Se Se Se = Se + $ QOGO066200 
663 *$ { } | | $ 0C066300 
664°*$ 1LefSET *CT*- 10.64 { SET 'CT' TO 64 ( SET *CEILING' 19 1 | $ 00066400 
665 *$ 2.4SET *FLOOR® TO 64 § SET "CEILINGS TO li SET SFLOOR' TO 64 | $ GQ066500 
666 *$ 3.]SET "CEILING' TO 1% SET FLOCR TO 64 i SET *Cr® TG) 64 | $ CO0EE600 
667 *$ l | | | £ 00066700 
668 *$ a a ea catia aaa aa aS SS ae ea Lee ae eee ee + $ O0066806 
669 *$ $ 00066900 
670 * $ Q00067000 
671 * $ 04067100 
672 *SSSHSHSSEHHSHHHFLHHFHHHHHFHSSEFGHHEFHHHFHHFGHSHHHHHSHFHESHSHFSHHHFEHHSHHEHHHHLH LESH SSE CCOG62ZCO 


LLY 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1L ADDR2 STMT 


682 
683 
6 84 
685 
6 86 
687 
688 
689 
690 
691 
692 
693 


% % % 
| 


% 


* § 
* § 
*§$ 
*§$ 
*$ 
* $ 
*$ 
*§ 
%* > 
* § 
* $ 


SOURCE STATEMENT FO8APRT0 
eeocrtssrssssscsesssessress=s= ANSWER 16.2] =S22 23322225552 552S5eSe 55 5SS=== 
THE ANSWER IS "Bt. = 
SEHSHEHSHEHSHSHHSHHSSHHHSHSHHFSHSHEHSHSHE QUESTION 16.22 H$HHHHEHHHSHEHHFHFHSHESHHHESHHEH HESS 
$ 

$ 

THE CONTENTS OF "CT, "CEILING' AND "FLOOR® CIN DECIMAL ) $ 

IN STORAGE ARE: $ 

$ 

Ae 6391764 $ 

Be 64,54,1 $ 

C. 11,64 $ 

D. 6451,;63 $ 

§ 
XHSEHSHSFHSHHSHHSHHSHHHHFHHSSHLHHHHHHSHHHEHSFHSHSHHSHHFSFSHHLHSHSEEHEHLHSHHHHHHFESHHESESSHESS 
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00067500 
00067600 
00067700 
00067800 
00G67900 
C0068000 


O0GG68200 
0C068 300 
00068400 
0006850C 
00068600 
0C068 700 
00068800 
00068900 
00069000 
00069100 
60069200 
00069300 


SLD 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


696 
697 
698 
699 
100 
T01 
102 
103 
104 


706 
T07 
708 
709 
710 
711 
712 
113 
714 
15 
716 
17 
718 
719 
720 
tad 


SOURCE STATEMENT FO8SAPR70 
Kamas seat rsesssasssssesscessrssre= ANSWER 16,22 ss3SSSSraS 25S SSS SS5eSSSS555SS55 
x= THE ANSWER IS -ccccccceee 'D? = 
*= = 
*= HEY, "FLOOR ITS ONE LOWER THAN IT WAS WHEN WE STARTED. = 
x= THIS MAY HAVE SOME SIGNIFICANCE,SQ KEEP IT IN MIND. = 
X$ES$HHSHSHSSSHHHHSHHSHHSHHHSHEHFHESHE QUESTION 16.23 H$SFHFFEHSHFHHHFHEHHHHLHSHFHSHSHHHSSE 
* $ $ 
XG $ 
* § THE ORDER OF THE NUMBERS IN THE "LIST® IN STORAGE ARE: $ 
*G $ 
*$ A. THE SAME AS THE QRDER AT ASSEMBLY TIMES 
*§ Be. THE LOWEST NUMBER IS AT THE $ 
*$ LOWER END OF THE LIST. $ 
*g C. THE HIGHEST NUMBER IS AT THE $ 
*$ UPPER END OF THE LIST. $ 
* D. AN AVERAGE NUMBER [IS IN THE MIDDLE $ 
* $ OF THE LIST. $ 
*g $ 
* § THE ANSWER [S___ ‘ $ 
*¢ $ 
XFESSHSESHSSHHSHHSSHHSSSHHHEEFHHHSHHHSHHEHHFHHLHHHHHHSHHFSSHEHHGHLESHHHHHEHGHHSHEHH HHS 
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0C069600 
00069700 
00069800 
00069900 
00070600 
00070100 
COQO7T0200 
00070300 
00070400 


00070600 
00070700 
00070800 
0C070900 
00071CG00 
GO071100 
O0CO071200 
COG71 300 
00071400 
00071500 
OCOT1L 600 
OO0OTIL TOO 
00971800 
G0071900 
Q0072C00 
00072100 


6LY 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDRi ADDR2 STMT 


732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
144 
745 


SOURCE STATEMENT FO8APRT0 
eS SSsSesesSesSSS= —SSSS=sesesze= ANSWER 16.2723 S==S=sSS3=22==S55S====5===S== 
*K= = 
*= THE ANSWER [S.-e*C! = 
*x= = 
x= = 
SaaS SS SSS SS a Se SS SS Se SS a ae = SS SS SS SS SS SS SS SS SS SS SS SS SS = SS SS SS SS SS 
XSSHFSHSSHESSHHSHSHSHSHSHESSHSSHESHSHHS QUESTION 16.24 SH$HHHSHEHSHLHHSHEHEHSHEFSHSHHESHSSLSS 
* $ | $ 
* $ $ 
* THE FLOWCHART BLOCKS WHICH REPRESENT THE FUNCTION OF PUSHING §$ 
* $ THE HIGHEST NUMBER DOWN TO THE UPPER END OF THE LIST ARE: $ 
*¢ $ 
* $ Ae B2,02;D2;E2 AND E3. $ 
*$ Be A4yB4,C4,04,AND D5. $ 
*$ C. BlyC1,DisEl, AND Ad. $ 
*§ De AlsD3,A5,EL,C1L,AND C4. $ 
*§ $ 
*$ THE “ANSWER 0S eons ts $ 
*§ $ 
XFSEFSHHSHHHSFSHSHHSHHSHEFGHSHFEHSHHSHHSHEHHHFSHHEHFHEHHHHSHHHHFSHSHHSHHEF HHH SHHEHFHSLSSFHSESEHSSHS 
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00072400 
00072500 
00CG 72600 
00072700 
00072800 
00072900 
CC073000 


00073200 
00073300 
00073400 
069073500 
OGO73600 
00073700 
00073800 
00073900 
000 7400C 
00074100 
09674200 
00074300 
CO0T4400 
CO074500 


0cv 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


155 
156 
757 
758 
(59 
160 
761 
162 
163 
164 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SCRT 


SOURCE STATEMENT FO8APRTO 


XSSHSSH$SSSESSSHHSHSHHSSHEHSSHSS$SHESH QUESTION 16.25 SHSHEHSHEHSHEHSHHSFSLGHSSHFSHSSESSHS 
*$ $ 
*$ . $ 
* $ TRUES FALSE $ 
*$ $ 
* $ WE HAVE JUST PROVEN BEYOND A SHADOW OF A DOUBT THAT $ 
*G THAT THE BLOCKS ON THE FLOWCHART AT B29C2:;D2,E2,AND E3 $ 
* § FUNCTIONED PROPERLY ON THE FIRST PASS THROUGH. $ 
* $ $ 
XFSPSHSSHSSHHSHFSSHSHHHSHSSHSHSHSSHHSSHHSHHHGHFHFESESHSHSHSHHSESHHHSESHFSHSHFLFSSSHHSSHSHLSSHSS 
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00074800 
00074906 
00075000 
00075100 
00075200 
00075300 


00075500 
00075600 
00075700 
00075800 
00075900 
00076000 


00076100 


00076200 
00075 300 
00076400 


FLOW CHART PROJECT, USING AN ALTE 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


Lev 


719 
180 
781 
182 
{83 
184 
7185 
186 
787 
188 
1389 
790 
Gl 
192 


RNATING EXCHANGE SORT 
SGURCE STATEMENT FO8BAPRI0O 

Kommm messes seer ese SesSssesstseszszsesc= ANSWER 16.25 s=B=S BSE sSS SSeS 525255 s525552== 
x= = 
x= THE ANSWER TO THAT LITTLE DITTY [S...f R U Esooee = 
= REMEMBER, WE OO HAVE THE HIGHEST NUMBER PUSHED DOWN = 
= TO THE UPPER END OF THE LIST. = 
K=ceecccsccoses tL E YT ' S MOVE GN @eeee#2ee#e¢eee#es*# ad 
*x= = 
*¥*PFSFEFHHSH$SHFSHSSHSSSSHESHESHHHHSHHEHH QUESTION 16.26 SSHHFHFEHSSEHFSHFSFLEHHHEFSHESHHSHS 


* $ $ 
* $ $ 
* THE PROGRAM PASSED THROUGH THE FLOWCHART BLOCK $ 
*« § AT *B3" 3 $ 
** § $ 
* $ A. ONCE $ 
* $ B. TWICE $ 
*S C. 64 TIMES $ 
* $ D. NEVER EVER % 
* % 
* § THE ANSWER TO THIS QUESTION [TS ~ooUo § 
a % 
XHSFESHHSSSSSSSSEFSHSESESHSHSHSHHESLESESSLFSHHHLEL SEH SLEFP SSL SESE LES LESHSSLESESe as 
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00076700 
Q007T6800 
OCQ769C0 
OOUTTCOO 
00077100 
OVOTT2C0 
Q0U1T300 
00077400 
Q0077500 
COOTI600 
OQ07TT700 


QO0077900 
JOO078CCO 
CGO7T81900 
00078200 
00078300 
00078400 
00078500 
O0G78600 
VOC 78 700 
GUOGFIRRGOD 
GCOTESS 

JOOFSG0O 
DGS 7TeLeS 
JG3T92Z00 


ccyv 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT PAGE 31 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FOSAPR70 9/16/70 
195 *ss=S=SeSs5=—S2eeSs=SsseSse-Ss== ANSWER 164726 S23 SaSeeeseeSees 522225 ==== O00T9500 
196 *= . = 00079600 
7197 *= "A" TS THE CORRECT ANSWER...eeTHE LAST TIME WE LOOKED AT = 000797C0 
798 *= "FLOOR' IN CORE WE FOUND IT TO BE QNE LOWER THAN THE = 00079800 
199 *= VALUE WE ORIGINALLY SET IT TO(64). = 00079900 
800. *= = 090080000 


801 Keer ec SsSe rr Ss SS se SBE Se SSS SSS SS SPSS SSS ss SS sess ts See SS Se See SS TSS SS SS SSS seseHeeeze= 0OONO80L00 


803 *K+te+ttteettetet+e RE C A P +t+tettttt RE C A P tettttttt+ RE C A P +4444 G0080 300 


804 *+ + 00080400 
805 *+ : + 00080500 
806 *+ SOQ FAR WE HAVE FOUND QUT THAT: + 00080600 
807 *+ | ; + 00080700 
808 *+ 1. THE *FLOOR' ITS NOW EQUAL TO 63. + O00C80800 
809 *+ 2. THE "CEILING" IS NOW EQUAL TO l. + 00080900 
810 *+ 3. THE HIGHEST NUMBER HAS BEEN PUSHED DOWN TO THE + Q0081000 
3 LL + UPPER END OF THE LIST. + 000811900 
B12 + 4. THE LOWEST NUMBER HAS NOT BEEN PUSHED UP TO THE + 00081200 
813 *+ . LOW END OF THE LIST. + 00081300 
814 *+ + 00081400 
815 *+ STATEMENT NUMBER 1 TELLS US THAT THE "RAISING" OF *FLOOR' + 00081500 
816 *+ WORKED PROPERLY. + 00081600 
B81t *+ + 00081700 
8165 *+ STATEMENT NUMBER THREE TELLS US THAT THE DOWNWARD SCAN + 00081800 
819 *+ WORKED PROPERLY. + 00081900 
820 *+ + 00082C00 
821 *+ STATEMENTS NUMBER TWO AND FOUR INDICATE THAT THE + 00082100 
822 *+ PROGRAM EXITTED BEFORE EITHER SCANNING UPWARD OR + COU82200 
823 *+t "LOWERING" THE "CEILINGS. + 00082300 
824 *+ + 00082400 
825 *+ + 000825900 
B22 KEEFE EEEEEEFE EEE EEE EE EERE EE EE EEEEE EEE EEE EEE EEE EEE TE EE EEE Ht ee tte tee tet+etet OOCB2600 


cv 


LOC 


FLOW CHART PROJECT, 


OBJECT CQDE 


ADDR1 ADDR2 STMT 


829 
830 
831 
832 
833 
834 
835 
836 
837 
838 


USING AN ALTERNATING EXCHANGE SORT 


SOURCE STATEMENT FOS8APR70 


*SSSHSSESHSHSSSSSHSHLHSSH$SHHSSS$HES QUESTION 16.27 S$FEHFHHSLSESSHESHESHEHSHSEHSHSSES 


* § $ 
*« $ $ 
* $ TRUESFALSE $ 
* $ $ 
*§ THE DECISION BLOCK AT LOCATION 'C3* GN THE $ 
* $ FLOWCHART DETERMINES IF ALL THE NUMBERS WERE SORTED $ 
%* § PRIOR TO BEGINNING A UPWARD SCAN. $ 
*$ $ 
*$HSSESH$SSHSHSHHSSSHSHHSHHESHFSHSFHFSHSHHSLHESSSLHSFSHSHSHHHSHSSFLHESHHEHFSHHLHHSHLESESHLSSSHHSHSS 
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00082900 
00083000 
00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
00083800 


vev 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1 ADDR2 STMT 


852 
853 
854 
855 
856 
857 
858 
B59 
860 
861 
862 
863 
864 
865 


SGURCE STATEMENT FO8APRT0 


% H% 


THE ANSWER TS ccecccceeeP R AV D> Awww ea ee 04-88 


* 


ENGLISH SUBTITLE.-.eeeeee-T R UE eeoee 


% 


% 
ee | | 


FOR YOUR INFORMATION THAT WAS RUSSIAN. 


% 


KSSHSSHSHEFSHFESHSHSESSHSH$HSSH$ESHSEHEHSH QUESTION 16.28 HSH$HEEFHESHEFSHESHESHESSE HSH HSS 


* $ $ 
* $ $ 
*§$ IF THE PROGRAM PASSED THROUGH THIS DECISION BLOCK AND QUT $ 
*$ THE "YES* LEG IT WOULD : $ 
* $ $ 
* $ A. GIVE THE SYMPTOMS WE HAVE NOW. $ 
*$ Be. INDICATE PROPER OPERATION AT THIS TIME $ 
*«$ C. BE INCORRECT BUT NOT GIVE US THE PRESENT SYMPTOMS. §$ 
* $ D. DO ABSOLUTELY NOTHING. $ 
*$ $ 
*$ THE ANSWER TO THIS MOST IMPORTANT QUESTION IS__ UU ° $ 
*$ $ 
EFSHESHSHSSSSHHHSHHHFSHSHHHHHHHHHFHHEHHGHHSHSSHHHSGHSSHIHSHSEFSHSHHHSHSHSEFSEHL ES HH SESH SGS 
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00084100 
00084200 
00084300 
00084400 
00084500 
00084600 
00084700 
00084800 
00084900 
00085000 


00085200 
0068 5200 
00085400 
60085500 
00085600 
00085700 
00085800 
00085900 
QCC86C00 
Q00C86100 
OGOQ862006 
00086300 | 
000986400 
0CG86500 


SCV 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDR1I ADDR2 STMT 


875 
876 
877 
878 
879 
&80 
881 
882 
883 
884 
885 
8 86 
887 
888 
889 
890 
891 
892 
893 


SOURCE STATEMENT FO8APRTO 


THE ANSWER IS ..-7A? 


ee me ee ee me ee ee ee ee ee eae ae ee eae eee eee ee Sa eee Oe EO ES eee IS 


*PESHSSHSHSHHSHSHSFSHSLESEFSHESSSHHSESHS QUESTION 16.29 EHHFHHEHSSHESHEBLLESSSESSSLESSSSS 


*F 
*§ 
* 
*G 
* $ 
Bae 
* | 
*$ 
* $ 
*$ 
"SF 
x $ 
%* § 
*$ 
* $ 
*g 
*§$ 


THE INSTRUCTIONS DEPICTED BY THE BLOCK AY 'C3* QF THE 
FLOWCHART ARE: 


ee re eee nee en eee ae te ee ae ee ce ee wee eee tee ee ere wee cee ee ee ee ere ee eee mene eee ee ee ate eye ae ee seem nm cee eee eee ee a eee oe ee seme ee 


DOWNWRD L @FyCEILING UPWARD L aFeCEILING k af yFLOORS 


C aF,yFLOOR j aF,FLOOR BCTR 4aF,_O 
BC O2,Q0UT BC 04,GUT s ar, i 


$ 
$ 


BC 04,aDGSGFC 


THE ANSWER TS 4s a Os8 @ aS eee ee 


XSFESH$FSHHSSESHSESSHHSHHFEHSHSHHEHFLEHSHSLHSSSSHHSHSHSHSHHSHHSHESHEFHEHSSESLESHSSEHSSSS 


$ 


$ 
$ 
$ 
$ 
$ 
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OCOQO8E800 
00686900 
00087000 
00087100 
CCO087200 
00087300 


0008 7500 
GO0C8 7600 
COOBTTOO 
Q0087T&CO 
VOCB ISCO 
09088C00 
00GB8190 
00088200 
00C88B300 
OC088400 
00088500 
00688600 
00088 700 
90088200 
290088900 
OC989C00 
90089100 
JOBS 200 
CCG8B93G0 


920 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT PAGE 35 
‘LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FO8APR70 9/16/70 
896 *asss5essSsee5 eee Sereecseseee== ANSWER 16.29 =s223SSe2S2ee5 555 Seer eze==z== YQ0089600 
897 *= = 00089700 
898 *= = 00089800 
899 *= "B® IS THE ANSWER. = 00089900 
900 *= = 00090000 
QQ] *ssrrtssse esses Sees se Ss Sas SSS SSS sess ess ees Stes Sesser Ssssssessssssseress==z= YQO090100 
903 *S$S$HhSSSSSSHSHSSHSSSHESSSSHESESHESHE QUESTION 16.30 SS$SHESHESEHESSSEESESSHSSESSHSESS ON090300 
904 *$ $ 00096400 
905 *$ $ 00090500 
906 *$ . TRUESFALSE $ 00090600 
907 *$ $ 00090700 
908 *§$ THE... BC 04,0UT.«.eAT ASSEMBLED ADDRESS *8C* IN THE $ 00090800 
909 *$ PROGRAM WILL BRANCH GIVEN THE PRESENT VALUES OF CEILING® $ €0090900 
910 *$§ AND *FLOOR®. $ 00091000 
911 *$ $ QO0091100 
912 *SS$H$FHEHSHEHSSHSHSHSHHSHESSHHHHHHSHEHHSHESSESHSSHEHSHSSHEHSHSHSHSHSESHSSFSESSHSSSSSSESSSHSHSSSSHESSS 


00091200 


Lev 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


Loc OBJECT CODE ADDR1 ADDR2 STMT 


915 
916 
917 
918 
919 
920 
921 
922 
923 
924 


926 
927 
928 
929 
930 
931 
932 
933 
934 


SOURCE STATEMENT | FOBAPRT0 


Kms S SSeS res SSrsSeSsssSS se tsssesesz=esz= ANSWER 16.30 =sSeSS5S3252 55555 2555255 5e55= 
x= = 
= = 
mea > "MAIS QUI" ,<------------ 7 
*= THAT'S FRENCH FOR “BUT YES", AND THAT = TRUE = 
*x= = 
x= I THINK WE'RE GETTING VERY VERY CLOSE TO THE PROBLEM. = 
*K= : = 
*KSSSSHSSHSSHSHFSSHSS$HSHSHEISHSSHSSHSESS QUESTION 16.31 SHHSHSHSHSHEHSHEHSFSHHSSSSE SS SSS HSE 
* $ $ 
*§ $ 
* $ TRUES FALSE $ 
*§ $ 
*§ THE PROGRAM SHOULD NOT EXIT TO "OUT*® AT THIS TIME. $ 
ee $ 
* $ $ 
* SSSSHSSHSHSSSSHSHSSHSHHFSHSSHSSHHSHSHSSHHSSHFSHSHSGLHHHHSEHSSHSSHESHFESHESHHSHHFSSESHSHSSES SES 
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00091590 
00091600 
00091700 
00091800 
00091900 
00092000 
00092100 
00092200 
00092300 
00092400 


00092600 
00092700 
C0092800 
00092900 
00093000 
00093100 
00093200 
00093300 
00093400 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT OO PAGE 37 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT . - Pi FO8APR70 9/16/T0O 
937 *=s2s=2S=s52S25Ss255252s=2525=2 ANSWER 16,3]. =Ss2tetteserssssssssetsseses 00093700 
938 *= = 00093800 
939 *= = 00093900 
940 *= THE PROGRAM SHOULD NOT EXIT TO OUT AT THIS TIME » THEREFORE = 00094000 
941 *= THE ANSWER IS T R U Ecce. = 00094100 
942 *= = 00094200 
O43. *s=SSS= S322 S255 S222 5223252553 SSS3s SSS SS=S55 553535 SS2S= S55 >= SSS 55 =SS=5==== 00094300 


945 *S$F$ESHSSHSSHESESHESHSSHSSSSESHESHESSS QUESTION 16.32 S$S$SHSESSSESESSSESESHESSHESESSES 00094500 


Pe 946 *$ $ 00094600 
sad 947 *$ : $ 0009470G 
948 *$ IN ORDER TO FIX THIS PROBLEM WE SHOULD CHANGE THE $ 00094800 
949 *$ THE *BRANCH® AS FOLLOWS: $ 00094900 
950 *$ $ 00095000 
951 *$ A. BC 02,0UT $ 00095100 
952 *§ B. BC 1,QUT $ 00095200 
953 *$ C. BC 12,0UT $ 00095300 
954 *§$ D. BAL 14,15 $ 00095400 
955 *$ $ 00095500 
956 *$§$ $ 00095600 
957 *$ PLACE ANSWER ‘HER E-====<"==—+<63<=----+— Pr escisal ot sg $ 00095700 
958 *$ $ 00095800 
959 *SS$S$H$SHEHSHSHSHHSHSHESH SSH SSF HHSHHHSHSHSHSHHSHSHSSSHSSHSHSHSHSHSSHSSHSSHSHFSELSSSSSHESHESEESS 00095900 


6c 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SCRT 


LOC OBJECT CODE ADDR1 ADDR2 = STMT 


969 
970 
971 
912 
913 
974 
975 
976 
S77 
978 
OTS 
980 
981 
982 
983 
984 
965 
986 
987 


SOURCE STATEMENT FOSAPRI90 
SS SS SS = SS SS SS SS SS SS SSS SS SS SE ANSWER 16.32 === SS > = = SS SS SS SS SS SS SS SS SS SS SS SS SS 
= THE ANSWER IS.ee.'A! = 
*= = 
oe 


KEt¢etetetet+ttete+e R EC A P +t4e+eet+4+ R EC AP teettetet R EC AP tt+4+ 


K+ + 
ca + 
+ THERE YOU HAVE IT .« THE PROGRAM SUCCESSFULLY PUSHED THE + 
+ HIGHEST NUMBER DOWN TO THE UPPER END OF + 
«+ THE LIST. THE DOWNWARD SCAN THEN ENDED + 
+ AND THE *FLOGR' WAS "RATSED" BY SUBTRACTING 1 FROM IT. + 
* THE ROUTINE THEN CHECKED TO SEE IF THE VALUE OF "CEILINGS 2 
* + WAS LOWER THEN THE VALUE OF FLOORS. + 
K+ + 
i 1. THE VALUE OF FCEILING* WAS LOADED INTO REG. 15 C1) + 
+ 2. REGISTER 15 WAS THE COMPARED TO LOCATION #FLOCK! (63) + 
7 3. REGISTER 15 IS LOWER THAN * FLOORS SO WE BRANCHED TO OUT. + 
+ + 
+ + 
K+ F I N I + 
+ + 
KAEEEH EEE EEEEE EEL EEE EE AE EEA EEE PEF EE EEE EEE EEE EEE EEE EE Eee tee te tte tet eee 
*-=>"V OTL Ay Y O UTR E AN Aes -S. MB ER L inGUtIsS Tt 
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30096200 
G0096390 
CU096400 
J0096500 
O00G6600 
VCC96 TOC 


OC096S00 
CCO9TCGO 
00097100 
90097200 
09097300 
00097400 
COUGT SCG 
O009T6SC0 
OCO9TT9OO 
GGCITIO0 
CCO9T9CO 
CUG9BO0E 
SCO098100 
vCO98200 
CU098 300 
OGC9B4C?$ 
96998500 
ICV98ECO 
00698700 


FLOW CHART PROJECT» USING AN ALTERNATING EXCHANGE SORT 


LOC OBJECT CODE ADDRL ADDR2 STMT 


990 
991 
992 
993 
994 
995 
996 
997 
998 


1001 


Ofp 


SOURCE STATEMENT ~ FO8APRTO 


FOI OCR ROCCO RIOR I IG IR aK kai aC a acai kk ak ak ak ak a ak a a ai ak a a of ai ok a a ak a 


O PLEASE NOTIFY YOUR INSTRUCTOR OF YOUR COMPLETION BY DISPLAYING 
THE YEtt ow ANS WERCUE. 


* 
* 
* 
xx 
x 
QO USE THIS SHEET FOR ANY COMMENTS YOU MAY HAVE. * 
* 
xe 
x 


* 
* 
* 
* 
* 
* 
* 
* 


Me 2 ae Be 2 2c ae ae ae i ate hc a fe fe ac 2 fe fc ic af fe af te ae af cole ae ate i oe ae Ne AC a a 2 CK A A A 2 OK 2K OK A AE OR IC OC OK A A KC a i 


KEEELELREELERESEESSESSSSS C OM ME N T S BBS RR ZEEE EEE AAS ARES ERE RALELS 
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00099000 
00099100 
00099260 


00099300 


00099400. 
00099500 
00099600 
00099700 
00099800 


00100100 


Lev 


CHART AA © FLOWCHART WORK PROJECT PAGE 
ALTERNATING EXCHANGE SORT MARCH 1970 
CHART FLOPRJCT 
PAGE l 
—— eee + nr a en er rr rn t 
V 
ALTS ORT DOWN WRD eX. o ¥, DNWD 
2 ee AG 5 eK eK AS 2k a 2K a oo kok 
HR A KK ok eK Hk oak *, .* * a * 
* * YES .* VALUE OF *END UPWARD *. YES * "LOWER" THE * 
* ENT RY x 4- *. ‘CEILING! > ~*<~—+ +——>*, SCAN? 0K ewe en >* 'CEILING®. % 
* * *.'FLOGR!'? . Ke ox * * 
oe fe 2K oe ok 2k ok te ok ok ke ok ok *x coo x, i: * * 
Vv Me ie a oe oe ee aK ke ok ok ok ok ok kok ok 
oe 40% * NOG * NO 
x 
D3 * 
* 
fe ok ok 
V # : V 
oe ek ok BE] ok ak fe ae 2k ae 2k ok 2k ok B2 *,. sek ak Ro BB a ak ok ak oe af ok a ok ok He he to eB Lyoko 2K ok oe ote ok 
* * x * 54 * * * 
*SAVE REGS. AND * END *. YES * WRATSE" THE * x COMPARE 2 * 
*ESTABLISH BASE.* +—-~>* . DOWNWARD ok Seer > * *FLOCOR'. * *ADJACENT ITEMS.* 
* * e SCAN? e * * * * 
* * x Xx * * * * 
oe eke ae fe a i ke ok oe ak ae ak ok ok ok - a eK ee ok a ok ok of ae ok ak ok oe ok ke Oi he oo ok a 2K ok ok eo ok a ok ok ok 
* NO 
V V 
Vo V UPWRD o*,  *, 
HAC | XK KK Hk ok CD KK KKK x, C4 *K 
* * * ow * .* oe 
* SET ITEM * * COMPARE 2 * e* VALUE CF *. NO ox . *. NO 
* COUNT TO 64 * *ADJACENT ITEMS.* *,. "CEILING* > .* ~=--> *,. IN ORDER? eK eee err + 
* * * *."FLOOR'? .* x, o* 
* * * x x, a* * ex 
3 KK eek ok KK $e eK oe oe ok oe ook a oo KK en *, x 
* YES * YES 
a ok 
* 
* D3 *=-> 
V Hk 
V o* © V V 
HKD] HK aK aK aK OK D2 a Vy Ho Hk DG OK ok KK KK Bee Rea DP) Bok feo Ae ake ok eK 
* * o& x, He KK DB He KK a a a OK * * * SWAP *% 
*SET 'CEIL-ING** Xx ‘ * * * * Kee Kae eK KK KS Ke 
sa TO l * *. IN ORDER? eK ww m+ x END CF SGRT. [ +—— alt TQ NEXT. je aa SOT eRANe Poe. 
* * x, a eof ke oe a aK oe ok ok of ok ke 2k * % * * 
ae ek aK ok ok ak 2k 2 eK ae. He he oe ok ao oak ok ke ok a af oe akc ok te ake oe he oc oe ok oe ak ok ok ok ok oe 
* YES 
S sloetuntentaeteatneteateetee nated i 
V V V 
HE | RK KK kek kek E Dik eK RK KK KK tok kek EZ RK RK AK 
* x * * xSWAP * 
* SET "FLOOR! x * ; * Mae He we oom Hae me ee me Kaa 
cs TO 64 * ——+ t=— *¥POINT TO NEXT. *<-----~-- *EXCHANGE ITEMS. * 
* * * x * 
5m * * * * x 
3k KK ek KK OK ek oe ok cok ok ok sek KK Kk ete oe ke oe ok ok ok ok ke ok ok ok 


ev 


LOC 


CO0000 
900000 
000004 


000006 


000006 


OOOO00A 


COOOOE 
000012 
000014 
000018 
00001C 


000020 
000024 
000028 
00002C 


000030 


000034 


000038 
00003C 
000040 
000042 
000046 
—00004A 

(00004E 
000052 
000056 
O0005A 


O0005E 
000062 
000066 


OOO06A 


OOOO6E 


000072 


000076 
OOOO7A 
OOOO7E 
000089 


00C084 
000088 
00008C 


0090090 


C00094 


0c0098 
00009C 
0000A0 
O00GA4 
0000A8 
OOOOAC 
0000B0 


O000B0 
OO000B4 


O000B6 
OOOOBA 


FLOW CHART PROJECT» USING AN ALTERNATING EXCHANGE SORT 


OBJECT CODE 


9O0EC 
05B0 


50D0 
41F0 
50F 0 
18DF 
41F0 
50F0 
41F0 
SOFO 
58FO 
5OFO 
58FC 
59FO 


4720 ¢ 


50F0 
5 BF O 
C6FG 
59FO 
4740 
4 TFO 
41F0 
5AFO 
5 OF O 
4TFO 
5810 
8B10 
58F1 
59F1 
47A0 
45E0 
47F0O 
58FO 
O6FO 
50FO 
58FO 
59FO 
4740 
58F0 
47F0 
5810 
8B10 
58Fl 
59F1 
47C0O 
45E0 


58F0 
O6FO 
5 OFO 
59FO 


ADDR1 ADDR2 


#0000C 


00214 


00210 


00008 


00040 
00258 
00001 
0025C 
00258 
00260 
0025C 
00260 
00002 
00264 
00260 


00264 
OCOTA 
OO05E 
00001 
00264 
00264 
0003C 
00264 
00002 
000E0 
000DC 
0004E 
001E0 
O004E 
00260 


00260 
0025C 
00260 
000D2 
00260 
000B6 
00264 
00002 
O00DC 
OOOEO 
O0O0BO 
OO1EO 


00264 


00264 
0025C 


STMT 


SOURCE STATEMENT FOSAPRTO 
© Re a he ee I HE I HK eK Ok Me eK S oer T. RO U T EC N E Bx 2k 2 2 2K oo KK ao XK a OK 
* : ; * 
ALTSORT CSECT , * 
STM @EyaC,12(aD) SAVE REGISTERS 0001* 
BALR @B,0 | ESTABLISH BASE O001* 
USING *+0000+00000, a8 0001L* 
ST @D,@SAVOO1L+4 OO01L* 
LA @F,@SAVOO1 OOOLx 
ST @F 48{0,aD) OOO1L* 
LR aD,aF O0001* 
LA QF, 64 SET THE COUNT OF ITEMS TO 64 0003* 
ST @F CT 0003* 
SETUP LA @F yl SET "CEILING® VALUE TO 11 0004* 
ST @F CEILING ; 0004* 
L aF ,CT SET ®"FLOOR* VALUE TO 64 0005* 
ST aFyFLOOR . 0005* 
DOWNWRD L aF,CEIL ING DOES VALUE OF "CEILING® 0006* 
C @F yFLOOR EXCEEDS VALUE OF "FLOOR'? 0006* 
BC 02,0UT YES,yEND OF SORT. 0007* 
ST af, NOySCAN DOWN TOWARD UPPER COO9* 
@DOOFF L @F,FLOGR END OF LIST. 0009* 
| BCTR a@F,0 0009* 
C aF yl END OF SCAN ? 0009* 
BC 04,aD09FC YES. Q9009%* 
BC 15,aD09FD NO . 0009* 
@DG9FE LA aFyl POINT TO NEXT DATA ITEM. O000S* 
A aF eI 0009* 
ST aF yt 0009* 
BC 15,@D09FF | ; 0009* 
@DO9FD LL al, GENERATE THE ADDRESSES OF TWO 0010%* 
SLA al,2 ADJACENT ITEMS, COMPARE THEM O0010* 
L aF,LIST(al) 0010* 
C _ @FyLIST-4(41) IF IN ORDER, CONTINUE, 0010* 
BC 10,a9FB | : 0010* 
BAL @E,ySWAP OTHERWISE, EXCHANGE THEM. 0011* 
BC 15,aD09FE 0013* 
@DO9FC L aF,FLOOR "RAISE" THE "FLOOR! 0014* 
BCTR aF,0 0014* 
ST aFyFLOOR 0014* 
UPWARD L aF,CEILING IS VALUE GF "CEILING*® GREATER OO15* 
C aFyFLOOR THEN THE VALUE OF "FLOOR®* ? 0015* 
BC 04,0UT YES. GO OUT 0016* 
L aF,FLOOR NO,SCAN UPWARD TOWARD LOW END OF0018%* 
BC 15,aD09F8 LIST - | | 0018% 
@DO9F9 L aly! GENERATE THE ADDRESSES OF TwO 0019%* 
: SLA @192 ADJACENT ITEMS. 0019% 
L aF,LIST~4(al) | 0019* 
C @F,LIST(al) AND IF THEY ARE GUT GF ORDER, OO19% 
BC 12,a9F5 EXCHANGE THEM. 0019* 
BAL @E, SWAP GO TO SWAP 0020* 
aSF5S EQU * 0021% 
aIF4 E aF,I 0022* 
BCTR a@F,0 9022* 
aDO9F8 ST aF,I 0922* 
C 0022* 


a@F,CEILING 


SEE IF WERE AT THE LOW END OF 


7 
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00005600 
00005700 
00005800 
00005900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
OGO007606 
OC007700 
000607800 
OCOCT900 
00008000 
000C8100 
000082C0 
00008 300 
COCC8400 
00008500 
000086C0 
00008700 
00008800 
00008900 
000C9CD0 


00COQ9100 . 


00009200 
0CU09300 


00009400 


00909500 
OCO0960C 
00009700 
00909800 
GOC99900 
90010000 
G0010100 
00010200 
00010300 
00010400 
000105U00 
00010600 
00010700 
00010800 
00010900 
OG01100C 


cer 


LOC 


OGIJOBE 
C0900C2 
GOO00C6 
900CTA 
OOCOCE 
O0009D2 
COI0D4 
OO00D8 
OGOGDC 


JOOCDE 
QQS9EO 
500120 
COOLS5C 
DOOLA4 


COC1LEO 
QGC1EO 
OOOC1LE4 
GCOC1ES8 
OOO1EC 
OOO1FO 
OOO1LF4 
OOO1FS 
OOOLFC 
000200 
000204 . 
C00208 
90920C 


O0O020E 
cO00G0 
Co0001 
G00002 
000003 
OC90004 
CO0C05 
GO00006 
000007 
CC0008 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT 


OBJECT CODE 


47A0 
41F0 
5AFO 
5O0FE 
47FO 
J009 
58006 
9EEC 
OTFE 


BO92 
erereRt 
B256 
B256 
BO2S 


DU94 
DOOC 


0000 

OCCOQOOF40000008A 
000000750000G0209 
0009 000400G00029 
D00000410000015E 


581C 
BB1O 
58Fl 
57F1 
DOF L 
58F1 
STF 
50F1 
58F 1 
5TF1 
5OF]L 
OTFE 


B25E 
0002 
BODA 
BGD6 
BOD6 
BOD6. 
BODA 
BODA 
BODA 
BCD6 
BOD6 


CO90G9 © 


COD00A 
CICO0R 
BOGR0C 


ADDR1 ADDR2 


00098 
OGGOl 
0025C 
O025C 
QO02C 


00004 
O0000C 


00264 
00002 
COOEO 
000DC 
OoODC 
QOCDC 
OOOEO 
COOEO 
QITGEO 
OCODC 
O00DC 


STMT 


1il 
ll2 
113 
114 
P15 
116 
117 
118 
119 


121 
122 
123 
124 


125 
126 
127 
128 


PAGE 3 
SOURCE STATEMENT FO8APRIG BALES TC 
BC 10,aD09F9 LIST IF YES O922* OOCLLIGO 
LA QF ql "LOWER" THE *CEILING! V023* OCCLLI200 
A af,CEILING 0O23* BCOLL3ZO00 
ST aFyCEILING OO2Z3% CUGLT4 C0 
BC 15,DQWNWRD JOZA* GOOLLSOC 
OUT DBC H'Q? TAKE A DUMP TC SEE SORTED ‘LIST! * COULLESC 
aELCl L AD,74(0,aD) RESTURE REGISTERS 0028* GOOLLTO?S 
iM @EyaCyl2(aD) 0028* CCCL1L&OC 
BCR 15,4E RETURN 0028* 9001190C 
RR RK OR KKK KKK of OP So RK KK RK KKK EP ST RK KOR KKK KR KR AKR KKK EE OCOLP LOC 
* LOW END OF---+ * CUOL2ZZUC 
%e LIST ( * 90012300 
* V * 900912400 
LIST DC F® 24441384459 70915 56,9524118935962 593219499757 841,3392' * GOU12590 
DC F817 521 1555925935 9309509 1659591 1292719 4539115,652,3" * 06012690 

DC F441 9 54 949359255 64911494419 149207909 81 95395 Te 1291149" DOOL2ZTCO 
DC F* 6593509257 9541922285958 98845 132958921 49454489689113,651' JDOGL2Z80C 
% }* 00012960 
* 1* 00013909 
* UPPER END OF LIST+* G0C13100 
HE AK MC AK He OE ae AE AC IE EO AE I OK ic OE He ae A OC OS 2 A A KR IC AE OE AE OC OK AE OE AC EO AE OC ROK OC OK OK OK KKK RRR KEKE OCOL32Z00 
BS OH * 90013406 

SWAP L aL, GENERATE THE ADDRESSES OF THE * 0060013500 
SLA 1,2 ITEMS TO EXCHANGE. Q029* 90013600 

L aFelIST(al) 0029* CCOL3Z70C 

X aF,LIST-4(a1) 0029%* OOOL3Z&S 

ST aF,lLIST-4(al) 0029* OCCL3°9C0 

L aF,LIST-4(a1) 0030* 00914U00 

X aF,yLISTlal) 0030* 000141900 

ST MF,LIST(al) 0030* 00014200 

L OFyLIST(al) 0031* 90014300 

X aFysLIST-4(al) 9031%* 00014406 

ST aF yLIST-4( al) GO31* 00014500 

BCR 15,a@E RETURN TO MAINLINE RUUTINE. 0032* 00014609 

@DATAL EQU * * O09L480C 
a0 EQU 09 EQUATES FOR REGISTERS 9-15 * 00014906 
a1 EQU Ol * QOCO15900 
a2 EQU 02 * 00015100 
a3 EQU 03 * 9OuGU1L5Zo0C 
a4 EQU 04 * 00015309 
a5 E QU QO5 * 90015400 
a6 EQU 06  OOOLR SCC 
a? EQU QT * OG015600 
a8 EQU C8 * 00015700 
ag EQU 09 * QCO156C0 
aA EQU 10 * QOO1L59)90 
aB EQU Ea * 00015uC0 
aC EU le ® Q0G16190 


ver 


LOC 


00000D 
OOOQO0E 
OOO00F 
000210 
000210 
000210 
000258 
00025C 
000260 
000264 
000268 
000210 
QOO004E 
0000D4 


FLOW CHART PROJECT, USING AN ALTERNATING EXCHANGE SORT, 


OBJECT CODE ADDR1 ADDR2 STMT 


SOURCE 


@DATA 
aSAVOOL 
CT 
CEILING 
FLOOR 

I 
@SAVO02 


a9FB 
aELO2 


STATEMENT 


EQU 13 

EQU 14 

EQU 15 

DS OD 

EQU * 

EQU A@DATA+O0000000 
EQU @DATA+00000072 
EQU aDATA+00000076 
EQU @DATA+00000080 
EQU § aADATA+00000084 
EQU ADATA+00000088 
DS 00000160C 

EQU aDOSFE 

EQU MJELOL 


72 BYTE(S) ON WORD 
FULLWORD INTEGER 
FULL WORD INTEGER 
FULLWORD INTEGER 
FULLWORD INTEGER 
T2 BYTECS) ON WORD 


FO8APRTO 


HH HHH HHH HH HH HH 
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00016200 
00016300 
00016400 
00016500 
00016600 
00016700 
00016800 
00016900 
00017000 
06017100 
00017200 
00017300 
00017400 
00017500 


Sev 


LOC 


FLOW CHART PROJECT, 


USING AN ALTERNATING EXCHANGE SORT 


OBJECT CODE ADDR1L ADDR2 = STMT SOURCE STATEMENT 


1003 END 


FOB8APRIO 


PAGE 


40 
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00106300 


FT 


CROSS~REFERENC 


acy 


SYMBOL 


aA 

a) B 

aC 

aD 
aDATA 
aDATAL 
@OOSFC 
aDOGFD 
aDOIFE 
ADOSFF 
ADOIE 8 
aDOIFY 


NSAVOOL 
aSAVvoce 
ao 
nyt 

ary 


@) 8) @ @) a) 2) fp 
wd CR oun fe bob mo 


O 


&) 


a9FB 
DOF4 
agQF5 
ALTSORT 
CELLING 
CT 
DOWNWRD 
FLOOR 

I 

LUST 
QUT 
SETUP 
SWAP 
UPWARD 


LEN 


00001 
OCCO] 
00001 
00001 
OO00CL 
00001 
C0004 
00004 
00004 
00004 
COCO4 
90004 
OOCOl 
09004 
09004 
00001 


09001 
O0001 
d9001 
29064. 


00004 
Oocol 
OOGOL 
ana aars 
WO 
09002 
GOQ004 
290004 


OCUU4 


NO STATEMENTS 
=STATISTICS*® 


e OPT TONS 


Leae 


- 


SOOONOOODDOOGCDO© 


TN EFF 
ie 


PRINTE 


VALUE 


QO00CA 
0OO00COB 
Q0000C 
OCUO0D 
000210 
OOC2Z0E 
OCUOTA 


OOOC5E 


QOOOC4E 
CQ0003C 
OCQOBE6 
O0CG9I& 
OCOOQOE 
OGOOD4 
VOOO0D4 
QQVOGOF 


OOC210 
OGC268 
dOO000 


COGCCL 


Co 3 
> € 
= 


Ca) 


dC ep OD o> 
C 
Sec 
= 
_ 
£ 


co 
(2 > & cb 


Ok ee re ae 
jon of Sat PF 


MO mo 
© 


2IDOOXODOO 


0258 


MO OONIODOVEAO Se 


OOocr OC 

ooooanrdo 
rOODaonraoan 
FE OO Oty fh 
Me Gm aH oO 
POON OLE 


DEFN 


00159 
00160 
O0161 
00162 
00166 
00148 
OCO92 
00085 
COO8L 
OG076 
OC109 
GOLOO 
Q0163 
OO11L? 
OO1L7T5 
00164 


OO167 
OO1L72 
OO1L4S 
OG150 


00169 
OOL6E 
COOT2 
OG1LTO 
OOL?1 
G0125 
COLLS 
UGO6S 
QO0135 
O0095 


REFERENCES 
0060 0061 
0059 0118 
0059 0062 
0167 0168 
0079 
0080 
0091 O174 
0084 
0099 
Olll 
0059 0090 
0175 | 
C063 0064 
0081 0082 
0109 O110 
0062 C063 
0085 0086 
0142 143 
0089 
0104 
0069 90072 
0067 O070 
0115 
0071 0073 
0075 oOT8 
GOS? 00868 
0074 0097 
oose 0105 

S ASSEMBLY 
RDS <SY¥SIN} 
NGDECKs LOAD. 


0064 0065 O117 
0169 O170 Ol171 
0105 O11i8 oO1uLS 
0065 C066 006? 
0083 CC8? C088 
Oll2 0113 O1L1L4 
0087 Coss GEOC 
Oi 44 OP 4. 

0095 O11C O113 
0076 0092 0094 
O08 2 CO82 OOS 
O102 CLO3 OLsa? 


NORENT, XPER} NO 


Oil? 
O1L?72 


C114 


0096 
6100 
0138 


TEST; 


0118 

0069 O070 O071 O072 O073 O075 
0093 0094 0095 0096 0098 Q21C2 
0138 0139 0140 C141 6142 0143 
9202 9102 O135 O1365 OL13f GLE 
0098 

O10f 0109 0135 

0139 0140 O14: O2142 O143 O144 

ALGN, OS, LINECNT = 55 


0076 
0103 
O144 


OLSS 


Olas 
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OOF! 
Ole? 
C145 


ULad 
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OC?8 
0108 


Lev 


®@ 


F44-LEVEL LINKAGE EDITGR OPTIONS SPECIFIED NCAL 
VARIT ABLE OPTIONS USED — SITZE=(045056,6144)- 
pate dee ©, DOES .NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


DEFAULT OPTION(S) 


USED 


SEP 


FeP. REGS. OA.5S9E9CU O0G000051 F1.6A5138 E570259F 00.000008 00000000 00.000000 00000000 


REGS 0-7 


REGS 8-15 


600000 
906020 
000040 
OCCO060 


O5AFA0 
O5AFCO 
OSAFEO 
058000 
05B020 
05B040 
05B060 
O5B080 
O5BOA0 
C5B0C 0 
O5B0E0 
058100 
C5B1i20 
O5BR140 
O5B160 
05B189 
O5B1LA0 
O5B1C0 
OS5B1E0 
C5B200 


k 


1058220 


"058240 


05B260 


05B820 


\ 


FFFFFF2ZE OQOOQO000FC O001D9CC o00000cv 
O0001D9B0 00000000 OO0LD9IDS 6FOSAFBE 


COO1LSF58 OOOLA690 OOOLDTCO OOOLCTB8 


4Q007ECA2 0005B1CO 9FO5B026 00000001 


9OC000C0 
FFE5Q001 
CO00QCGE 
000400C0 


9C4E5050 
DOO818DF 
59FOB25A 
COOLSAFO 
BO04845E0 
58FOB25A 
58FOB25E 
BO260000 
00000038 
00000349 
OCOQOOOOLE 
0000028C 
00000040 
00000039 
OQQOCSES 
00000044 
5O0F1BOD6 
00065090 
90000160 
FOF OF OF C 
FOFOFOFL 
003280G0 
9OECDOOC 


50401010 


00000000 
4007EA2C 
04000000 
OGQO07BC8 


9C5247F0 
41F00040 
4720B0CC 
B25E50F0 
B1DA47FO 
47FOBOBO 
O06FO50F0 
58D0D004 
OOCOCOF4 
00000021 
00000032 
00000003 
00000072 
0000000C 
000003B8 
goo0co7h 
58F1BOD6 
GO066F68 
0C040007 
44444444 
F2F3F4F5 
COC5COF4 
O5C004FO 


4340A008 


00000000 
FFC5Q001 
E0001468 
00040000 


95C65070 
50FO0B252 
5OFOB25E 
B25E47F0 
B04858FO 
58LOB25E 
B25E59FO 
9BECDOOC 
00000076 
00000002 
QO000004C 
00000004 
90C001B9 
00000008 
00000374 
0C00028B 
57F1LBODA 
GOQO606C 0 
00050007 
00000040 
F6FTF8F9 
F5FOC940 
07004110 


12444780 


C0000000 
5FC5B084 
00005920 
00007588 


9C665870 
41FOCOOL 
58FOB25A 
B0365810 
B25A06F0 
B8BLOOCO2 
B25647A0 
OfFEQOOO 
00000023 
O000GO #5 
COQO0CO5F 
CO0000029 
GOO0004A 
00000009 
Q00002DC 
OCOOO03BE 
5OFLBODA 
00060360 
00000008 
OO000001 
Cit 2C 304 
ETETETET 
CO100511 


885C4820 


COO5AFBO 00000000 FFFSO0000 BFOSLF2ZA  Kecereccrencccccscesssascesdcesvesk 
OOOOFFOO 00000000 FEO040130 BOOD0DDA0H F.Vew coc cEc ewer ccccnssccccccaecse® 
O2TO40A4 COD09IG6C OCO040000 DODO TSEIB Kee cccccnc ce vees sce soevescceveeek 
OOCO000ON AOOL2ZDLO OCO40000 OODOTSIA Fev ecec Ho cccc veces ccessesecasvce® 
SOECDOOC O5B050D0 B20E4LFO B2Z20A50FO Kee c eee cOeFe cw ncarcccccsscceDee oU% 
DSOFOB256 S8FOB252 SOFOBZ5A S8FOB2Z256 eee eee cee uveDe oe De ene ee Dee 200 o* 
O6FO59FO B25E4740 BOTS4TFO BOSB41FO FeQe eee ce ce De ee Dee eV ence 20 ene 0% 
B25E8B10 COC258F1 BODASOFL BODE47TAD Foe Dea eDe we aDe wc ccc ccecslevceloMee* 
SOFOB2Z25SA 58F0B256 SOFOBZ5A 4740BOCC Ke ewe ee oD eee De eee Oe eee ce sOaee 0 e% 
58FIBOD6 5S9FIBODA 47COBOAA 45E0OBLDA  *FeD ee Deere cccccoeleCeolencaoessese® 
BO9S241FO GOOLSAFO B25650FO B2564TFQO *.0 02 Oe De oe De coe oo we On we Oe oe Une eo O¥ 
OOCOO CSA: COOROC2D 0000040 OC 0C000 1. Riuiw einieseiceerwreceiws bus G6 6 bw Wine ow aw wine eee 
OOOCOOZE QOQOOL41 OODO0N3SL OODQD04B Face ece eter vce vevsscccsescccesseer® 
O00CO209 OCO0022B COOQDDDLI DOD0DIZ3 Freee eeeevccvveccccvesccvcsccessese® 
OOQOQGAT GOOOCLOF OQOO001C5 OOOOCOT3S Fu cecevceenvecesccsescscssselnvoeek 
O000G036 OOOQODOS5SE COQ0002Z3 OGOODOLD Ke cecescencc sv svrecresscscecvessven® 
00000014 OQO0005A QCOO0ON51L ON000035 = Fese eecevreccccccvrvccsccseccscvec® 
CO0GO0041 OOODOLSE DOCQOOLOL OODODOZID Fe cesccvneaccsevrvsveccseccceresce® 
O000003A OOGOOOLB DOODDDOZD DDDNDN0NZO Few eUecw sce ce ceca seescvecsccsescce® 
5810625E 8B1O00002 SBFIBODA S7TFIBODG Kecee rece vennesceccseseseselecel 
S8FIBODA STF1BOD6 5SOFIBODS OTFENS9IB *.1.0.1.0.1..-be ee lee 1-001 -0.-6..% 
QOOOFFFF OOFFFFFF OO000000C QQO000DDO = Keacecse cece ceercceccescscesesevsert 
E2E3D7C3 CiC2C3D5 COFFOO0OO QOFCOFOO Ke caweccr eee ceeee SIPCABCN.....0. 6 * 
QOOOO003F CO000040 FDOOQOOGCO E2E4FOFO 0000. eee eee eee cc ceveee coer SUD0* 
C5C6E2F2 F2F240E3 CID4C504 00400000 *000123456789ABCDEFS222 TIME... «-%* 
ETEVTETE?T 4BE7ETET ETEVTETET EM4BETET *.2.5.eLTEF4501 XXXXXXXXoXKXKKXKXKX oo XX* 
OFO05B304 TFFFOAOE S8BOOOLG DLLOBOTH Kec ce eDe cc cs nc cevevscasccvesese™® 
AQOE5420 B8ASE47B0O B7FCOG6Z0 BSAZOBOLG Fe wee ee aeocrcveccsvcesscessecve® 
{ 
i 
5 
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